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1.0 


INTRODUCTION 


This  report  summarizes  and  documents  all  work  performed  on  the 
development  of  the  Ku-Band  Rendezvous  Radar  Tracking  and  Acquisition 
Simulation  Program  project,  NASA  Contract  No.  NAS9-17501.  Its  submittal 
fulfills  the  Data  Requirements  List  (DRL)  Number  T-2003  Item  Number  2,  and 
item  D in  the  Vork  Breakdown  Structure  (WBS). 

The  project  had  four  major  technical  objectives: 

1)  Improve  the  fidelity  of  the  Space  Shuttle  Radar  tracking 
simulation  model  developed  under  NASA  contract  number 
NAS9-15840. 

2)  Review  and  analyze  the  data  from  the  Shuttle  Orbiter  Radar 
Test  and  Evaluation  (SORTE)  program  experiments  performed  at 
the  White  Sands  Missile  Range  (WSMR) . 

3)  Evaluate  selected  flight  rendezvous  radar  data. 

4)  Evaluate  problems  with  the  Inertial  Line-of-Sight  (ILOS) 
angle  rate  tracker  using  the  improved  fidelity  angle  rate 
tracker  simulation  model. 

1.1  CONTRACTUAL  DATA  SUMMARY 

All  project  work,  including  the  submission  of  this  report,  was 
performed  in  accordance  with  the  revised  schedule  described  in  Modification 
Number  2S,  20  Jan  86. 

All  items  in  the  original  work  statement  were  completed.  Table 
1.1-1  below  shows  the  relationship  of  the  sections  in  this  report  to  the  work 
breakdown  structure. 

The  final  review,  as  per  item  C in  the  WBS,  was  held  at  JSC  from 
27  May  to  30  May  86. 
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1.2 


TECHNICAL  SUMMARY 


An  initial  evaluation  of  the  Ku-Band  tracking  simulation  model 
developed  for  use  in  the  Shuttle  Engineering  Simulator  (SES)  at  the  Johnson 
Space  Center  (JSC)  revealed  that  the  fidelity  could  be  improved  in  several 
modules.  These  included  the  modules  associated  with  the  angle  tracker,  the 
Automatic  Gain  Control  (AGC)  and  the  Radar  Signal  Strength  (RSS)  module,  the 
velocity  processor  module,  and  the  radar  signal  processing  parameter  module. 
Fidelity  improvements  have  been  made  in  all  of  these  modules  within  the 
constraints  of  the  original  simulation  model  development  requirements. 

Improvements  in  the  angle  tracking  loop  model  primarily  consisted 
of  the  addition  of  high  fidelity  models  of  the  antenna  sum  and  difference 
patterns.  These  new  pattern  models  utilize  measured  data  which  became 
available  in  mid-1983. 

Changes  in  the  velocity  processor  and  the  radar  signal  processing 
parameter  modules  were  precipitated  by  changes  made  in  the  radar  since  1980, 
when  the  modules  were  first  written  and  tested. 

Improvements  in  the  AGC  and  RSS  modules  resulted  from  a more 
thorough  development  of  the  theory  of  operation  of  the  AGC  and  RSS.  Details 
of  the  changes  to  each  of  these  modules,  including  test  results  to  verify 
their  correctness,  are  provided  in  Section  2.3  of  this  report. 

The  majority  of  effort  and  resources  of  this  project  were 
expended  on  the  analysis  of  the  test  data  generated  by  the  SORTE  program  at 
WSMR.  (A  description  of  the  SORTE  program  is  provided  in  Reference  1.)  The 
purpose  of  these  tests  was  to  use  the  highly  accurate  WSMR  system  of  sensors 

to  analyze  the  accuracy  of  the  Space  Shuttle  Radar  parameter  estimates.  The 

method  of  analysis  was  a multi-step  procedure  developed  to  suit  the  limited 
resources  of  the  project.  First,  the  radar-generated  data  and  the 

WSMR-generated  data  were  differenced.  Then,  the  mean  and  standard  deviation 

of  the  difference  data  were  calculated  and  compared  with  the  requirements  for 
each  radar  parameter  specified  in  Reference  2 and  shown  in  Table  1.2-1.  Those 
cases  exceeding  the  specifications  were  analyzed  in  further  detail  to 
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TABLE  1.2-1  RADAR  MEASUREMENT  ERROR  SPECIFICATIONS 
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Mean — Error(l) — Std.  Dev. 
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1 

• 1 or  1% 

y 

i 

i 

Increasing  range: 
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9 
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1 1 or  1% 
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9 

Pitch  (deg): 

’ 0 to  30(3) 
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' 0.458 
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(mr): 
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9 

9 

’ 8.0 
9 

9 
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Roll  (deg): 

• 0 to  30(3) 

9 

2 

• 0.458 

9 

t 
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(mr) : 
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« 

9 

9 

’ 8.0 
9 

f 
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Pitch  rate  (mr/s): 

• 0 to  20(4) 

9 

0.14 

• 0.14 

I 

t 

t 

(deg/ s) : 

9 

9 

9 

0.008 

• 0.008 
9 

9 

9 

f 

Roll  rate  (mr/s): 

• 0 to  20(4) 

9 

0.14 

' 0.14 

9 

f 

t 

(deg/s) : 

9 

9 

9 

9 

0.008 

' 0.008 
9 

9 

9 

NOTES: 

(1)  Both  mean  and  standard  deviation  specifications  are  given  as  three 
sigma  values. 

(2)  The  range  error  specification  increases  by  a factor  of  0.0016 
(range)  at  distances  greater  than  8.2  nautical  miles. 

(3)  Pitch  and  Roll  coverage  range  specifications  include  the  spans  from 
-30  to  + 30  degrees. 

(4)  Pitch  rate  and  roll  rate  coverage  range  specifications  include  the 
spans  from  -20  to  + 20  milliradians  per  second. 
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determine  whether  the  radar  data  was  out  of  specification,  whether 
experimental  errors  in  the  reference  sensor  data  collection  process  were 
responsible  or  whether  a combination  of  both  problems  applied.  A brief 
summary  of  the  findings  of  that  data  analysis  is  given  below. 

Table  1.2-2  summarizes  the  results  of  the  first  pass  through  the 
data.  This  data  indicated  four  major  problem  areas:  range  rate  standard 

deviation,  roll  and  pitch  angle  standard  deviation,  and  ILOS  angle  rate  mean 
and  standard  deviation.  Extensive  analysis  of  the  range  rate  in  the  second 
stages  of  the  procedure  showed  that  the  error  was  due  to  several  sources.  In 
many  cases  where  the  TMR  system  was  the  reference,  the  error  was  in  the 
reference  data.  It  was  induced  by  the  positioning  of  the  sensors  - an  error 
known  as  Geometric  Dilution  of  Precision  (GDOP).  In  some  cases,  range  rate 
error  was  caused  by  target  rotation  effects.  Range  acceleration-induced  bias 
obscured  the  true  range  rate  random  performance  in  the  majority  of  cases.  The 
range  accelerations  (or  decelerations)  experienced  in  the  SORTE  program  flight 
were  typically  much  higher  than  those  experienced  in  space  operations, 
especially  for  ranges  less  than  5 nautical  miles. 

Analysis  of  the  problems  in  the  SORTE  angle  data  revealed  the 

principal  cause  to  be  GDOP  in  the  TMR  sensor  system.  A weak  target  return 
signal  was  a problem  in  some  of  the  flights  where  the  target  was  at  long 
range.  In  those  cases  where  the  CINE  reference  system  was  available,  the 
angle  data  error  performance  was  demonstrated  to  be  excellent. 

An  examination  of  the  ILOS  angle  rate  data  in  conjunction  with 
the  corresponding  angle  data  showed  that  the  angle  rate  data  was  incorrectly 
scaled.  Further  investigation  has  shown  that  the  scale  factor  is 

approximately  2.0.  Rescaling  the  data  by  a factor  of  1/2  and  differencing  it 
with  the  WSMR  data  showed  a significant  Improvement  in  the  mean  and  standard 
deviation  in  the  majority  of  the  cases.  Although  in  many  cases  the  means  and 

standard  deviations  were  still  outside  the  specification  limits,  some 

additional  analysis  demonstrated  that  this  residual  error  was  caused  by  angle 
acceleration.  A closed-f ormed  analysis  of  the  second  order  model  representing 
the  angle  rate  tracking  loop  has  shown  that  an  angle  acceleration  of  0.04 
degrees  per  second  per  second  produces  an  asymptotic  angle  rate  bias  of  0.106 
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TABLE  1.2-2  SUMMARY  OF  SORTE  DIFFERENCE  DATA  PERFORMANCE  AND 
COMPARISON  WITH  THE  KU  BAND  RADAR  SPECIFICATION 


9 9 
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Best/TMR  ' 
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9 
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9 

0% 

4.8% 

9 

1 
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4 

6.4% 

0 

0% 

9 

6.4% 

9 

1 
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3.2% 
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1 
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56.4% 
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1 

9 

1.6% 
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23 
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4 

6.4% 

9 
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9 

♦ 
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1 

9 
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9 

9 

' st.dev.  ' .153  deg  ' 

9 9 9 

11 
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1 

1 
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9 
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9 
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33 
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25 

9 
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1 

9 

' st.  dev.*  .0027  deg/s  ' 
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26 
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9 
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9 
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'Pitch  rate'  ' 
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26 

7 

42.0%  ’ 
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i 
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' st.  dev.'  .0027  deg/s  ' 
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42.0%  ’ 

100.% 
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9 

9 

9 

(Data  was  compiled  from  a total  of  62  difference  data  sets.) 
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degrees  per  second  in  the  widest  bandwidth  case.  Examination  of  the  angle 
acceleration  profiles  in  some  of  the  test  runs  has  shown  that  0.04  degrees  per 
second  per  second  accelerations  were  not  uncommon.  Accelerations  of  this 
magnitude  would  naturally  degrade  the  Ku-Band  Radar  ILOS  angle  rate  tracker 
statistics  in  those  cases.  Complete  details  of  the  angle  rate  data  analysis 
are  provided  in  Section  3.6. 

There  are  two  possible  sources  of  a scale  factor  error.  One 
source  could  be  the  processing  required  to  transfer  the  data  from  CA  LS14/90 
disk  to  magnetic  tape  to  the  VAX  11/780.  A second  source  of  the  scale  factor 
error  could  be  the  scaling  of  the  ILOS  roll  rate  and  pitch  rate  in  the 
microprocessor  of  the  Electronics  Assembly  No.  1 (EA-1)  of  the  Ku-Band  Radar. 
At  the  writing  of  this  report  both  possibilities  were  being  investigated,  but 
a determination  of  the  source  and  the  exact  magnitude  of  the  scale  factor  had 
not  been  completed. 

Complete  details  of  these  analyses,  which  are  quite  involved  and 
vary  from  experiment  to  experiment,  are  provided  in  Section  3 of  the  report. 
In  addition,  many  of  the  anomalies  found  in  the  data,  such  as  jumps  in  range 
and  pure  sine  wave  oscillation  in  range  rate,  are  addressed  in  Section  3. 

A limited  amount  of  effort  was  applied  to  the  area  of  flight  data 
reduction.  JSC  and  Lockheed  Engineering  and  Management  Services  Company 
(LEMSCO)  personnel  provided  the  radar  data  in  VAX-11/780  compatible  form  for 
the  entire  rendezvous  of  the  shuttle  with  the  Palapa  IB  Satellite  during 
mission  51A.  This  flight  profile  was  used  to  investigate  the  variance  of  the 
random  error  found  in  all  radar  measured  data  and  to  investigate  the  fidelity 
of  the  simulation  against  a typical  satellite  rendezvous  profile.  Details  of 
the  analysis  technique  used  to  extract  the  variances  of  the  random  errors  in 
the  radar  data  are  provided  in  Sections  4.1  and  4.2  along  with  a discussion  of 
the  legitimacy  of  the  technique.  Results  of  the  analysis  showed  that  the 
range,  range  rate,  roll  angle,  and  pitch  angle  random  errors  *were  within 
specification  over  the  entire  profile.  On  the  other  hand,  ILOS  roll  rate  and 
ILOS  pitch  rate  were  within  specification  for  ranges  outside  3.8  nautical 
miles,  but  were  out  of  specification  for  some  intervals  when  the  range  was 
less  than  3.8  nm.  These  results  are  of  no  surprise  to  the  engineers  who  have 
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already  reviewed  flight  data  for  many  different  rendezvous.  The  purpose  of 
this  exercise  was  to  quantify  the  characteristics  of  the  random  error.  Table 
1.2-3  summarizes  the  standard  deviation  of  the  error  for  each  of  the  six 
parameters  over  three  different  range  intervals  corresponding  to  the  three 
different  radar  tracker  bandwidths. 

The  flight  data  file  was  also  used  to  investigate  the  fidelity  of 
the  radar  tracking  simulation  model.  Details  of  the  method  employed  to  make 
this  determination  can  be  found  in  Section  4.3.  Table  1.2-4  summarizes  the 
results.  A comparison  of  the  simulated  data  and  flight  data  revealed  an 
excellent  match  in  range,  range  rate,  roll  angle  and  pitch  angle.  The 
simulation  angle  rate  error  data  did  not  match  the  flight  angle  rate  error 
data  very  well,  especially  inside  3.8  nautical  miles  range  where  the  wider 
tracker  bandwidths  are  instituted.  Based  on  the  excellent  match  of  the 
simulation  when  compared  to  the  SORTE  data  (see  Section  3.6.3),  it  is 
conjectured  that  the  reference  trajectory  injected  into  the  simulation  was  in 
error.  In  particular,  it  is  felt  that  the  heavy  smoothing  of  the  angle  rate 
data  to  form  a reference,  erroneously  removed  some  true  shuttle-target 
dynamics . 


1.3  CONCLUSIONS 


There  are  two  general  areas  where  conclusions  can  be  drawn:  (1) 
SORTE  program  results  and  (2)  simulation  fidelty. 

SORTE  Program  Results.  The  SORTE  program  can  be  considerd  highly 
successful  for  one  single  reason:  it  demonstrated  the  sensitivity  of  the  ILOS 
angle  rate  tracker  to  angle  acceleration.  The  analysis  of  this  data,  combined 
with  the  Palapa  rendezvous  data  analysis,  has  demonstrated  that  the 
fluctuation  in  the  angle  rate  meters  for  target  ranges  less  than  1.9  nautical 
miles  is  due  to  rendezvous  dynamics  and/or  beam  wander  on  the  target,  but  not 
thermal  noise  problems.  The  angle  acceleration  data  helped  verify  the  angle 
and  angle  rate  tracker  design  parameters  through  equations  3-12  and  3-19. 
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TABLE  1.2-3  SUMMARY  OF  ANALYSIS  OF  THE  RANDOM  COMPONENTS  OF 
THE  KU-BAND  RADAR  DATA  FROM  THE  PALAPA  SATELLITE 
RENDEZVOUS  OF  MISSION  51A 
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TABLE  1.2-4  PERFORMANCE  OF  THE  KU-BAND  RADAR  SIMULATION  MODEL 
USING  THE  SMOOTHED  PALAPA  SATELLITE  RENDEZVOUS 
RADAR  DATA  OF  MISSION  51A  AS  THE  INPUT  TRAJECTORY 
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Conclusions  about  radar  parameter  estimation  performance  are  as 
follows.  The  range  and  angle  data  error  performance  was  demonstrated  to  be 
excellent.  Range  rate  and  angle  rate  error  performance  was  obscured  by 
acceleration  effects,  GDOP  and  other  assorted  problems.  In  both  cases  the 
specifications  on  the  random  component  are  quite  severe  which  makes  them 
susceptible  to  bias  induced  by  acceleration.  In  the  case  of  range  rate,^  the 
acceleration  encountered  in  space  operations,  especially  for  ranges  less  than 
5 nautical  miles,  will  be  quite  small  and  will  not  present  a problem.  On  the 
other  hand,  it  is  not  clear  just  what  magnitude  of  angle  acceleration  to 
expect  in  space  operations. 

There  is  one  final  conclusion  about  the  SORTE  program  results. 
If  any  additional  data  analysis  is  to  be  done,  then  the  CINE  reference  data 
should  be  used  wherever  possible.  This  is  because  TMR  system  data  is 

corrupted  by  GDOP  in  many  cases.  This  phenomenon  obscures  the  radar  parameter 
estimation  performance  in  these  cases. 

Simulation  Fidelity.  Prior  to  the  study  reported  herein,  the  SES 
radar  simulation  results  agreed  well  with  the  flight  data  in  range,  range  rate 
and  angle  data  at  all  ranges.  However,  the  simulation  angle  rate  data 

performance  appeared  to  be  much  better  than  the  flight  data  especially  for 
ranges  less  than  1.9  nautical  miles.  Until  this  study,  this  problem  was 
blamed  on  an  inaccurate  model  of  the  angle  rate  tracker . However , based  on 

the  SORTE  angle  rate  data  analysis  of  Section  3.6.3  it  is  clear  that  the 

problem  is  in  either  the  fidelity  of  the  rendezvous  flight  dynamics  generation 
or  in  the  radar  target  effects  model  or  both.  Further  work  must  be  done  in 
this  area  to  make  an  exact  determination. 
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2.0 


SIMULATION  UPGRADES 


The  purpose  of  this  section  is  to  document  all  changes  to  the 
Ku-Band  radar  tracking  performance  simulation  model  developed  for  the  SES  at 
JSC  under  NASA  contract  number  NASA-15840.  There  were  two  general  types  of 
changes:  (1)  corrections  in  various  parameter  settings  of  the  radar,  and  (2) 
improvements  in  the  fidelity  of  the  mathematical  models.  Both  types  of 
modifications  were  aimed  at  bringing  the  simulation  model  operation  into 
better  alignment  with  the  actual  radar  operation. 

The  general  format  for  documenting  the  modifications  is  as 
follows.  First,  the  problem  with  the  original  simulation  model  is  defined. 
Second,  the  changes  in  the  algorithm  are  given  along  with  the  evidence 
supporting  the  model  fidelity  improvement.  Third,  the  exact  changes  in  the 
software  are  documented  by  providing  the  original  module  listing,  the  present 
module  listing,  and  a listing  of  the  difference.  Last,  the  tests  to  validate 
the  changes  are  defined  and  the  results  of  those  tests  are  provided.  At  this 
point  it  should  be  noted  that  only  a limited  amount  of  validation  testing  was 
done  for  each  modification  due  to  limited  resources  for  this  portion  of  the 
project.  However,  the  testing  was  extensive  enough  so  that  only  a handful  of 
unusual  scenarios  will  yield  bogus  results. 

This  section  is  structured  as  follows:  Section  2.1  gives  a brief 
history  of  the  simulation  development  and  some  discussion  of  the  fidelity 
problem  areas.  Section  2.2  documents  the  angle  tracking  loop  changes. 
Section  2.3  documents  the  upgrade  of  the  AGC  and  RSS  module.  Section  2.4 
provides  details  of  the  radar  signal  processing  parameters  module  upgrade  and 
Section  2.5  documents  the  velocity  processor  module  enhancements.  In  support 
of  Section  2,  Appendix  A provides  complete  listings  of  the  original  simulation 
program;  Appendix  B contains  a listing  of  the  upgraded  simulation  program;  and 
Appendix  C gives  a listing  of  the  file  created  by  differencing  the  original 
and  upgraded  simulation  programs. 
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2.1 


HISTORICAL  BACKGROUND 


The  Ku-Band  Rendezvous  Radar  performance  computer  simulation 
model  was  developed  under  contract  to  NASA  JSC  in  1979.  This  model  was 
installed  in  the  Shuttle  Engineering  Simulator  (SES)  which  is  a 
man-in-the-loop,  real-time  simulator.  The  purpose  of  the  model  was  to  provide 
for  target  rendezvous  training  of  astronauts  and  target  rendezvous 
optimization  analysis.  Complete  details  of  the  simulation  development  are 
given  in  References  3 and  4.  In  what  follows,  a summary  description  of  the 
model  will  be  presented  along  with  a discussion  of  the  shortcomings  in  its 
performance . 

2.1.1  Brief  Description  of  Original  Simulation  Model 

The  general  philosophy  of  the  simulation  development  was  to 
provide  as  much  model  accuracy  as  possible  within  the  constraints  of  real-time 
operation.  A summary  of  the  accuracy  of  the  simulation  model  under  this 
real-time  constraint,  can  be  broken  into  an  assessment  of  the  accuracy  of  the 
three  major  components  that  comprise  the  model.  These  components  are;  (1) 
the  range  tracking  loop,  (2)  the  angle  tracking  loop,  and,  (3)  the  velocity 
processor. 


Figure  2.1-1  gives  a simplified  diagram  of  the  Ku— Band  Radar's 
range  tracking  loop  and  velocity  processor.  Except  for  the  analog  signal 
processing  done  in  the  receiver,  the  majority  of  the  range  tracking  loop  is 
implemented  in  digital  hardware.  All  of  the  computer  run  time  savings  and 
shortcuts  in  these  two  models  were  realized  In  the  target  return  signal 

generation  and  the  signal  processing  through  the  range  discriminant,  D^,  and 
the  velocity  discriminant,  D^,  formation.  The  target  was  treated  as  a 

collection  of  point  scatterers,  and  the  receiver  and  signal  processor  (through 
the  doppler  filter  output)  were  treated  as  a linear  device.  Hence,  a 

closed-formed  solution  could  be  used  to  compute  the  target  return  from  a 

single  scatterer  at  the  doppler  filter  output.  Then,  the  filter  output  for 
the  collection  of  points  could  be  obtained  by  summing  individual 
contributions.  The  target  was  assumed  to  have  constant  range  rate  and 
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constant  position  in  the  antenna  pattern  over  a complete  data  cycle.  These 
assumptions  have  little  affect  on  model  accuracy  under  normal  operating 
conditions:  low  target  range  and  angle  acceleration.  The  remainder  of  the 
range  tracking  loop  and  the  velocity  processor  are  implemented  in  digital 
hardware.  Models  of  these  processors  are  exact  and  do  not  degrade  the 
performance  of  the  range  tracking  loop  or  the  velocity  processor.  In  summary, 
accuracy  of  the  range  tracking  loop  and  the  velocity  processor  module  were 
expected  to  be,  and  have  been  proven  to  be,  excellent.  The  only  real  problem 
in  fidelity  was  expected  in  the  velocity  processor  in  the  presence  of  target 
range  acceleration.  The  error  in  this  case  is  a predictable  quantity  as 
discussed  in  Appendix  F. 

Figure  2.1-2  gives  a simplified  diagram  of  the  Ku-Band  radar's 
angle  and  angle  rate  tracking  loop.  Generation  of  the  angle  discriminants  is 
done  in  a manner  that  is  similar  to  the  range  and  velocity  discriminant 
generation.  However,  the  angle  discriminant  generation  accuracy  is  much  more 
sensitive  to  the  models  of  the  antenna  sum  and  difference  patterns  employed. 
In  the  original  version  of  the  simulation,  conventional  mathematical  models  of 
these  patterns,  rather  than  actual  measured  data,  were  used.  The  remainder  of 
the  angle  and  angle  rate  tracking  loop  that  required  modeling  is  the  loop 
filter  which  is  composed  of  two  parts:  a digital  section  and  an  analog 
section.  The  digital  section  was  modeled  with  high  accuracy,  while  the  analog 
section  was  modeled  as  a simple  analog  integrator.  A detailed  discussion 
justifying  this  representation  of  the  analog  section  can  be  found  in  Reference 
5.  There  are  two  general  areas  in  this  angle  tracking  model  with  potential 
for  improvement:  (1)  the  sum  and  difference  antenna  pattern  models,  and  (2) 
the  analog  (servo)  electronics  section  in  the  loop  filter. 

2.1.2  Developments  Leading  To  Proposed  Simulation  Upgrades 

Several  events  led  to  the  set  of  simulation  modifications 
developed  under  the  present  contract.  What  follows  is  a chronology  of  these 
events  and  their  implications.  The  simulation  model  code  was  delivered  to  JSC 
and  installed  in  the  SES  in  July  1981.  At  about  this  time,  the  Ku-Band  radar 


was  beginning  comprehensive  system  testing.  As  a result  of  this  testing, 
several  parameters  in  the  tracking  mode  were  changed.  These  included 
pulsewidth  and  PRF  switch  point,  the  transmit  power  switch  point,  and  the 
elimination  of  velocity  ambiguity  resolution  in  the  7kHz  PRF  mode.  This  led 
to  the  definition  of  the  signal  processing  parameter  module  changes  described 
in  Section  2.4  and  the  velocity  processor  upgrades  given  in  Section  2.5. 

As  system  testing  continued  through  1982  and  early  1983,  a very 
comprehensive  model  of  the  AGC  and  RSS  was  developed  to  calibrate  the  system 
and  to  help  interpret  test  results  and  anomalies.  This  model  was  further 
refined  to  help  in  planning  and  evaluating  the  early  flight  tests  of  the 
radar,  e.g.,  STS-7,  STS-11,  and  STS-13.  The  model  was  documented  in  Reference 
4 and  is  the  basis  of  the  upgrades  described  in  Section  2.3.  The  first  flight 
test  of  the  radar  on  June  22,  1983,  when  the  shuttle  released  and  recaptured 
the  Shuttle  Pallet  Satellite  (SPAS),  showed  that  the  simulation  was  in 

excellent  agreement  with  the  flight  data  for  ranges  out  to  1000  feet.  The 
first  rendezvous  with  a target  occurred  in  April  of  1984  when  the  shuttle 
rescued  and  repaired  the  Solar  Maximum  Mission  Satellite  (SMMS).  The  radar 
was  used  to  track  SMMS  from  a range  of  110,000  feet  in  to  100  feet.  A 

comparison  of  the  flight  data  with  simulation  data  over  this  interval  of 
operation  showed  the  range,  range  rate,  roll  angle,  and  pitch  angle  to  be  in 
reasonably  good  agreement.  However,  the  IL0S  roll  and  pitch  angle  rate  data 
from  the  simulation  was  far  better  than  that  experienced  in  flight,  especially 
for  the  widest  tracking  loop  bandwidth  (ranges  less  than  1.9  nautical  miles). 
This  was  the  first  confirmation  that  there  was  a problem  in  the  angle  rate 
tracking  loop  model  fidelity.  Analysis  of  an  antenna  model  upgrade  had 
already  begun  in  late  1983.  The  intent  of  the  upgrade  was  to  replace  the 
closed— formed  math  models  with  highly  accurate  measured  data  which  became 
available  in  mid-1983.  The  results  of  the  study,  completed  in  mid-1984  and 

documented  in  References  6 and  7 , demonstrated  that  part  of  the  problem  in  the 

angle  rate  model  performance  was  inaccurate  models  of  the  antenna  patterns. 

In  fact,  it  was  conjectured  that  the  design  of  angle  rate 
tracking  loop  should  have  incorporated  a more  comprehensive  model  of  the 
antenna  patterns  and  that  this  was  one  source  of  the  tracking  problems  inside 
1.9  miles. 
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All  of  the  above  events  motivated  the  upgrade  of  the  angle 
tracking  loop  in  the  SES  Radar  Simulation  model  which  is  documented  in  Section 
2.2.  The  upgraded  model  was  then  used  to  a limited  extent  to  troubleshoot  the 
poor  angle  rate  performance  found  in  the  flight  data.  Results  of  this 
analysis  are  found  in  Sections  4.2. 

2.2  ANGLE  TRACKING  LOOP  UPGRADES 


2.2.1  Problem  Definition 


As  discussed  in  Section  2.1,  the  original  model  of  the  angle 
tracking  loop  had  two  areas  of  potential  fidelity  problems:  (1)  the  antenna 

pattern  models  and  (2)  the  model  of  the  analog  (servo)  electronics.  In  the 
original  model,  the  antenna  patterns  were  represented  by  closed-form  equations 
because  there  was  insufficient  antenna  pattern  measurement  data  available. 
The  original  model  of  the  servo  electronics,  while  simple,  represented  a 
reasonable  tradeoff  in  model  complexity.  At  the  time,  the  attitude  of  the 
model  developers  was  to  use  these  simple  models  of  the  antenna  pattern  and 
servo  electronics  and  compare  their  performance  against  the  flight  data,  when 
it  became  available.  The  first  radar  flight  data  that  became  available  was 
the  shuttle  rendezvous  with  SMMS  in  April  of  1984.  It  indicated  the  angle 
rate  tracker  performance  was  noiser  than  expected,  while  the  simulation  showed 
the  angle  rate  tracker  performance  to  be  well  within  the  maximum  noise 
specification.  As  noted  in  Section  2.1,  an  investigation  of  the  antenna 
pattern  fidelity  effects  on  the  angle  rate  tracking  performance,  documented  in 
References  6 and  7,  showed  that  the  simple  antenna  pattern  model  was  a 
significant  contributor  to  the  errors  in  performance  estimates.  The  angle 
rate  tracker  modifications  developed  during  this  investigation  served  as  the 
basis  for  the  SES  model  upgrade  documented  in  this  section. 

Prior  to  the  project  reported  upon  herein,  the  effects  of  a more 
accurate  servo  model  had  not  been  investigated.  However,  some  servo  model 
enchancements  were  investigated  on  the  present  project  as  part  of  a larger 
analysis  of  the  angle  rate  tracking  loop  performance  problems.  Results  of  the 
angle  rate  tracking  loop  analysis  and  the  potential  servo  model  enchancements 
are  documented  in  Section  4.2. 
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2.2.2 


Definition  of  Algorithm  Modifications 


The  angle  tracking  loop  algorithm  was  modified  in  two  areas:  (1) 
the  antenna  patterns  module  and  (2)  digital  portion  of  the  track  loop  filter. 
Changes  in  the  antenna  patterns  module  were  major  revisions,  while  the  changes 
in  the  digital  hardware  section  were  relatively  minor. 

2. 2. 2.1  Pattern  Model  Changes 

The  original  antenna  patterns  were  modeled  . by  analytic 
equations.  The  sum  pattern  was  modeled  as  a surface  of  revolution  about  the 
antenna  boresight  with  a shape  given  by  the  expression 

(2-1)  sum pat  * sin(bx)/bx 

where  the  constant  b was  chosen  so  that  the  pattern  model  beamwidth  matched 
the  beamwidth  of  the  measured  data.  The  difference  pattern  was  modeled  as 
the  derivative  of  the  sum  pattern  and  was  given  by  the  equation 

(2-2)  difpat  * a(bcos(bx)-sin(bx) )/(bx) 

The  constant  a is  chosen  to  place  the  100  percent  pattern  modulation  point  at 
the  proper  angle  off  boresight.  This  model  of  the  sum  and  difference  patterns 
assumed  (1)  an  infinite  null  depth  on  boresight,  and  (2)  the  phasing  between 
the  sum  and  difference  channel  was  either  0 or  180  degrees  with  an 
instantaneous  phase  transition  on  boresight. 

The  updated  antenna  pattern  models  use  an  extensive  set  of 
measured  data  with  interpolation  between  data  points,  rather  than  closed-form 
equations.  Data  measurements  were  taken  for  five  parameters:  sum  channel 
gain,  elevation  difference  channel  gain,  sum-to-elevation  difference  channel 
phase,  azimuth  difference  channel  gain,  and  sum-to-azimuth  difference  channel 
phase.  Data  was  measured  on  an  8 degree  by  8 degree  grid  in  azimuth  and 
elevation  with  a resolution  of  0.2  degrees.  Data  sets  exist  for  radar 
transmit  frequencies:  1 (13.779  GHz),  3 (13.883  GHz)  and  5 (13.987  GHz). 
However,  to  conserve  memory,  only  the  data  for  transmit  frequency  1 is  used 
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for  all  five  frequency  slots  In  the  simulation.  This  model  of  the  antenna 
patterns  was  first  developed  for  the  angle  tracking  performance  investigation 
reported  in  References  6 and  7.  In  that  case,  bicubic  spline  interpolation 
was  used  to  generate  the  sum  pattern  gain  values  and  both  sum-to-difference 
channel  phase  values,  while  linear  interpolation  was  used  to  generate  the 
difference  channel  gain  values.  Three  dimensional  plots  (from  Reference  6)  of 
the  resulting  patterns  are  shown  in  Figure  2.2-1  through  2.2-5.  These  new 
antenna  pattern  models  are  quite  accurate  and  provide  the  following  important 
features:  finite  null  depth  on  boreslght  and  non-ins tan taneous  phase 
transition  through  boreslght.  Initially,  the  antenna  model  described  above 
was  installed  in  the  SES  simulation.  However,  it  was  found  that  the  bicubic 
spline  interpolation  was  causing  the  simulation  to  run  far  too  slowly.  This 
violated  the  real-time  run  constraint  applied  to  original  simulation 
development.  To  improve  program  speed,  an  investigation  into  the  use  of  two 
dimensional  linear  interpolation  of  all  parameters  was  undertaken.  This 
investigation  surfaced  two  significant  results:  (1)  changes  in  the  angle  and 
angle  rate  tracking  loop  performance  were  minimal  and  (2)  simulation  run  time 
was  significantly  reduced.  The  reduction  in  run  time  was  about  an  order  of 
magnitude,  although  no  official  timing  tests  were  performed. 

2. 2. 2. 2 Digital  Processing  Model  Changes 

These  changes  specifically  apply  to  the  digital  hardware  section 
of  the  angle  tracking  loop  filter  (see  Figure  2.1-2).  This  includes  the 
section  of  the  hardware  from  the  angle  discriminant  output  to  the  input  of  the 
digital-to-analog  converter  (DAC)  in  the  Electronics  Assembly  1 (EA-1).  The 
philosophy  here  was  to  change  this  model  from  an  approximate  representation  of 
the  digital  hardware  to  an  exact  representation.  The  changes  include:  (1) 
performing  finite  bit  multiplication  with  the  exact  digital  constants  used  in 
the  radar,  (2)  performing  finite  bit  addition,  (3)  the  addition  of  saturation 
check  models  at  appropriate  points  in  the  system  model  ,and  (4)  the  addition 
of  a DAC  model  that  converts  input  bits  to  a voltage  which  is  input  to  the 
gimbal  motor  model.  For  comparison,  Figure  2.2-6  shows  the  original  loop 
configuration,  while  Figure  2.2-7  gives  the  upgraded  version  of  the  loop. 
Fidelity  enchancements  provided  by  these  modifications  is  only  second  order  at 
best.  However,  these  changes  do  provide  very  accurate  data  at  intermediate 
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FIGURE  2.2-4  SUM-TO- AZIMUTH  DIFFERENCE  CHANNEL  PHASE  PATTERN 
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FIGURE  2.2-6  ORIGINAL  ANGLE  TRACKING  LOOP  FILTER  MODELS 
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points  throughout  the  digital  hardware  section.  For  example,  the  alpha  error 
voltage  and  beta  error  voltage  are  easily  accessed  test  points  in  the 
actualdigital  hardware.  The  upgraded  loop  model  can  now  compute  similar 
voltage  traces  for  direct  comparison  with  actual  data. 


Figure  2.2-6  gives  a block  diagram  of  the  original  alpha  and  beta 
tracking  loop  filters.  The  equations  describing  those  filters  are  summarized 
below.  The  first  step  is  to  update  the  smoothed  1L0S  azimuth  and  elevation 
rates  using  the  expressions 


(2-3) 


where 


®EL<n) 
%EL  - 
QkZ  - 


K 


eq 

3EL 

3az 


“ y*-1*  + Ts  K eqD  AZ(tt) 

" + Ts  K eqD  EL(n) 

smoothed  target  inertial  LOS  elevation  rate, 
smoothed  target  inertial  LOS  azimuth  rate, 
update  interval, 
loop  constant 

elevation  channel  discriminant 
azimuth  channel  discrimnant 


Next,  the  alpha  and  beta  gimbal  rates  are  updated  with  the  equations 


(2-4) 


where 


a (n) 
/3(n) 

•&»> 

<^Co) 


(cu^x(n)  + sin(/3  ))/cos/3 


- Wgy(n) 


®AZ(ll)  + Ke,T  T.  DAZ(n> 

Vn)  + KeqT  Ts  DEL(n) 


X-component  of  body  inertial  angular  velocity  at  time 
sample  n expressed  in  L-coordinates . 


Finally,  the  new  alpha  and  beta  gimbal  positions  are  computed  from  the 
expressions 


(2-5) 


a(n)  ■ a(n-l)  + T x ot(n) 

® * 

/3(n)  - /3(n-l)  + Tg  x /3(n) 
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Figure  2.2-7  gives  the  block  diagrams  for  the  upgraded  alpha  and  beta  angle 
tracking  loop  filter  models.  The  equations  defining  this  upgraded  algorithm 
are  defined  as  follows.  The  smoothed  ILOS  azimuth  and  elevation  rates  are 
given  by 


(2-6) 


where 


L(u)  - Vl  (n> 

V(,)  ’ Vi (n> 

E’^n)  - E^n-D+k^^Cn) 

E (n)  - SAT(E»  (n),215) 

fy.  *>7 


SAT(x.y) 


x , x < y 
-y,  x < -y 


Similar  expressions  hold  for  A^(n)  and  A'^(n).  The  so-called  alpha  rate 
error  (A^)  and  beta  rate  error  (B^)  voltages  (at  the  DAC  output)  are  given 
by  the  expression 

(2-7)  E3(n)  - k4SAT(E1(n)+k2DEL(n),215)/32 

A3(n)  - k4SAT(A1(n)+k2DAZ(n),215)/32 

Then,  the  predicted  alpha  beta  gimbal  rates  are  expressed  as 


L L L 

(2-8)  a (n)  ■ ( aJTX^n^+  sin^/3  ))/cos(  )9  ) - wgX 

. L L 

£ (n)  - ( <*>TY(n)-^Y(n) 

where  L 

wTX(n)  - ksA3(n)  T$ 

L 

^^(n)  ■ k5E3(n)T3 


The  final  step  in  the  modified  algorithm  is  to  update  the  position  of  the 
alpha  and  beta  gimbals.  This  step  is  identical  to  the  original  algorithm  and 
is  given  by  equation  (2-5). 
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The  constants  k^,  and  k^  in  equations  (2-6)  through  (2-8)  do  not 
change  as  a function  of  bandwidth.  Values  for  these  constants  are  summarized 
in  Table  2.2-1  below.  The  constants  k£  and  k^  differ  for  the  alpha  and 
beta  tracking  loops  and  change  with  angle  tracker  bandwidth.  Values  for  these 
constants  are  given  in  Table  2.2-2. 


TABLE  2.2-1  ANGLE  TRACKER  CONSTANTS 
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TABLE  2.2-2  k2  AND  k3  VALUES 


f 

9 

1 

» 

t 

t 

1 

» 

9 

32k2 

f 

• 32k3 

t 

9 

9 

9 

t 

t 

f 

PRF,  kHz 

9 

’ Range,  nm 

» 

f 

f 

f 

a 

P 

t 

t 

, a 

P 

♦ 

f 

9 

« 

t 

7 

f 

' 1.9 

f 

9 

662 

866 

t 

• 13 

16 

9 

9 

t 

7 

' 1.9  to  3.8 

9 

407 

532 

• 5 

6 

9 

1 

7 

' 3.8  to  8.2 

9 

149 

195 

• 1 

1 

9 

9 

» 

3 

• 8.2 
f 

» 

» 

149 

195 

’ 1 
9 

2 

9 

9 

2.2.3  Software  Design  Documentation 

The  changes  described  in  the  previous  subsection  affected  the 
following  existing  subroutines:  SIGNAL  and  ATRACK.  Changes  in  the  sum  and 

difference  channel  signal  amplitude  computation  were  incorporated  into 
SIGNAL.  The  changes  in  the  digital  hardware  section  of  the  loop  filter, 
documented  by  equations  (2-6)  through  (2-8),  were  incorporated  into  ATRACK. 
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Some  remarks  about  the  listings  which  will  be  presented  below, 
and  throughout  this  section,  are  appropriate  at  this  time  as  an  aid  to  their 
interpretation.  The  "original"  or  "baseline"  versions  of  the  subroutines  are 
those  which  were  present  in  the  baseline  simulation  program  HACSIM.  The 
"final"  or  "modified"  versions  are  those  which  appear  in  the  deliverable 
program  FINSIM1.  The  listings  of  the  difference  between  the  baseline  and 
deliverable  versions  of  the  subroutines  include  both  those  lines  which  were 
deleted  from  the  original  program,  and  those  which  were  added  to  form  the 
final  program.  The  line  numbers  identifying  the  deleted  lines  refer  to  lines 
in  the  original  subroutine  and  the  line  numbers  which  appear  next  to  the  added 
lines  refer  to  lines  in  the  final  version  of  the  subroutine. 

Figure  2.2-8  is  a listing  of  the  original  version  of  SIGNAL  as  it 
existed  in  the  baseline  program  HACSIM.  Figure  2.2-9  is  a listing  of  the 
modified  version  of  SIGNAL  which  is  in  the  deliverable  program  FINSIM1. 
Figure  2.2-10  is  a summary  of  the  differences  between  the  subroutines. 

Figure  2.2-11  is  a listing  of  the  original  version  of  ATRACK. 
Figure  2.2—12  is  a listing  of  the  modified  version  of  ATRACK.  Figure  2.2-13 
is  a listing  of  the  differences  between  the  two  subroutines. 

Modifications  to  the  angle  rate  tracking  loop  required  the 
generation  of  three  new  routines:  KSAT,  READPAT,  and  INTERP.  KSAT  is  a 

generalized  routine  that  checks  for  saturation  of  a digital  signal.  Inputs 
include  the  untested  signal  of  interest  and  the  desired  saturation  level.  The 
output  is  the  tested  (and  possibly  modified)  signal.  READPAT  is  the 
subroutine  that  is  used  to  read  the  measured  antenna  pattern  data  into  the 
appropriate  common  blocks.  This  subroutine  is  executed  only  one  time,  and 
this  is  upon  the  first  call  to  the  subroutine  INTERP.  Subroutine  INTERP 

computes  the  sum  pattern  gain,  the  azimuth  difference  pattern  gain,  the 
elevation  difference  pattern  gain,  the  sum-to-elevation  difference  channel 
phase,  and  the  sum-to-azimuth  difference  channel  phase  for  a given  pair  of 
azimuth  and  elevation  angles.  As  mentioned  in  the  previous  subsection,  the 
values  are  computed  using  two  dimensional  linear  interpolation  and  the 
measured  data.  The  inputs  to  the  subroutine  are  the  azimuth  and  elevation 
angle.  The  data  computed  by  the  subroutine  is  passed  back  to  the  calling 
program  via  a labeled  common  block. 
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ORIGINAL  J3 


C 00020040 

C 00020050 

C • THIS  SUBROUTINE  GENERATES  THE  NOISE-FREE  ANGLE.  RANGE.  VELOCITY  * 00020060 

C • AND  0N-TARGET  DISCRIMINANT  COMPONENTS.  • 00020070 

C 00020080 

C 00020090 

C 00020100 

SUBROUTINE  SIGNAL  00020110 

REAL  I ROOT, IRNG  00020115 

COMMON  /CNTL/IPWR, I MODE, ITXP, IASM, IDUMC(5) ,DUMC(3)  00020120 

COMMON  /OUTPUT/I 1DUM(3) .SRNG.DUM1  (6), I0UM2(4)  00020130 

COMMON  /ICNTL/IDUM5(13) .MTKINT .MRNG.MSAM.MPRF.MBKTRK.MBTSUM,  00020140 

2 MBT(8)  00020150 

COMMON  /TGTDAT/NT,RAU(3, 100) ,RANGE(100) ,RADVEL(100) ,RO(3) , 00020160 

2 ROU(3) .CGRNGE.CGVEL  00020170 

COMMON  /SATDAT/RADAR(3) ,N20,RT(70,3) ,SIG(70)  00020180 

COhMON  /RTDAT/IRDOT, IRNG,DUM2(5)  ,MDF(5)  00020190 

COMMON  /SIGDAT/SPAZ, SMAZ.SPEL.SMEL. EARLY. LATE. OF1 .DF5.  00020200 

2 DF2.DF4.SIGBAR  00020210 

COtAWN  /XFORMS/TLB(3.3),TLBD(3,3).TLT(3.3).TLTD(3.3)  00020220 

COMPLEX  CSUM , CD I FAZ . CD I FE L , CEAR LY , C LAT E , CDF 1 . CDF5 , CDF2 . CDF4 , 00020230 

2 DFWTS. PHASE. PHASE1 .DOPFIL  00020240 

DIMENSION  CTP( 10 , 2) . DFWTS(5 , 100) , ALAM(5) .ALAMO (3) ,NFREQ(2)  00020250 

DAT  A CTP/9 . . 033 1 8 . 9 . 799E-4 . 4. . 033 1 8 . 1 . 9599E-3 . 9 . 8E-4 . 4 . 9E-4 . 00020270 

2 2»2.45E— 4,1 .225E— 4/  00020280 

DATA  NFREQ/1 , 5/ .ALAM/1 77 . 3733 , 176 . 0447 . 178 . 7149. 176. 7089  . 00020290 

2 178.0393/ .ALAMD/1 . 272461 E— 2 . 2 . 969089E— 2.3 . 309023E— 1/  00020300 

REAL  LATE  00020310 

C 00020320 

C 00020330 

C • STEP  1:  PRELIMINARY  COMPUTATIONS  AND  PARAMETER  INITIALIZATION  • 00020340 

C 00020350 

C 00020360 

C STEP  1-1 : INITIALIZE  DISCRIMINANT  COMPONENTS  (NOTE:  THESE  ARE  THE  00020370 

C COMPONENT  SIGNALS  AFTER  SQUARE-LAW  DETECTION).  00020380 

SPAZ»0 . 0 00020390 

SMAZ-0.0  00020400 

SPEL-0 . 0 00020410 

SMEL*0 . 0 00020420 

EAR  LY«0 . 0 00020430 

LATE-0 . 0 00020440 

OF1-0.0  00020450 

DF5-0 . 0 00020460 

DF2-0.0  00020470 

DF4-0.0  00020480 

SIGBAR-0.0  00020490 

C 00020500 

NFMAX«NFREQ( IMOOE)  00020510 

DO  55  I-1.NFMAX  00020520 

C 00020530 
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C STEP  1-2:  INITIALIZE  COMPLEX  DISCRIMINANT  COMPONENTS  BEFORE  EACH  00020540 

C XMIT  FREOUENCY  (NOTE:  THESE  ARE  THE  COMPONENT  SIGNALS  00020550 

C BEFORE  SQUARE- LAW  DETECTION).  00020560 

CSUKH  0 . , 0 . ) 00020570 

CDIFAZ-(0. ,0. ) 00020580 

CDIFEL-(0.,O.)  00020590 

C EAR  LY- ( 0 . , 0 . ) 00020600 

CLATE«(0. ,0. ) 00020610 

CDF1«(0.,0.)  00020620 

CDF5-(0. .0. ) 00020630 

CDF2« ( 0 . , 0 . ) 00020640 

CDF4-( 0 . , 0 . ) 00020650 

D045K-1.NT  00020660 

C 00020670 

IF(I.GT.I)  GO  TO  35  00020680 

C 00020690 

C 00020700 

C . STEP  2:  COMPUTE  SUM  CHANNEL  MULTIPLICATION  FACTOR  FOR  KTH  * 00020710 

C . SCATTERER.  * 00020720 

C 0002073 0 

C 00020740 

C STEP  2-1:  COMPUTE  SUM  PATTERN  ANGLE.  0002075 0 

PS  I «ACOS ( ABS ( RAU  ( 3 , K) ) ) 00020760 

C 00020770 

C STEP  2-2:  COMPUTE  ANTENNA  SUM  PATTERN  MULTIPLICATION  FACTOR.  00020780 

X*SPAT ( PS I ) 00020790 

C 00020800 

C STEP  2-3:  COMPUTE  SUM  CHANNEL  MULTIPLICATION  FACTOR.  00020810 

XX-SIG(K)»X  00020820 

C NOTE:  IF  IN  ACTIVE  MODE  SET  XX-1.0.  00020830 

IF( IMODE . EQ. 1 ) XX-1.0  0002084 0 

S~XX*X  00020850 

C 00020860 

C STEP  2-4:  CHECK  ANTENNA  STEERING  MODE  (IF  IN  GPC-DES  OR  MANUAL  00020870 

C SKIP  STEP  4).  00020880 

IF(IASM.EQ.2.0R. IASM.EQ.4)  GO  TO  20  00020890 

C 00020900 

C 00020910 

C » STEP  3:  COMPUTE  AZ  AND  EL  DIFFERENCE  CHANNEL  MULTIPLICATION  * 00020920 

C « FACTORS  FOR  KTH  SCATTERER.  • 00020930 

C 00020940 

C 00020950 

C STEP  3-1:  COMPUTE  AZ  AND  EL  DIFFERENCE  PATTERN  ANGLES.  00020960 

DELAZ— ASIN(RAU(2,K))  00020970 

DELEL=ASIN(RAU( 1 ,K) ) 0002098 0 

C 00020990 

C STEP  3-2:  COMPUTE  AZ  AND  EL  DIFFERENCE  PATTERN  MULTIPLICATION  00021000 

C FACTORS.  00021010 

Y-DPAT(DELAZ)  00021020 

Z-DPAT(DELEL)  00021030 

C 00021040 

C STEP  3-3:  COMPUTE  AZ  AND  EL  DIFFERENCE  CHANNEL  MULTIPLICATION  00021050 

C FACTORS  (INCLUDE  RCS  AND  SUM  PATTERN  WEIGHTINGS).  00021060 

DAZ-XX.Y  00021070 

DEL-XX.Z  00021080 

C 00021090 

C 00021100 

C • STEP  4:  COMPUTE  RANGE  GATE  WEIGHTING  FOR  KTH  SCATTERER  • 00021110 

C 00021120 

C DEFINITION:  CTP-4 ./(C.PULSEWIDTH)  WHERE  C IS  SPEED  OF  LIGHT.  00021130 

C 00021140 

C STEP  4-1:  COMPUTE  RANGE  GATE  LOCATION  WRT  RANGE  GATE  CENTER.  00021150 

CCCCCCCCCCCCCCCCCCC  MOD  MAR  24  1983  CCCCCCCCCCCCCCCCCC 
20  CONTINUE 
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SRNGX-10.«AINT(0.03125*IRNG) 

DELX-CTP(MRNG, IMODE)*(RANGE(K)-SRNGX)  00021160 

C 00021170 

C STEP  4-2:  COMPUTE  EARLY  AND  LATE  RANGE  GATE  WEIGHTINGS  FOR  00021180 

C KTH  SCATTERER.  00021190 

I I«INT( (DELX+7. )/2. ) 00021200 

IF(II.LE.I)  1 1—1  00021210 

IF(II .GE.5)  1 1—5  00021220 

GO  TO  (21, 22, 23. 24, 21), 1 1 00021230 

21  RGE-0.0  00021240 

RGL-0.0  00021250 

GO  TO  25  00021260 

22  RGE-3.+DELX  00021270 

RGL-0.0  00021280 

GO  TO  25  00021290 

23  RGE-1.-DELX  00021300 

RGL-1.+DELX  00021310 

GO  TO  25  00021320 

24  RGE-0.0  00021330 

RGL-3.-OELX  00021340 

C 00021350 

C STEP  4-3:  COMPUTE  RANGE  GATE  WEIGHT  FOR  NON-RANGE  DISCRIMINANT  00021360 

C COMPONENTS.  00021370 

25  RGWGT-0.5*(RGL+RGE)  00021380 

C 00021390 

C STEP  4-4:  APPLY  RANGE  GATE  WEIGHTING  TO  SUM  AND  DIFFERENCE  00021400 

C CHANNEL  MULTIPLICATION  FACTORS.  00021410 

RGE-S*RGE  00021420 

RGL-S.RGL  00021430 

S-S*RGWGT  00021440 

DAZ-DAZ*RGWGT  00021450 

DEL-OEL»RGWGT  00021460 

C 00021470 

C ............................................  00021480 

C • STEP  5:  COMPUTE  DOPPLER  FILTER  PHASE  SHIFT  ANO  WEIGHTING  FOR  KTH  • 00021490 

C • SCATTERER.  NOTE:  THIS  CALCULATION  IS  INDEPENDENT  OF  XMIT  • 00021500 

C • FREQUENCY  AND  ASSUMES  NO  ACCELERATION  OVER  DATA  CYCLE.  • 00021510 

C 00021520 

C 00021530 

C DEFINITION:  A LAMD(MPRF)-2. *PI/(PRF* LAMBDA)  00021540 

C DEFINITION:  THE  CONSTANT  0. 196348-PI/I 6 . 00021550 

C ' 00021560 

C STEP  5-2:  COMPUTE  DOPPLER  FREQUENCY  CORRESPONDING  TO  RADIAL  VELOCITY  00021570 

C OF  KTH  SCATTERER.  00021580 

FDT— 2.«ALAMD(MPRF).RADVEL(K)  00021590 

C 00021600 

C STEP  5-3:  COMPUTE  DOPPLER  FILTER  WEIGHTING  FOR  EACH  OF  FIVE  DOPPLER  00021610 

C TRACKING  FILTERS.  00021620 

DO  30  J-1,5  00021630 

ARG-0. 196348«M0F(J)— FDT  00021640 

30  DFWTS(J.K)-OOPFIL(ARG)  00021650 

C 00021660 

C 00021670 

C • STEP  6:  COMPUTE  PHASE  FACTOR  ASSOCIATED  WITH  KTH  SCATTERER  RANGE  • 00021680 

C • (NOTE:  PHASE  IS  REFER ENCD  TO  PHASE  ASSOCIATED  WITH  RANGE  • 00021690 

C * OF  TARGET  C.G.)  • 00021700 

C 00021710 

C 00021720 

C DEFINITION:  RANGE(K)  IS  RANGE  OF  KTH  SCATTERER  TO  ANTENNA  PHASE  CENTR00021730 

C DEFINITION:  ALAM-4 . *P I /LAMBDA  WHERE  LAMBDA  IS  XMIT  FREQUENCY.  00021740 

C 00021750 

C STEP  6-1:  COMPUTE  PHASE  REFERENCED  TO  TARGET  C.G.  00021760 

35  DELPSI«ALAM(I).(RANCE(K)-CGRNCE)  00021770 

C 00021780 
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STEP  6-2:  COMPUTE  PHASE  FACTOR.  I.E.  EXP( J*DELPHI ) . 

PHAS  E-CEXP  (CMP  LX(0. .DELPSI)) 

PHASE1-PHASE 

STEP  6-3:  COMBINE  RANGE  PHASE  FACTOR  AND  DOPPLER  FILTER 
WEIGHT  AND  PHASE  FACTOR. 
PHASE«PHASE*DFWTS(3.K) 


STEP  7:  ADD  ( VECTORIALLY)  KTH  SCATTERER  CONTRIBUTION  TO  EACH 
DISCRIMINANT'S  COMPONENT  SIGNALS. 


STEP  7-1:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  SUM  CHANNEL  SIGNAL. 
CSUM«CSUM+S*  PHASE 


STEP  7-2: 


CHECK  ANTENNA  STEERING  MODE  — 
GPC-DES  OR  MANUAL  MODE. 

I F ( I ASM . EQ . 2 . OR . I ASM . EQ . 4 ) GO  TO  40 


SKIP  STEP  8-3  IF  IN 


STEP  7-3: 


ADD  KTH  SCATTERER  CONTRIBUTION  TO  AZ  AND  EL  DIFFERENCE 
CHANNELS  SIGNALS. 

CD I F AZ*CD I F AZ+DAZ  * PH AS  E 
CDIFEL*CDI FEL+DEL*PHASE 


STEP  7-4: 


40 


ADD  KTH  SCATTERER  CONTRIBUTION  TO  RANGE  DISCRIMINANT 
COMPONENT  SIGNALS. 

C EAR  L Y*C  EAR  LY+RG E * PHAS  E 
C LAT  E*C  LAT  E+RG L * PHAS  E 


00021790 
00021800 
00021810 
00021820 
00021830 
00021840 
00021850 
00021860 
00021870 
00021880 
00021890 
00021900 
00021910 
00021920 
00021930 
00021940 
00021950 
00021960 
00021970 
00021980 
00021990 
00022000 
00022010 
00022020 
00022030 
00022040 
00022050 
00022060 
00022070 
00022080 
00022090 
00022100 
00022110 
00022120 
00022130 
00022140 
00022150 
00022160 
00022170 
00022180 
00022190 
00022200 
00022210 
00022220 
00022230 
00022240 
00022250 
00022260 
00022270 
00022280 
00022290 
00022300 
00022310 
00022320 
00022330 
00022340 
00022350 
00022360 
00022370 
00022380 

STEP  8-4:  COMPUTE  RANGE  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW  DETECT00022390 
50  EAR  LY-EAR  L Y+CABS  ( CEAR  LY ) * * 2 00022400 

LATE*LATE+CABS(CLATE)**2  00022410 

00022420 


STEP  7-5:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  VELOCITY  DISCRIMINANT 
COMPONENT  SIGNALS. 

PHASE 1-PHASE1*S 
CDF2-CDF2+PHASE1  ♦DFWTS(2 , K) 

CDF4-CDF4+PHASE 1 *DFWTS ( 4 , K ) 

STEP  7-6:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  ON-TARGET  DISCRIMINANT 
COMPONENT  SIGNALS. 

CDF1«CDF1+PHASE1*DFWTS(1 ,K) 

CDF5-CDF5+PHASE1 *DFWTS(5 ,K) 

45  CONTINUE 


• STEP  8: 


STEP  8-1 


FORM  NOISE-FREE  ANGLE.  RANGE.  VELOCITY.  AND  ON-TARGET 
DISCRIMINANT  COMPONENTS  AT  ITH  FREQUENCY  AND  SOUARE 
LAW  DETECT  THESE  COMPONENTS. 


CHECK  ANTENNA  STEERING  MODE  — 
IF  IN  GPC-DES  OR  MANUAL. 

I F ( I ASM . EQ . 2 . OR . I ASM . EQ . 4 ) GO  TO  50 


SKIP  STEPS  9-2  AND  9-3 


STEP  8-2-  COMPUTE  AZ  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW  DETECT. 
SPAZ*SP AZ+CABS  ( CSUM+CD I F AZ  ) * * 2 
SMAZ-SMAZ+CABS  ( CSUM-CD 1 FAZ  ) * • 2 

STEP  8-3:  COMPUTE  EL  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW  DETECT. 
SPEL-SPEL+CABS  ( CSUM+CD  I FEL  ) * • 2 
SMEL-SMEL+CABS  ( CSUM-CD  I FEL)  * * 2 
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STEP  8—5:  COMPUTE  VELOCITY  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW 
DETECT . 

DF2»DF2+CABS(CDF2)**2 
DF4— DF4+CABS(CDF4) **2 

STEP  8—6:  COMPUTE  ON-TARGET  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW 
DETECT . 

DF 1 -OF 1 +CABS (CDF1 )**2 
DF5-DF5+CABS(CDF5)**2 


* STEP  9:  COMPUTE  EFFECTIVE  CROSS-SECTION  AVERAGED  OVER  PROPER  * 

• NUMBER  OF  TRANSMIT  FREQUENCIES. 


S I GBAR-S I GBAR+CABS ( CSUM ) • * 2 
55  CONTINUE 

S I GBAR-S I GBAR/F  LOAT ( NFREQ ( IMODE) ) 

NOTE:  DEBUGGING  PRINT  STATEMENTS 
WRITE(6,900)  (I.SIG(I),  1-1  .NT) 

900  FORMAT  ( ' I.SIG  -M8.F14.4) 

WRITE(6. 902)  NT . S , DAZ , DEL , RGE , RGL . RGWGT , MDF(3) 

WRITE(6 , 901 ) DFWTS( 1 ,K) ,DFWTS(2 , K) ,DFWTS(3. 1 ) .DFWTS(4, 1 ) , 
2 DFWTS(S.I) 

902  FORMAT ( ' NT  .S. DAZ. DEL. RGE. RGL. RGWGT.  F3  -M5.6F10.2. 15) 

901  FORMAT ( ' DF  WTS  -'.10F12.4) 

RETURN 

END 
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• THIS  SUBROUTINE  GENERATES  THE  NOISE-FREE  ANGLE.  RANGE.  VELOCITY  * 

* AND  0N-TARGET  DISCRIMINANT  COMPONENTS.  * 


SUBROUTINE  SIGNAL 
REAL  IRDOT.IRNG 

COMMON  /CNTL/IPWR.  IMOOE,  ITXP,  I ASM.  IDUMC(5)  . DUMC(3) 

COMMON  /OUTPUT/ 1 1 DUM ( 3 ) , SRNG , DUM 1 ( 6 ) , I DUM2  ( 4 ) 

COMMON  /ICNTL/IDUM5(13).MTKINT,MRNG.MSAM.MPRF.MBKTRK.MBTSUM. 
2 MBT(8) 

COMMON  /TGTD AT/NT. RAU(3. 100)  .RANGE (100)  .RADVEL(100)  .RO(3)  . 

2 ROU(3“)  .CGRNGE.CGVEL 

COMMON  /SATDAT /RADAR  ( 3 ) . N20 . RT  ( 70 , 3 ) . S I G ( 70  ) 

COMMON  /RTDAT/IRDOT.  IRNG,DUM2(5)  ,MDF(5) 

COMMON  /SIGDAT/SPAZ . SMAZ . SPEL.  SMEL . EARLY , LATE . DF1  . DF5 , 

2 DF2.DF4 , SIGBAR 

C0U40N  /XFORMS/TLB(3 ,3) , TLBD(3 ,3) . TLT(3 .3) . TLTD(3 . 3) 

COMMON  /SUDIPH/  X. Y . Z.PAZ , PEL 

COMPLEX  CSUM , CD  1 FAZ , CD  I FEL , CEARLY , CLATE , CDF  1 , CDF5 , CDF2 , CDF4 , 
2 DFWTS , PHASE , PH AS El .DOPFIL 

DIMENSION  CTP( 10,2) ,DFWTS(5, 100) ,ALAM(5)  ,ALAMD(3)  ,NFREQ(2) 
DATA  CTP/9* . 0331 8.9. 799E-4 , 4* . 03318 . 1 . 9599E-3 , 9 . 8E-4 , 4 . 9E-4 . 
2 2*2 . 45E— 4 , 1 . 225E— 4/ 

DATA  NFREQ/1 . 5/ , A LAM/ 1 77 . 3733 ,176. 0447 .178.7149.176. 7089 . 

2 178. 0393/ , ALAMD/1 . 272461 E-2 . 2 . 969089E-2 , 3 . 309023E-1/ 

real  late 

COMPLEX  DAZ.DEL 
DATA  I LOOP/1/ 


00020040 

00020050 

00020060 

00020070 

00020080 

00020090 

00020100 

00020110 

00020115 

00020120 

00020130 

00020140 

00020150 

00020160 

00020170 

00020180 

00020190 

00020200 

00020210 

00020220 

00020230 

00020240 

00020250 

00020270 

00020280 

00020290 

00020300 

00020310 


MODIFIED  JAN  10  1986  BY  M.  MEYER 
MODIFICATIONS  TO  SUBROUTINE  SIGNAL  INCLUDE 
CALCULATION  OF  THE  AZIMUTH  AND  ELEVATION  ANGLES 
USE  OF  MEASURED  ANTENNA  PATTERNS  INSTEAD 
OF  FUNCIONS  SPAT  AND  DP AT  AND  A 
FACTOR  IN  THE  DIFFERENCE  CHANNELS  SIGNAL 
WHICH  ACCOUNTS  FOR  THE  FINITE  WIDTH  PHASE 
TRANSITION  IN  THE  REAL  PHASE  PATTERNS. 


* STEP  0:  READ  IN  ANTENNA  PATTERNTERNS  AND  SET  PHASE  BALANCE  * 


IF  ( I LOOP . NE . 1 ) GO  TO  11 


rh£CEDlNG  PAGE  BLANK  NOT  FLMED 
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CALL  READPAT 
PBAL-0 . 

I LOOP-0 

11  CONTINUE 

C 00020320 

C 00020330 

C » STEP  1:  PRELIMINARY  COMPUTATIONS  AND  PARAMETER  INITIALIZATION  . 00020340 

C 00020350 

C 00020360 

C STEP  1-1:  INITIALIZE  DISCRIMINANT  COMPONENTS  (NOTE:  THESE  ARE  THE  00020370 

C COMPONENT  SIGNALS  AFTER  SQUARE-LAW  DETECTION).  00020380 

SPAZ-0 . 0 00020390 

SMAZ-0 . 0 00020400 

SPEL-0.0  00020410 

SMEL-0 . 0 00020420 

EARLY— 0 . 0 00020430 

LATE-0 . 0 00020440 

DF1-0.0  00020450 

DF5-0 . 0 00020460 

DF2-0 . 0 00020470 

DF4-0 . 0 00020480 

SIGBAR-0.0  00020490 

C 00020500 

NFMAX-NFREQ(IMODE)  00020510 

DO  55  1-1 .NFMAX  00020520 

C 00020530 

C STEP  1-2:  INITIALIZE  COMPLEX  DISCRIMINANT  COMPONENTS  BEFORE  EACH  00020540 

C XMIT  FREQUENCY  (NOTE:  THESE  ARE  THE  COMPONENT  SIGNALS  00020550 

C BEFORE  SQUARE-LAW  DETECTION).  00020560 

CSUM-( 0 . , 0 . ) 00020570 

CDIFAZ— (0. ,0  ) 00020580 

CDIFEL— (0. .0. ) 00020590 

C EARLY— (0  , 0 . ) 00020600 

CLATE— (0 . .0 . ) 00020610 

CDF1— (0  ,0.)  00020620 

CDF5— (0,0.)  . 00020630 

CDF2*(0. .0. ) ' 00020640 

CDF4-(0. ,0. ) 00020650 

DO  45  K— 1 ,NT  00020660 

C 00020670 

IF(I.GT.I)  GO  TO  35  00020680 

C ' 00020690 

C 00020700 

C * STEP  2:  COMPUTE  SUM  CHANNEL  MULTIPLICATION  FACTOR  FOR  KTH  . 00020710 

C * SCATTERER.  * 00020720 

C 00020730 

C 00020740 

C STEP  2-1:  COMPUTE  AZIMUTH  AND  ELEVATION  ANGLE.  00020770 

AZ-AT AN2D ( R AU ( 2 , K ) , ABS ( RAU (3,K))) 

E L— AT  AN2D ( RAU ( 1 , K ) , ABS ( RAU ( 3 , K ) ) ) 

C STEP  2-2:  COMPUTE  ANTENNA  SUM.  DIFFERENCE  AND  PHASE  FACTORS  00020780 

CALL  INTERP(AZ.EL)  00020790 

C 00020800 

C STEP  2-3:  COMPUTE  SUM  CHANNEL  MULTIPLICATION  FACTOR.  00020810  ' 

XX-SIG(K).X  00020820 

C NOTE:  IF  IN  ACTIVE  MODE  SET  XX-1.0.  00020830 

IF(IMODE.EQ.I)  XX-1 .0  00020840 

S— XX»X  00020850 

C 00020860 

C STEP  2-4-  CHECK  ANTENNA  STEERING  MODE  (IF  IN  GPC-DES  OR  MANUAL  00020870 

C SKIP  STEP  4).  00020880 

1 F(  1 ASM . EQ . 2 . OR . 1 ASM . EQ . 4)  GO  TO  20  00020890 

C 00020900 

C 00020910 
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oooooooooooo  ooo  ooo  ooo  oooooooo  oooooooo 


* STEP  3:  COMPUTE  AZ  AND  EL  DIFFERENCE  CHANNEL  MULTIPLICATION  ♦ 

* FACTORS  FOR  KTH  SCATTERER.  ♦ 


STEP  3-3:  COMPUTE  AZ  AND  EL  DIFFERENCE  CHANNEL  MULTIPLICATION 
FACTORS  (INCLUDE  RCS  AND  SUM  PATTERN  WEIGHTINGS). 
AND  PHASE  DIFFERENCE  AND  BALANCE  WEIGHTINGS 
DAZ-XX • Y*CMPLX  ( COSD ( PAZ+PBAL) , S I ND ( PAZ+PBAL)  ) 
DEL«XX*Z*CMPLX(COSD(PEL+PBAL),SIND(PEL+PBAL)) 


* STEP  4:  COMPUTE  RANGE  GATE  WEIGHTING  FOR  KTH  SCATTERER  * 

DEFINITION:  CTP-4./(C*PULSEWIDTH)  WHERE  C IS  SPEED  OF  LIGHT. 

STEP  4-1:  COMPUTE  RANGE  GATE  LOCATION  WRT  RANGE  GATE  CENTER. 
CCCCCCCCCCCCCCCCCC  MOD  MAR  24  1983  CCCCCCCCCCCCCCCCCC 


00020920 

00020930 

00020940 

00020950 

00021040 

00021050 

00021060 

00021070 

00021080 

00021090 

00021100 

00021110 

00021120 

00021130 

00021140 

00021150 


20  CONTINUE 

SRNGX-10. *AINT(0.03125*IRNG) 
DELX«CTP(MRNG,IMODE)*(RANGE(K)-SRNGX) 

STEP  4-2:  COMPUTE  EARLY  AND  LATE  RANGE  GATE  WEIGHTINGS  FOR 
KTH  SCATTERER. 

1 1 * I NT ( ( DELX+7 . )/2 . ) 

IF(II.LE.I)  1 1-1 
I F( 1 1 .GE. 5)  1 1-5 
GO  TO  (21 .22 ,23,24,21 ) ( 1 1 

21  RGE-1.0E-4 
RGL-1 .0E-4 
GO  TO  25 

22  RGE-3.+DELX 
RGL-0.0 

GO  TO  25 

23  RGE-1.-DELX 
RGL-1 .+DELX 
GO  TO  25 

24  RGE-0.0 
RGL-3.-DELX 

STEP  4-3:  COMPUTE  RANGE  GATE  WEIGHT  FOR  NON-RANGE  DISCRIMINANT 
COMPONENTS . 

25  RGWGT—0 . 5*(RGL+RGE) 

STEP 


APPLY  RANGE  GATE  WEIGHTING  TO  SUM  AND  DIFFERENCE 
CHANNEL  MULTIPLICATION  FACTORS. 

RGE-S*RGE 
RGL-S*RGL 
S— S*RGWGT 
D AZ-OAZ  * RGWGT 
DEL-OEL*RGWGT 


• STEP  5:  COMPUTE  DOPPLER  FILTER  PHASE  SHIFT  AND  WEIGHTING  FOR  KTH  • 

• SCATTERER.  NOTE:  THIS  CALCULATION  IS  INDEPENDENT  OF  XMIT  • 

• FREQUENCY  AND  ASSUMES  NO  ACCELERATION  OVER  DATA  CYCLE  • 

DEFINITION  ALAMD(MPRF)— 2.  *P I /(PRF* LAMBDA) 

DEFINITION:  THE  CONSTANT  0. 1 96348-PI/I 6 . 

STEn  5-2.  COMPUTE  DOPPLER  FREQUENCY  CORRESPONDING  TO  RADIAL  VELOCITY 
OF  KTH  SCATTERER. 

FDT— 2 . *ALAMD(MPRF)  *RADVEL(K) 


00021160 

00021170 

00021180 

00021190 

00021200 

00021210 

00021220 

00021230 

00021240 

00021250 

00021260 

00021270 

00021280 

00021290 

00021300 

00021310 

00021320 

00021330 

00021340 

00021350 

00021360 

00021370 

00021380 

00021390 

00021400 

00021410 

00021420 

00021430 

00021440 

00021450 

00021460 

00021470 

00021480 

00021490 

00021500 

00021510 

00021520 

00021530 

00021540 

00021550 

00021560 

000^1570 

00021580 

00021590 
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c 

C STEP  5-3:  COMPUTE  DOPPLER  FILTER  WEIGHTING  FOR  EACH  OF  FIVE  DOPPLER  00021610 

C TRACKING  FILTERS.  00021620 

DO  30  J«1 .5  00021630 

ARO0. 196348«MDF(J)-FDT  00021640 

30  DFWTS( J , K)*D0PF1L(ARG)  00021650 

C 00021660 

C 00021670 

C • STEP  6:  COMPUTE  PHASE  FACTOR  ASSOCIATED  WITH  KTH  SCATTERER  RANGE  • 00021680 

C • (NOTE:  PHASE  IS  REFERENCD  TO  PHASE  ASSOCIATED  WITH  RANGE  • 00021690 

C • OF  TARGET  C.G.)  * 00021700 

C . 00021710 

C 00021720 

C DEFINITION:  RANGE(K)  IS  RANGE  OF  KTH  SCATTERER  TO  ANTENNA  PHASE  CENTR00021 730 
C DEFINITION:  ALAM-4 . «P I /LAMBDA  WHERE  LAMBDA  IS  XMIT  FREQUENCY.  00021740 

C 00021750 

C STEP  6-1:  COMPUTE  PHASE  REFERENCED  TO  TARGET  C.G.  00021760 

35  DELPSI=ALAM( I ) • (RANGE(K)-CGRNGE)  00021770 

C 00021780 

C STEP  6-2:  COMPUTE  PHASE  FACTOR,  I.E.  EXP( J.DELPHI ) . 00021790 

PHASE-CEXP(CMPLX(0. .DELPSI))  00021800 

PHASE 1 “PHASE  00021810 

C 00021820 

C STEP  6-3:  COMBINE  RANGE  PHASE  FACTOR  AND  DOPPLER  FILTER  -3  00021830 

C WEIGHT  AND  PHASE  FACTOR.  00021840 

PHASE«PHASE«DFWTS(3,K)  00021850 

C 00021860 

C 00021870 

C • STEP  7:  ADD  ( VECTORI ALLY)  KTH  SCATTERER  CONTRIBUTION  TO  EACH  « 00021880 

C • DISCRIMINANT'S  COMPONENT  SIGNALS.  • 00021890 

C 00021900 

C 00021910 

C STEP  7-1:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  SUM  CHANNEL  SIGNAL.  00021920 

CSUM-CSUM+S*PHASE  00021930 

C 00021940 

C STEP  7-2.  CHECK  ANTENNA  STEERING  MODE  SKIP  STEP  8-3  IF  IN  00021950 

C GPC-DES  OR  MANUAL  MODE.  00021960 

IF( IASM. EQ. 2.0R . I ASM. EQ. 4)  GO  TO  40  00021970 

C 00021980 

C STEP  7-3:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  AZ  AND  EL  DIFFERENCE  00021990 

C CHANNELS  SIGNALS.  00022000 

CDIFAZ-CDIFAZ+DAZ.PHASE  00022010 

CDIFEL-CDIFEL+DEL*PHASE  00022020 

C 00022030 

C STEP  7-4:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  RANGE  DISCRIMINANT  00022040 

C COMPONENT  SIGNALS.  00022050 

40  CEARLY«CEARLY+RGE*PHASE  00022060 

CLATE-CLATE+RGL* PHASE  00022070 

C 00022080 

C STEP  7-5:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  VELOCITY  DISCRIMINANT  0002209 0 

C COMPONENT  SIGNALS.  00022100 

PHASE1«PHASE1*S  00022110 

CDF2-CDF2+PHASE1 *DFWTS ( 2 . K ) 000221 20 

CDF4-CDF4+PHASE1*DFWTS(4,K)  00022130 

C 00022140 

C STEP  7-6:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  ON-TARGET  DISCRIMINANT  00022150 

C COMPONENT  SIGNALS.  00022160 

CDn«CDF1+PHASE1*DFWTS(1 ,K)  00022170 

CDF5-CDF5+PHASE1 »DFWTS ( 5 , K)  00022180 

45  CONTINUE  00022190 

C 00022200 

C 00022210 

C • STEP  8 FORM  NOISE-FREE  ANGLE,  RANGE,  VELOCITY.  AND  ON-TARGET  • 00022220 

C • DISCRIMINANT  COMPONENTS  AT  ITH  FREQUENCY  AND  SQUARE  • 00022230 


FIGURE  2.2-9  DELIVERABLE'  VERSION  OF  SUBROUTINE  SIGNAL 

PAGE  4 


2-30 


ooo  ooo  ooooo  ooo  ooo  oo  no  oo  ooooo 


LAW  DETECT  THESE  COMPONENTS. 


STEP  8-1 : CHECK  ANTENNA  STEERING  MODE  — 
IF  IN  GPC-DES  OR  MANUAL. 

I F ( I ASM . EQ . 2 . OR . I ASM . EO . 4 ) GO  TO  50 


SKIP  STEPS  9-2  AND  9-3 


00022240 
00022250 
00022260 
00022270 
00022280 
00022290 
00022300 
00022310 
00022320 
00022330 
00022340 
00022350 
00022360 
00022370 
00022380 

STEP  8-4:  COMPUTE  RANGE  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW  DETECT00022390 

00022400 
00022410 
00022420 
00022430 
00022440 
00022450 
00022460 
00022470 
00022480 
00022490 
00022500 
00022510 
00022520 
00022530 
00022540 
00022550 
00022560 
00022570 
00022580 
00022590 


STEP  8-2:  COMPUTE  AZ  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW  DETECT. 
SPAZ-SPAZ+CABS ( CSUM+CD I FAZ ) * *2 
SMAZ-SMAZ+C ABS ( CSUM-CD I FAZ ) * * 2 

STEP  8-3:  COMPUTE  EL  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW  DETECT. 
SPEL«SPEL4CABS(CSUM+CDIFEL)**2 
SMEL-SMEL+CABS  ( CSUM-CD  I FEL)  * *2 


50  EAR  LY-EAR  LY+CABS (CEARLY)**2 
LATE-LATE+CABS ( C LATE ) • * 2 

STEP  8-5:  COMPUTE  VELOCITY  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW 
DETECT. 

DF2-OF2+CABS ( CDF2 ) * *2 
DF4-DF4+CABS(CDF4)**2 

STEP  8-6:  COMPUTE  ON-TARGET  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW 
DETECT . 

DF1«DF1+CABS(CDF1 )**2 
D F5-D  F5+C ABS ( CD  F5 ) * • 2 


• STEP  9: 


COMPUTE  EFFECTIVE  CROSS-SECTION  AVERAGED  OVER  PROPER 
NUM8ER  OF  TRANSMIT  FREQUENCIES. 


S I GBAR-S I GBAR+CABS ( CSUM ) * *2 
55  CONTINUE 

S I GB AR-S I GBAR/ F LOAT ( NFR EQ ( I MOO  E ) ) 


NOTE:  DEBUGGING  PRINT  STATEMENTS 
WRI TE( 6 , 900)  ( I , SIG( I ) , 1-1, NT) 

900  FORMAT  ( * I , SIG  - \I  8 , FI  4 . 4) 

WRITE(  6 , 902'  NT  , S . DAZ  , DEL , RGE , RGL f RGWGT  , MDF ( 3 ) 

WRITE( 6 , 901 ) DFWTS( 1 ,K) , DFWTS(2 , K) , DFWTS(3 , 1 ) ,DFWTS(4, 1) , 
2 DFWTS( 5 , 1 ) 

902  FORMAT ( • NT  , S . DAZ , DEL, RGE , RGL . RGWGT , F3  - \ 15 , 6F10 . 2. 15) 

901  FORMAT ( DF  WTS  - ‘ , 10F1 2 . 4) 

RETURN 
END 

C 


00022610 

00022620 

00022630 

00022640 

00022650 

00022660 

00022670 

00022680 

00022690 

00022700 

00007440 
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LINES  DELETED  FROM  BASELINE  PROGRAM 

35  COMPLEX  CSUM , CD  I FAZ , CD  I FEL , CEARLY , CLATE . CDF  1 , CDF5 . CDF2 , CDF4 , 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

35  COMMON  /SUDIPH/  X.Y.Z.PAZ.PEL 

36  COMPLEX  CSUM, CDIFAZ.CDIFEL, CEARLY. CLATE. CDF1  .CDF5.CDF2.CDF4, 


LINES  DELETED  FROM  BASELINE  PROGRAM 

43  C 

LINES  AODED  TO  DELIVERABLE  PROGRAM 

44  COMPLEX  DAZ.DEL 

45  DATA  I LOOP/1/ 

46  C 

47  C 

48  C 

49  C MODIFIED  JAN  10  1986  BY  M.  MEYER 

50  C MODIFICATIONS  TO  SUBROUTINE  SIGNAL  INCLUOE 

51  C CALCULATION  OF  THE  AZIMUTH  AND  ELEVATION  ANGLES 

52  C USE  OF  MEASURED  ANTENNA  PATTERNS  INSTEAD 

53  C OF  FUNCIONS  SPAT  AND  DP AT  AND  A 

54  C FACTOR  IN  THE  DIFFERENCE  CHANNELS  SIGNAL 

55  C WHICH  ACCOUNTS  FOR  THE  FINITE  WIDTH  PHASE 

56  C TRANSITION  IN  THE  REAL  PHASE  PATTERNS. 

57  C 

58  C 

59  C 

60  C 

61  C • STEP  0:  READ  IN  ANTENNA  PATTERNTERNS  ANO  SET  PHASE  BALANCE  • 

62  C 

63  C 

64 

65 

66 

67 

68  11 
69  C 


IF  ( I LOOP . NE . 1 ) GO  TO  11 
CALL  READPAT 
PBAL-0 . 

I LOOP-0 
CONTINUE 


LINES  DELETED  FROM  BASELINE  PROGRAM 

86  C STEP  2-1:  COMPUTE  SUM  PATTERN  ANGLE. 

87  PSI— AC0S(ABS(RAU(3,K) ) ) 

88  C 

89  C STEP  2-2:  CONFUTE  ANTENNA  SUM  PATTERN  MULTIPLICATION  FACTOR. 

90  X— SPAT (PSI) 

91  C 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 


,'Wi.Ci£W\u  ?Avi£  DLAi'-JK  MOT  FIMED 
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00020230 


00020230 


00020320 


00020320 


00020750 

00020760 

00020770 

00020780 

00020790 

00020800 
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112  C STEP  2-1:  COMPUTE  AZIMUTH  AND  ELEVATION  ANGLE. 

1 1 3 AZ«AT AN2D ( RAU ( 2 , K ) , ABS ( RAU ( 3 , K ) ) ) 

114  EL— ATAN2D(RAU(1 , K ) , ABS ( RAU ( 3 , K ) ) ) 

115  C STEP  2—2 : COMPUTE  ANTENNA  SUM,  DIFFERENCE  AND  PHASE  FACTORS 

116  CALL  INTERP(AZ , EL) 

117  C 


LINES  DELETED  FROM  BASELINE  PROGRAM 

107  C STEP  3-1:  COMPUTE  AZ  AND  EL  DIFFERENCE  PATTERN  ANGLES. 

108  DELAZ— ASIN(RAU(2,K)) 

109  DELEL»ASIN(RAU( 1 »K)) 

110  C 

111  C STEP  3-2:  COMPUTE  AZ  AND  EL  DIFFERENCE  PATTERN  MULTIPLICATION 

112  C FACTORS. 

113  Y«DPAT( DELAZ) 

114  Z-DPAT(DELEL) 

115  C 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 
133  C 


LINES  DELETED  FROM  BASELINE  PROGRAM 

118  DAZ=XX*Y 

119  DEL=XX*Z 

120  C 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

136  C AND  PHASE  DIFFERENCE  AND  BALANCE  WEIGHTINGS 

1 37  D AZ*XX  * Y • CMP  LX ( COSD ( P AZ+PB  A L ) . S I ND ( P AZ+PB A L ) ) 

138  D E L*XX  * Z * CMP  LX ( COSD (PE  L+PB  A L ) , S I ND ( P E L+PB A L ) ) 

139  C 


LINES  DELETED  FROM  BASELINE  PROGRAM 

138  21  RGE-0.0 

139  RGL-0.0 

140  GO  TO  25 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

157  21  RGE*1 . 0E-4 

158  RGL-1.0E-4 

159  GO  TO  25 


LINES  DELETED  FROM  BASELINE  PROGRAM 

174  C 

175  C STEP  5-3:  COMPUTE  DOPPLER  FILTER  WEIGHTING  FOR  EACH  OF  FIVE  DOPPLER 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

193  C 

194  C STEP  5-3:  COMPUTE  DOPPLER  FILTER  WEIGHTING  FOR  EACH  OF  FIVE  DOPPLER 


LINES  DELETED  FROM  BASELINE  PROGRAM 

274  C 

275  C NOTE:  DEBUGGING  PRINT  STATEMENTS 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

293  C 

294  C NOTE:  DEBUGGING  PRINT  STATEMENTS 
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00020770 


00020780 

00020790 

00020800 


00020960 

00020970 

00020980 

00020990 

00021000 

00021010 

00021020 

00021030 

00021040 


00021040 


00021070 

00021080 

00021090 


00021070 

00021080 

00021090 


00021240 

00021250 

00021260 


00021240 

00021250 

00021260 


00021600 

00021610 


00021610 


00022600 

00022610 


00022610 
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LINES  DELETED  FROM  BASELINE  PROGRAM 

279  C WRITE(6,901 ) DFWTS( 1 ,K) ,DFWTS(2,K) .DFY»TS(3, 1 ) ,DFWTS(4, 1 ) . 

280  C 2 DFY*TS(5,1) 

281  902  FORMAT( ’ NT,S.DAZ,DEL,RGE,RGL,RGWGT,F3  -\I5,6F10.2,I5) 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

298  C WRITE(6,901)  DFWTS(1 ,K) ,DFWTS(2,K) ,DFWTS(3. 1 ) ,DFWTS(4, 1 ) , 

299  C 2 DFV*TS(5.1) 

300  9e2  FORMAT(*  NT,S,DAZ,DEL,RGE,RGL,RGWGT,F3  . I5.6F10 .2. 15) 


Number  of  difference  sections  found:  9 
Number  of  difference  records  found:  48 

DIFFERENCES  /IGNORE-()/MERGED-1/OUTPUT»SYS$DISK3: [MCCOLLOUGH]DIFF1 .FOR;  1— 
SYSSDISK3: [MCCOL LOUGH 1SIGNALH.F0R;2- 
SYSSDISK3: [MCCOLLOUGHJSIGNALF . FOR;2 
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00022650 

00022660 

00022670 


00022650 

00022660 

00022670 
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ooo  ooooooooo  ooooo  ooooooooo 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


THIS  SUBROUTINE  UPDATES  AZ  AND  EL  INERTIAL  LOS  RATES,  THE 
ALPHA  AND  BETA  GIMBAL  RATES.  THE  ALPHA  AND  BETA  GIMBAL 
POSITIONS.  AND  THE  TARGET  PITCH  AND  ROLL  ANGLES  FOR  THE 
DISPLAY. 


00025240 

00025250 

00025260 

00025270 

00025280 

00025290 

00025300 

00025310 

00025320 

00025330 

00025335 

00025350 

00025360 

00025370 


SUBROUTINE  ATRACK 
REAL  I NTT , I AZDSC , I ELDSC 
COMMON  /CNTL/IPWR,  I MODE,  IDUMC(7)  ,DUMC(3) 

COMMON  /INPUT/DUM(6).EWB(3),DUM2(18) 

COMMON  /OUTPUT/I 1DUM(3) , D 1 DUM( 2 ) , SPANG , SRANG . SPRTE , SRRTE , SRSS , 

2 IDUM1 (4) .SSALP.SSBET 

COMMON  / 1 CNT  L/ 1 2DUM  (14).  MRNG , MS  AM . MPR  F . I DUM2  (11) 

COMMON  /SYSDAT/TSAM , DR ( 3 ) .CP.SP.PSI  .PSBIAS.ALBIAS.BTBIAS. 

2 DUM4(5) 

COMMON  /ATDAT/CA . SA . CB . SB  . AZRATE . ELRATE . ALRATE . BTRATE . AL . BT . 

2 DUM3(4) 

COMMON  /DSCRM/AZD I SC . ELD I SC , DUM1  ( 7 ) 

DIMENSION  ATI ( 10,2) ,AT2( 1 0,2) , TX1  (3 ,3) ,TX2(3,3) ,TX3(3.3) . TBL(3 , 3)00025450 
DIMENSION  TDC(3) 

DATA  AT1/9*1 . 5529E-3 . 2 . 01 06E-4 . 6*3 . 9750E-3 , 1 . 5529E-3 , 

2 3*2.01 06E-4/ , AT2/9*6 . 5907E-3 , 2 . 3725E-3 . 

3 6*1. 0546E-2 . 6 . 5907E-3 . 3*2 . 3725E-3/ 

DATA  TDC/0 .05122118.0.1195161,0. 256 1 557/ 

DEFINITION:  AT1-KEO-(WN**2)/(4 . *DI FFERENCE  PATTERN  SLOPE)  WHERE 

WN  IS  NATURAL  FREQUENCY  OF  THE  LOOP. 

DEFINITION:  AT2*KEO*TAU  WHERE  TAU  IS  PROPORTIONAL  TO  STEP  RESPONSE 

CONVERGENCE  TIME. 


00025390 

00025400 

00025410 

00025420 

00025430 

00025440 


00025460 

00025470 

00025480 


TCON-TSAM/TDC (MPRF) 


00025490 

00025500 

00025510 

00025520 

00026700 


• STEP  1 : UPDATE  ROUGH  RANGE  RATE  ESTIMATE  • 


• STEP  1:  UPDATE  ANTENNA  LOS-TO-BODY  TRANSFORMATION  (NOTE:  TRANS-  * 

• FORMATION  INCLUDES  GIMBAL  BIAS  ERRORS  AND  RADAR  YAW  • 

• ANGLE  ERROR  WRT  BODY  FRAME).  * 


CALL  GAMMA(TX1 .-(BT+BTBIAS) ) 
CALL  THETA(TX2,— (AL+ALBIAS) ) 
CALL  MULT33(TX2, TX1 ,TX3) 

CALL  PHI (TX2.-PSI) 

CALL  MULT33(TX2, TX3 , TBL) 


• STEP  2:  UPDATE  ESTIMATED  TARGET  INERTIAL  AZIMUTH  AND  ELEVATION  * 
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C * RATES  IN  ANTENNA  LOS  FRAME.  * 

C ******»**•*»*******»***»••******»*»*»*»*.»,*»,,**»»»•***»**»****»* 

c 

C QUANTIZE  THE  ANGLE  DISCRIMINANTS  TO  3/16  DB. 

I AZDSC» I NTT ( 5 . 333333 * AZD I SC  * TCON+0 . 5 ) /TCON 
I ELDSC* I NTT ( 5 . 333333*  ELD I SC  * TCON+0 . 5 ) /TCON 
I F( I ELDSC . GT . 255) I ELDSC*255 
I F ( I AZDSC . GT . 255 ) I AZDSC«255 
I F(  I ELDSC . LT  . -256 ) I ELDSC— 256 
I F(  3 AZDSC . LT  .-256)  1 AZDSC— 256 
ADSC-0. 0431*1 AZDSC 
EDSO0.0431  • I ELDSC 

C UPDATE  ESTIMATED  TARGET  INERTIAL  AZIMUTH  RATE. 

AZRATE«AZRATE+TSAM*AT1 (MRNG . IM0DE)*ADSC 
C UPDATE  ESTIMATED  TARGET  INERTIAL  ELEVATION  RATE. 

ELRATE*ELRATE+TSAM*AT1 (MRNG , IMODE)*EDSC 
C 

C »****»****»****»••*•**»*«****••*•••*******«***•* 

C * STEP  3:  UPDATE  INNER  AND  OUTER  GIMBAL  RATES.  • 

C ***«*»*»»•»»***»»**»**•*••*******•»•»***»•»***** 

C COMPUTE  REOUIRED  COMPONENTS  OF  ORBITER  ANGULAR  VELOCITY  VECTOR  IN 
C OUTER  GIMBAL  FRAME. 

WGX*CP  * EWB ( 1 ) +SP * EWB ( 2 ) 

WGY-C A * ( -SP * EWB ( 1 ) +CP * EWB ( 2 ) ) +S A * EWB ( 3 ) 

WGZ— SA*(-SP*EWB(1 )+CP*EWB(2))+CA*EWB(3) 

C OUTER  GIMBAL  RATE. 

I F( ABS(CB) . LT . 1 . 0E-6)  GO  TO  2 

A LR AT  E= ( AZR AT  E+AT2 ( MRNG , I MOD E ) * ADSC+WGZ  * SB ) /CB-WGX 
GO  TO  4 
2 A LR ATE-0 . 

4 CONTINUE 

C INNER  GIMBAL  RATE. 

BTRAT  E*  ( E LR  AT  E+AT2  ( MRNG , I MOD  E ) * EDSC  ) -WGY 
C 

C »•**»»»•»**»»»*»**»**•»»********.******••••••*»*•••• 

C * STEP  4:  UPDATE  INNER  AND  OUTER  GIMBAL  POSITIONS.  * 

C ***«*•**••»«»*••***•****»***•******••*»*»•»*»»****•• 

C OUTER  GIMBAL  POSITION  (ALPHA  ANGLE) 

AL-AL+TSAM*ALRATE 

C INNER  GIMBAL  POSITION  (BETA  ANGLE) 

BT»BT+TSAM*BTRATE 

C 

C ADD  ALPHA  AND  BETA  TO  OUTPUT  IN  DEG 
SSALP-AL *57. 29576 
SSBET*BT*57. 29576 

C ****.*»..*****»***»*****»+»**»»•****»»*»*»*****»****•*****»*»•* 

C • STEP  6:  TRANSFORM  TARGET  ANGLES  AND  INERTIAL  ANGLE  RATES  TO  * 

C * BODY  FRAME  FOR  USE  IN  DISPLAYS  AND  G AND  N.  • 

C *******»***»*..***»*********»***.*****»***»*********.*********» 

C NOTE:  TRANSFORMATION  TBL  INCLUDES  GIMBAL  BIAS  ERRORS  AND  RADAR  YAW 
C ANGLE  ERROR  WRT  BODY  FRAME. 

C UPDATE  TARGET  INERTIAL  PITCH  RATE  IN  ORBITER  BODY  COORDINATES 
C FOR  DISPLAY. 

SPRT  E— 1 000 . * ( TB  L ( 2 , 1 ) * AZR AT  E+TB  L(2,2)* ELRAT  E ) 

C UPDATE  TARGET  INERTIAL  ROLL  RATE  IN  ORBITER  BODY  COORDINATES 
C FOR  DISPLAY. 

SRRTE— 1 000 . * (TBL( 1.1 ) * AZR AT E+TB L( 1 ,2)*ELRATE) 

C UPDATE  ANTENNA  PITCH  ANGLE  IN  ORBITER  BODY  COORDINATES  FOR  DISPLAY. 

SPANG— ASIN(TBL(1  . 3)  )*57 . 29576 
C UPDATE  ANTENNA  IN  ORBITER  BODY  COORDINATES  FOR  DISPLAY. 

IF(TBL(2 ,3) . EQ . 0 . 0 . AND .TBL(3 ,3) . EQ .0 . 0)  GO  TO  5 
SRANG— AT AN2 ( -TB L ( 2 . 3)  , TBL(  3 ,3) ) *57 . 29576 
GO  TO  7 

5 IF(TBL(1 ,3) .GT.0.0)  SRANG— 90.0 
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IF(TBL(1 ,3) . LT.0.0)  SRANG-90.0 
IF(TBL(1 ,3) . EO.0.0)  STOP 

C RESOLVE  POSSIBLE  ANGLE  AMBIGUITIES,  VIZ.,  -90 . <SPANG<90 . AND 
C — 1 80 . <SRANG<1 80 . 

7 I F ( SPANG . LE . 90 . ) GO  TO  10 

SPANG— ( 1 80 . -ABS  ( SPANG)  ) * ( SPANG/ABS  ( SPANG) ) 

SR ANG-  (180.  -ABS  ( SRANG  ) ) • ( SR  ANG/  ABS  ( SR  ANG  ) ) 

10  CONTINUE 

NOTE:  DEBUGGING  PRINT  STATEMENTS. 

WRITE(6,899) 

899  FORMAT (/*  ATRACK  DEBUGGGING  DATA* ) 

WR I TE ( 6 . 900 ) ALRATE , BTRATE , AZRATE . ELRATE , SRRTE,  SPRTE 
WRITE(6f 901 ) TBL(1 , 1 ) ,TBL(1 ,2)  ,TBL(2, 1 ) ,TBL(2,2) 

WR I TE( 6 , 902 ) AZD I SC , ELD ISC . ADSC . EDSC 

900  FORMAT ( * ALR.BTR.AZR.ELR.SRR.SPR-’  .6F10.2) 

901  FORMAT ( * TBL  2X2  «*.4F10.4) 

902  FORMAT ( * AZD, ELD, AD. ED  «* , 4F10.4) 

RETURN 
END 
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(THIS  PAGE  INTENTIONALLY  LEFT  BLANK) 


ooooo  o oooooooooooo  ooooooooo 


• THIS  SUBROUTINE  UPDATES  A2  AND  EL  INERTIAL  LOS  RATES.  THE 

* ALPHA  AND  BETA  GIMBAL  RATES,  THE  ALPHA  AND  BETA  GIMBAL 

• POSITIONS.  AND  THE  TARGET  PITCH  AND  ROLL  ANGLES  FOR  THE 

* DISPLAY. 


SUBROUTINE  ATRACK 
REAL  I NTT , K4,K5,K6 

INTEGER  AT1A(10,2) ,AT1E(10.2),AT2A(10,2) ,AT2E(10,2) 

COMMON  /CNTL/IPWR,  I MODE,  IDUMC(7)  ,DUMC(3) 

COhMON  /INPUT/DUM(6) , EWB(3)  ,DUM2(  1 8) 

COMMON  /OUTPUT/ 1 1 DUM(  3 ) . D 1 DUM(  2 ) . SPANG . SRANG . SPRTE . SRRTE,  SRSS . 
2 IDUM1(4).SSALP,SSBET 

COMMON  /ICNTL/I2DUM(  14)  , MRNG.MSAM.MPRF . IDUM2(  1 1 ) 

COMMON  /SYSDAT /TSAM . DR( 3 ) .CP.SP.PSI , PSBI AS . ALBIAS . BTBIAS , 

2 DUM4(5) 

COMMON  /ATDAT/CA . SA . CB . SB , AZRATE . ELRATE . ALRATE . BTRATE . AL . BT . 

2 DUM3(4) 

COMMON  /DSCRM/AZD I SC , ELDISC.DUM1  (7) 

DIMENSION  TX1 (3,3) ,TX2(3,3) ,TX3(3,3) ,TBL(3,3) 

DIMENSION  TDC(3) 
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ATRACK  MOOIFIED  JAN  28  1986  BY  M.  MEYER 
MODIFICATIONS  TO  SUBROUTINE  ATRACK  WERE  IMPLEMENTED 
TO  UPDATE  THE  LOOP  CONSTANTS  AND  MORE  ACCURATELY 
SIMULATE  THE  ACTUAL  SIGNAL  PROCEESSING  PERFORMED 
BY  THE  RADAR 


- NEW  LOOP  CONSTANTS  JAN  28  1986 

DATA  ATI A/9*5 , 1 . 6*13,5, 3*1/ 

DATA  ATI  E/9* 6 ,1 ,6*16,6,2*1 ,2/ 

DATA  AT2A/9*407 , 1 49 , 6*  662 . 407 . 3 • 1 49/ 

DATA  AT2E/9*532. 195,6*866,532,3*195/ 

DATA  K6/3 . 60E-5/ , K4/ . 0048876/ , K5/ . 236/ . DTOR/ . 01 74533/ 


DATA  TDC/0 . 051221 18.0.1195161 ,0.2561557/ 

DEFINITION:  AT1-KEQ-(WN«*2)/(4. .DIFFERENCE  PATTERN  SLOPE)  WHERE  00025490 

WN  IS  NATURAL  FREQUENCY  OF  THE  LOOP.  00025500 

DEFINITION.  AT2«KEQ*TAU  WHERE  TAU  IS  PROPORTIONAL  TO  STEP  RESPONSE  00025510 
CONVERGENCE  TIME  00025520 

00026700 

TCON-TSAM/TDC (MPRF) 

C 00026710 
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C * STEP  1:  UPDATE  ROUGH  RANGE  RATE  ESTIMATE  • 

C +*•***»*»»»****»*********»****»***•*»«•»»»** 

c 

C * ***** 

C * STEP  1:  UPDATE  ANTENNA  LOS-TO-BODY  TRANSFORMATION  (NOTE:  TRANS-  • 

C • FORMATION  INCLUDES  GIMBAL  BIAS  ERRORS  AND  RADAR  YAW  • 

C * ANGLE  ERROR  WRT  BODY  FRAME) . * 

C 

C\LL  GAMMA(TX1  .-(BT+BTBI AS) ) 

CALL  THETA(TX2 (AL+ALBIAS) ) 

CALL  MULT33(TX2,TX1 ,TX3) 

CALL  PHI (TX2.-PSI ) 

CALL  MULT33(TX2 ,TX3 , TBL) 

C 

C 

C • STEP  2:  UPDATE  ESTIMATED  TARGET  INERTIAL  AZIMUTH  AND  ELEVATION  • 

C • RATES  IN  ANTENNA  LOS  FRAME.  * 

C 

C QUANTIZE  THE  ANGLE  DISCRIMINANTS  TO  3/16  DB. 

I AZDSC- 1 NTT ( 5 . 333333  * AZD I SC  * TCON+0 . 5 ) /TCON 
I E LDSC- 1 NTT ( 5 . 333333  * E LD I SC  * TCON+0 . 5 ) /TCON 
I F(  I ELDSC . GT  . 255)  I ELDS0255 
1 F( 1 AZDSC . GT . 255) 1AZDSC-255 
1 F(  I ELDSC . LT  .-256)  I ELDSC— 256 
I F(  1 AZDSC  . LT  . -256)  I AZDSC— 256 
C 

C NEW  CODE  AS  OF  JAN  28  1986 

C 

C UPDATE  ESTIMATED  TARGET  INERTIAL  AZIMUTH  RATE. 

I AZR AT E-KSAT ( I AZR AT E+AT 1 A ( MRNG , I MODE ) * I AZDSC ) 

C UPDATE  ESTIMATED  TARGET  INERTIAL  ELEVATION  RATE. 

I ELR AT E-KSAT ( I E LRAT E+AT 1 E(MRNG , I MODE) • I ELDSC) 

C 

AZR AT  E-K 6 * DTOR • F LOAT ( I AZR AT  E ) 

E LRAT E-K 6* DTOR* FLOAT ( I ELRATE) 

C 

I A LR AT  E-KSAT ( I AZR AT  E+AT2A ( MRNG , I MOD  E ) * I AZDSC ) 

1BTRATE«KSAT( 1 E LR AT  E+AT  2 E ( MRNG . I MODE) * I ELDSC) 

C 

IF(1ALRATE  GT.0)  then 

AlRAT  E—K4*K5* DTOR* FLOAT ( I ALRATE/32) 

ELSE 

ALRATE—K4*K5*DTOR* FLOAT ( ( IALRATE-31 )/32) 

END  IF 
C 

I F( 1BTRATE .GT . 0)  THEN 

BTRATE—K4*K5*DT0R* FLOAT ( IBTRATE/32) 

ELSE 

BTRATE—K4^K5*DTOR* FLOAT ( ( IBTRATE-31 )/32) 

END  IF 
C 

C ***•***»*•»•********»*«•**•«****»*»•****»»*»•**» 

C * STEP  3:  UPDATE  INNER  AND  OUTER  GIMBAL  RATES.  • 

C ***«***..»»*»***.»»*,*,..*•.»*»«*»*•»»».***»***. 

C COMPUTE  REOUIRED  COMPONENTS  OF  ORBITER  ANGULAR  VELOCITY  VECTOR  IN 
C OUTER  GIMBAL  FRAME 

WGX-CP* EWB ( 1 )+SP* EWB ( 2 ) 

WGY-CA*  (-SP*  EWB  ( 1 )+CP*  EWB  ( 2 ) )+SA*  EWB  ( 3 ) 

WGZ— SA  * ( -SP  * EWB  ( 1 ) +CP  * EWB  ( 2 ) )■ +C  A * EWB  ( 3 ) 

C OUTER  GIMBAL  RATE. 

IF(ABS(CB) . LT . 1 ,0E— 6)  GO  TO  2 
A LRAT  E* ( A LRAT  E+WGZ ♦ SB ) /CB-WGX 
GO  TO  4 
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2 ALRATE-0. 

4 CONTINUE 
C INNER  GIMBAL  RATE. 

BTRATE-BTRATE-WGY 
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END  OF  JAN  28  1986  MODIFICATIONS* 


• STEP  4:  UPDATE  INNER  AND  OUTER  GIMBAL  POSITIONS.  * 


OUTER  GIMBAL  POSITION  (ALPHA  ANGLE) 
AL«AL+TSAM*ALRATE 
INNER  GIMBAL  POSITION  (BETA  ANGLE) 
BT«BT+TSAM*BTRATE 

ADD  ALPHA  AND  BETA  TO  OUTPUT  IN  DEG 
SSALP-AL*57. 29576 
SSBET-BT*57. 29576 


• STEP  6:  TRANSFORM  TARGET  ANGLES  AND  INERTIAL  ANGLE  RATES  TO  • 

• BODY  FRAME  FOR  USE  IN  DISPLAYS  AND  G AND  N.  * 


NOTE:  TRANSFORMATION  TBL  INCLUDES  GIMBAL  BIAS  ERRORS  AND  RADAR  YAW 
ANGLE  ERROR  WRT  BODY  FRAME. 

UPDATE  TARGET  INERTIAL  PITCH  RATE  IN  ORBITER  BODY  COORDINATES 
FOR  DISPLAY. 

SPRTE— 1000. *(TBL(2,1)*AZRATE+TBL(2, 2) -ELRATE) 

UPDATE  TARGET  INERTIAL  ROLL  RATE  IN  ORBITER  BODY  COORDINATES 
FOR  DISPLAY. 

SRRTE— 1 000 . *(TBL(  1,1) *AZRATE+TBL(  1.2)* ELRATE) 

UPDATE  ANTENNA  PITCH  ANGLE  IN  ORBITER  BODY  COORDINATES  FOR  DISPLAY. 

SPANG— ASIN(TBL(1  . 3)  ) *57 . 29576 
UPDATE  ANTENNA  IN  ORBITER  BODY  COORDINATES  FOR  DISPLAY. 

IF(TBL(2 , 3) . EQ.0 . 0. AND . TBL(3,3) . EO. 0. 0)  GO  TO  5 
SR ANG— AT AN2  ( ■ -TB  L ( 2 . 3 ) . TB  L ( 3 , 3 ) ) * 57 . 29576 
GO  TO  7 

5 IF(TBL(1  ,3)  .GT.0.0)  SRANG— 90.0 
I F(TBL( 1 ,3) . LT . 0. 0)  SRANG-90.0 
I F(TBL( 1 .3) .EQ.0.0)  STOP 

RESOLVE  POSSIBLE  ANGLE  AMBIGUITIES,  VIZ..  -90 . <SPANG<90 . AND 
-180  <SRANG<180 
7 IF (SPANG. LE.90. ) GO  TO  10 

SPANG— (180. -ABS ( SPANG ) ) * ( SPANG/ ABS (SPANG ) ) 

SRANG-  (180.  -ABS  ( SRANG ) ) * ( SR ANG/ABS  ( SRANG  ) ) 

10  CONTINUE 

NOTE  DEBUGGING  PRINT  STATEMENTS. 

WRITE(6, 899) 

899  FORMAT (/*  ATRACK  DEBUGGGING  DATA') 

WR ITE( 6 , 900 ) ALRATE , BTRATE . AZRATE , ELRATE , SRRTE , SPRTE 
WRITE( 6 , 901 ) TBL(1 .1 ) ,TBL(1 ,2) , TBL(2 , 1 ) , TBL(2 ,2) 

WR I TE ( 6 . 902 ) AZD I SC , ELD I SC , I AZDSC . I ELDSC 

900  FORMAT ( ‘ ALR , BTR , AZR , ELR , SRR , SPR* ' , 6F1 4 . 9 ) 

901  FORMAT ( ’ TBL  2X2  «\4F10.4) 

902  FORMAT ( ’ AZD . ELD , AD, ED  .2F10 . 4 , 219) 

RETURN 

END 
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LINES  DELETED  FROM  BASELINE  PROGRAM 

25  REAL  I NTT . I AZDSC , I E LDSC 

26  COMMON  /CNTL/1PWR.  IMOOE,  IDUMC(7),DUMC(3) 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

25  REAL  INTT.K4.K5.K6 

26  INTEGER  ATI A( 10.2) ? ATI E( 10,2)  .AT2A(10.2) , AT2E(10, 2) 

27  COMMON  /CNTL/1PWR , IMOOE , IDUMC(7)  PDUMC(3)  00025350 


00025335 

00025350 


LINES  DELETED  FROM  BASELINE  PROGRAM 

36  DIMENSION  ATI  ( 10 . 2) , AT2( 10 . 2) . TX1 (3 . 3) . TX2(3 , 3) . TX3(3 . 3) ,T8L(3 .3)00025450 

37  DIMENSION  TDC(3) 

38  DATA  ATI/9*  1 . 5529E-3 ,2 . 01 06E— 4 , 6*3 . 9750E— 3 . 1 . 5529E—3  , 00025460 

39  2 3*2 . 01 06E-4/ . AT2/9*6 . 5907E-3 . 2 . 3725E-3 . 00025470 

40  3 6*1. 0546E-2 , 6 . 5907E-3 . 3*2 . 3725E-3/  00025480 

41  DATA  TDC/0. 05122118, 0.1195161  ,0.2561557/ 


LINES 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 


ADDED  TO  DELIVERABLE  PROGRAM 

DIMENSION  TX1 (3 ,3) , TX2(3 , 3) , TX3(3 . 3) , TBL(3 . 3) 
DIMENSION  TDC(3) 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c- 

c 


ATRACK  MODIFIED  JAN  28  1986  BY  M.  MEYER 
MODIFICATIONS  TO  SUBROUTINE  ATRACK  WERE  IMPLEMENTED 
TO  UPDATE  THE  LOOP  CONSTANTS  AND  MORE  ACCURATELY 
SIMULATE  THE  ACTUAL  SIGNAL  PROCEESSING  PERFORMED 
BY  THE  RADAR 


NEW  LOOP  CONSTANTS  JAN  28  1986- 


DATA  AT1A/9*5.1 ,6*13,5,3*1/ 

DATA  AT1E/9*6,1 ,6*16,6,2*1 ,2/ 

DATA  AT2A/9*407 . 1 49 . 6*662 , 407 . 3* 1 49/ 

DATA  AT2E/9*532 .195. 6*866 , 532 . 3* 1 95/ 

DATA  K6/4 . 58E-5/  . K4/ . 0048876/ , K5/ . 236/ . DTOR/ . 0174533/ 

DATA  TDC/0. 051 221 18,0. 1195161 ,0.2561557/ 


00025450 


LINES  DELETED  FROM  BASELINE  PROGRAM 

75  ADSO0 .0431*1  AZDSC 

76  EDSC-0.0431*IELDSC 

77  C UPDATE  ESTIMATED  TARGET  INERTIAL  AZIMUTH  RATE. 

78  AZRATE-AZRATE+TSAM*AT1  (MRNG , IMOOE) *ADSC 

79  C UPDATE  ESTIMATED  TARGET  INERTIAL  ELEVATION  RATE. 
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80  ELRATE*ELRATE+TSAM*AT1  ( MRNG , I MODE ) * EDSC  00025820 

81  C 00025830 

82  C **•*.»•*+..*.»*»****** ****»*»*»».*.»,»•***.  00025840 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

91  C 

92  C NEW  CODE  AS  OF  JAN  28  1986 

93  C 

94  C UPDATE  ESTIMATED  TARGET  INERTIAL  AZIMUTH  RATE. 

95  IAZRATE«KSAT(IAZRATE+AT1A(MRNG, IMODE) * I AZDSC) 

96  C UPDATE  ESTIMATED  TARGET  INERTIAL  ELEVATION  RATE. 

97  I ELRATE=KSAT( I ELRATE+AT1 E(MRNG , IM0DE)*IELDSC) 

98  C 

99  AZRATE«K6*DTOR*FLOAT( IAZRATE) 

100  ELRATE=K6*DTOR*FLOAT ( I ELRATE) 

101  C 

102  IALRATE«KSAT( IAZRATE+AT2A(MRNG . IMODE) * I AZDSC) 

1 03  IBTRATE=KSAT( I E LR AT  E+AT  2 E ( MRNG . IMODE) • IELDSC) 

104  C 

105  IF( IALRATE.GT .0)  THEN 

106  ALRATE«K4*K5*DT0R* FLOAT ( IALRATE/32) 

107  ELSE 

108  ALRATE*K4*K5*DT0R* FLOAT ( ( IALRATE-31 )/32) 

1 09  END  I F 

110  C 

111  IF(IBTRATE.GT.O)  THEN 

1 1 2 BTRATE«K4*K5*DT0R* FLOAT ( IBTRATE/32) 

113  ELSE 

114  BTR AT  E-K  4 * K5  * DTOR  * F LOAT ( ( I BTRAT  E-3 1 ) /32 ) 

115  END  I F 

116  C 

117  C 


00025790 

00025800 

00025810 

00025820 


00025840 


LINES  DELETED  FROM  BASELINE  PROGRAM 

92  A LR AT  E* ( AZRAT  E+AT 2 ( MRNG , I MOD  E ) * ADSC+WGZ • SB ) /CB-WGX 

93  GO  TO  4 


00025940 

00025950 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

127  A LR AT  E« ( A LRAT E+WGZ  * SB ) /CB-WGX 

128  GO  TO  4 00025950 


LINES  DELETED  FROM  BASELINE  PROGRAM 

97  BTRAT E* (E LRAT E+AT2( MRNG , IMODE) * EDSC)— WGY  00025990 

98  C 00026000 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

1 32  BTRATE*BTRATE— WGY 

133  C 

134  C END  OF  JAN  28  1986  MODIFICATIONS 

135  C 00026000 


LINES  DELETED  FROM  BASELINE  PROGRAM 


143 

144 

145 

146 

147 

148 

149 

150 


908 

901 

902 


WR I TE( 6 , 902 ) AZD I SC , ELD ISC . ADSC , EDSC 
FORMAT ( ’ ALR . BTR , AZR . ELR , SRR , SPR* * .6F10.2) 
TBL  2X2  «’ » 4F1 0 . 4) 

AZD , ELD f AD , ED  .4F10.4) 


FORMAT ( 1 
FORMAT ( 1 
RETURN 
END 


00026470 

00026480 

00026490 

00026500 

00026510 

00026520 

00024530 


FIGURE  2.2-13  SUMMARY  OF  MODIFICATIONS  TO  SUBROUTINE  ATRACK 
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LINES 

ADDED  TO 

DELIVERABLE  PROGRAM 

180 

C 

WR I TE ( 6 , 902 ) AZD I SC , ELD I SC . I AZDSC . I ELDSC 

00026470 

181 

900 

FORMAT ( ' ALR , BTR , AZR , ELR , SRR , SPR» ’ .6F14.9) 

00026480 

182 

901 

FORMAT ( ’ TBL  2X2  -’.4F10.4) 

00026490 

183 

902 

FORMAT ( ’ AZD, ELD. AD, ED  »' .2F10.4.2I9) 

00026500 

184 

RETURN 

00026510 

185 

186 
187 

C 

END 

00026520 

Number  of  difference  sections  found:  6 
Number  of  difference  records  found:  59 

DIFFERENCES  /IGNORE«( )/MERGED-1/OUTPUT«SYS$DISK3 : [MCCOLLOUGHjDI FF2 . FOR : 1- 
SYSSDISK3 : f MCCOLLOUGHlATRACKH . FOR ; 2- 
SYS$DISK3: [MCCOLLOUGHJATRACKF . FOR ; 2 
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Figure  2.2-14  is  a listing  of  the  function  KSAT  which  has  been 
added  to  the  final  program.  Figure  2.2-15  is  a listing  of  the  subroutine 
READPAT,  and  Figure  2.2-16  is  a listing  of  the  subroutine  INTERP.  (No 
original  listings  or  summaries  of  changes  exist  because  these  are  new 
subroutines . ) 

2.2.4  Integration  and  Test  Data 

There  were  two  major  sections  of  code  that  required  testing:  the 
antenna  pattern  module  and  the  loop  filter  module.  Methods  for  testing  these 
modules  and  the  test  results  are  summarized  in  this  subsection. 

2. 2. 4.1  Antenna  Pattern  Module  Tests 


The  subroutines  that  generate  all  of  the  antenna  parameter  data 
were  written  and  validated  during  the  study  documented  in  Reference  6.  As 
discussed  in  Section  2.2.2,  these  original  subroutines  were  modified  by 
replacing  bicubic  spline  interpolation  with  two  dimensional  linear 
interpolation.  After  these  subroutines  were  modified,  two  types  of  tests  were 
performed  to  help  validate  their  correctness:  a static  test  and  a dynamic 

test. 


The  static  test  of  the  pattern  interpolation  routines  was  to 
generate  three-dimensional  plots  of  all  five  antenna  pattern  parameters  on  an 
8 degree  by  8 degree  grid  with  a resolution  of  at  least  0.1  degrees  and 
examine  the  data  for  any  obvious  flaws.  This  task  was  done  using  the  DISSPLA 
package  on  the  Building  44  VAX/780  at  JSC.  An  examination  of 

three-dimensional  data  showed  no  obvious  errors.  Unfortunately,  we  cannot 
present  the  data  because  no  high  quality  hardcopy  unit  was  available. 

The  second  test  was  a dynamic  test.  Its  purpose  was  to 
demonstrate  the  sign  of  the  slope  of  the  difference  patterns  was  correct  and 
that  the  general  behavior  of  the  pattern  interpolation  routines  in  a dynamic 
environment  was  satifactory.  This  test  is  defined  as  follows.  First,  the 
subroutines  were  installed  in  the  angle  tracking  loop  simulation  program 
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00025230 


* INTEGER  FUNCTION  KSAT  JAN  28  1986 


THIS  FUNCTION  CHECKS  ATRACK  LOOP  FOR  SATURATION 

INTEGER  FUNCTION  KSAT(K) 

C 

IF(K.GE.0)  THEN 

KSAT«JMIN0(K,2»*15) 

ELSE 

KSAT-JMAX0 ( K , -2 • • 1 5 ) 

END  IF 
RETURN 
END 

C 00024530 


FIGURE  2.2-14  DELIVERABLE  VERSION  OF  SUBROUTINE  KSAT 
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o o 


subroutine  reodPAT 


Read  in  the  sum,  phase,  and  difference  patterns 
c 

C — i —————  i n i ■■  ■ 

real  a1lineor(  41,41  ),  e1linear(  41,41  ) 
real  sa1linear(  41,41  ),  se1linear(  41,41  ) 
real  pa1linear(  41,41  ),  pe1linear(  41,41  ) 
common  / linear  / all  inear,  el  linear 
common  / I inearl  / sal  linear,  sell  inear 
common  / Iinear2  / pall  inear,  pel  I inear 


open(  unit-3,  f i I e—  ’ [ KUB AND. HOWARD  .MARK] azl  d . dat  * , 

1 occess— * sequent i a I ’ , form—' unformat  ted* , 

1 stat us—’ o I d ’ , readonly  ) 

read(  3 ) ( ( a11inear(  i,j  ),  j « 1,41  ),  i - 1,41  ) 
close(  3 ) 

open(  unit-3,  f i I e— ’ [ KUBAND . HOWARD . MARK ] e 11 d . da  t ’ , 

1 access-’ sequent i a I’ , f orm-* unformat  ted* , 

1 status-’ ol d ’ , readonly  ) 

read(  3 ) ( ( e1linear(  i,j  ),  j - 1,41  ),  i - 1,41  ) 
close(  3 ) 

open(  unit-3,  f i I e— ’ [ KUBAND . HOWARD . MARK]az1 s . dot  * , 

1 access— ’ sequent i a I ’ , form—’ unformatted* , 

1 status— *ol d ’ , readonly  ) 

read(  3 ) ( ( sa1linear(  i.j  ),  j - 1,41  ),  i « 1,41  ) 

close(  3 ) 

open(  unit-3,  f i I e- ' [KUBAND .HOWARD .MARK] e I 1 s . dat  * , 

1 access- ’ sequent ia  l ’ , form-' unformat  ted ’ , 

1 status-’ o I d ’ , readonly  ) 

read(  3 ) ( ( se1linear(  i,j  ),  j * 1,41  ),  i * 1 ,41  ) 

close(  3 ) 

open(  unit-3,  f i le-’ [KUBAND. HOWARD. MARK] azlp.dat ’ , 

1 access*’ sequent i a I ’ , f orm-’ unformat  ted ' , 

1 status-* ol d1 , readonly  ) 

read(  3 ) ( ( pa1linear(  i,j  ),  j - 1,41  ).  i - 1,41  ) 

close(  3 ) 


FIGURE  2.2-15  DELIVERABLE  VERSION  OF  SUBROUTINE  READPAT 
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open(  unit*3,  f i I e* ' [ KUBAND . HOWARD . MARK ] e M p . do  t ’ , 
access**  sequential ’ . form*' unformatted ’ , 
stat us*’ o I d ’ , readonly  ) 

read(  3 ) ( ( pe1linear(  i,j  ),  j ■ 1.41  ),  i * 1,41  ) 
close(  3 ) 

return 

end 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ii 


FIGURE  2.2-15  DELIVERABLE  VERSION  OF  SUBROUTINE  READPAT 
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c Subroutine:  Antenna  pattern  interpolation, 

c Input:  Azimuth  and  elevation  angles  in  degrees, 

c Output:  Interpolated  difference,  sum,  and  phase  values 

c for  all  18  antenna  patterns, 

c 

c 1 1 1 1 II IMI 1 1 II!  Mill  II IMIIIII 1 1 1 1 1 lilll  Mill  Mlllllllllll  I 

subroutine  interp(  az,  el) 

c ■ - - 

c 

c Linearly  interpolate  the  gain,  phase  and  difference  patterns 

c , 

c — — i ■»■  i ■ — 

real  a1lineor(  41,41  ),  e1linear(  41,41  ) 

real  sal  I inear (41 ,41 ) , sell  inear (41 ,41 ) 

real  pal  I i near (41 ,41 ) , pel  I inear(41 , 41 ) 

common  / linear  / all  inear,  el l inear 

common  / I inearl  / sal  I i near , sel  I i near 

common  / Iinear2  / pal  I i near , pel  I i near 

common  / SUDIPH  / X, Y , Z . PAZ.PEL 

iax  - j i nt ( ( az  + 4.  ) • 5.  ) 
iex  * j i nt ( ( el  +4.  ) * 5.  ) 
az0  * flootj(  iax  ) / 5.  -4. 

e 10  - f loot j(  i ex  ) / 5.  - 4. 

iaz  * j i nt  ( ( az  4 4.  ) * 5.  ) + 1 

jel  ■ jint  ( ( el  + 4.  ) • 5.  ) + 1 


c find  azd  values  

f 0 - 1 0 . ** ( a1linear(  iaz, jel  ) /20.  ) 
fl  s 10. * • ( a1linear(  iaz+1,jel  ) /20.  ) 
f2  ■ 10. * * ( a1linear(  iaz,jel+1  ) /20.  ) 
f3  * 10. **(  a1linear(  iaz+1,jel+1  ) /20.  ) 

fo  - f0  + ( f 1— f0)/. 2 * ( az-az0  ) 
fb  • f2  + (f3-f2)/.2  • ( az-az0  ) 
fx  * fa  + (ft>-fo)/.2  * ( e!-el0  ) 


FIGURE  2.2-16  DELIVERABLE  VERSION  OF  SUBROUTINE  INTERP 
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c 


Y - fx 


find  eld  vo I ues 


fO  « 10. **(  el  I i near( 
f 1 « 10. *•(  el  I i near( 
f2  * 10 . ** ( el  I i near( 
f3  * 10 . *• ( el  I i near( 

fa  « f0  + ( f 1-f 0)/.2  • 
fb  - f2  + (f3-f2)/.2  * 
fx  - fa  + (fb-fa)/.2  * 


i oz . je  I ) /20 . ) 

iaz+1 , jel  ) /20.  ) 

i 02 , je 1+1  ) /20.  ) 

io2+1. jel+1  ) /20.  ) 

( 02-020  ) 

( 02-020  ) 

( e I -e 1 0 ) 


Z - fx 


c find  023  values  

f 0 * 10. **(301  I i neor( io2  ,jel  )/20.) 
fl  • 10. **(sa1 I inear( iaz+1 , jel  )/20.) 
f2  * 10. •• (sol  I i near( i 02  , jel+1  )/20.) 

f3  * 10. **(sa1 I ineor(iaz+1 , jel+1  )/20.) 
fo  - f 0 +( f 1-f 0)/.2*(O2-O20) 
fb  - f 2 +( f 3— f2)/.2*(az— 020) 
fx  * fo  +( f b-f a)/.2*(e l-e 10) 


X * fx 


c f ind  G2p  values  

f0  ■ pol I i near ( i 02  ,jel  ) 
fl  * pal  I i near( i az+1 , je I ) 
f2  * pal  I i near ( i 02  , jel+1  ) 
f3  * pal  I i near( i az+1 , je 1+1  ) 
fa  * f 0 +( f 1-f0)/.2*(az-az0) 
fb  - f 2 +( f 3— f 2)/.2*(az-az0) 
fx  « fo  +( f b— f a)/.2*(e l-e 10) 


PAZ*fx  ! phase  in  degrees 

c find  elp  values  

f0  * pel  I i near ( i a2  ,jel  ) 
fl  * pel  I i near( i az+1 , je I ) 
f2  ■ pel  I i near( i 02  , jel+1  ) 

f3  * pel  I i near( i az+1 , je 1+1  ) 

fo  « f 0 +( f 1— f0)/.2* ( 02—020) 
fb  - f 2 +( f 3— f2)/.2* (az-az0) 
fx  « fo  +(f b-f a)/.2*(e!-e!0) 

PEL*f x ! phase  in  degrees 

return 

end 


FIGURE  2.2-16  DELIVERABLE  VERSION  OF  SUBROUTINE  INTERP 
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documented  in  Reference  6.  Then  the  program  was  run  with  a 0 dBsm  target, 
fixed  at  one  nautical  mile  range  for  100  seconds • Next,  the  original  program 
with  bicubic  spline  interpolation  was  run  with  the  same  scenario.  Then,  the 
statistical  aspects  of  the  output  time  histories  of  the  four  parameters, 
azimuth,  elevation,  azimuth  rate,  and  elevation  rate,  were  compared.  Results 
of  the  comparison  showed  that  the  differences  in  performance  was  negligible 
for  all  four  parameters.  These  results  confirm  that  the  two  dimensional 
linear  interpolation  antenna  pattern  model  has  been  Implemented  properly  in  a 
dynamic  environment. 

Once  initial  tests  were  completed  and  the  subroutines  changes 
were  validated  using  the  simulation  program  of  Reference  6,  these  modified 
routines  were  then  lifted  as  a unit  from  this  program  and  installed  in  the  SES 
simulation  code.  Additional  tests  were  run  on  the  modified  SES  code  to  futher 
validate  the  pattern  changes  and  other  loop  changes.  These  tests  and  their 
results  are  described  in  the  following  subsection. 

2. 2. 4. 2 Loop  Filter  Module  Tests 

The  loop  filter  module  changes  were  validated  using  various 
qualitative  tests.  The  purpose  of  these  tests  were  to  verify  (1)  the  proper 
slope  sign  in  the  difference  patterns,  (2)  the  noise  properties  of  the 
tracking  loop,  and  (3)  the  transient  response  of  the  tracking  loop  filter. 

A very  simple  test  was  used  to  verify  the  slope  sign  in  the 
difference  patterns.  A stationary,  0 dBsm  target  was  placed  at  one  nautical 
mile  and  was  tracked  by  the  simulation  for  a period  of  100  seconds.  Results 
of  this  test  showed  that  the  target  was  tracked  in  a stable,  steady-state 
fashion  in  both  angle  and  angle  rate,  ensuring  that  the  sign  of  the  difference 
pattern  slope  was  correct. 

The  next  set  of  tests  established  the  statistical  properties  of 
the  angle  tracking  loop.  That  is,  these  tests  established  the  approximate 
noise  bandwidth  of  the  loop.  Again  a 0 dBsm,  stationary  point  target  was 
tracked  at  the  following  three  ranges:  1 nautical  mile,  3 nautical  miles,  and 


5 nautical  miles.  These  ranges  were  selected  to  exercise  the  three  different 
loop  bandwidths  of  the  tracker.  Tables  2.2-3  and  2.2-4  summarize  the  results 
of  these  tests  for  the  original  SES  simulation  code  and  the  modified 
simulation  code.  A comparison  of  the  means  and  the  standard  deviations  of  the 
old  and  the  new  version  show  a fairly  reasonable  matchup  of  the  data.  This  is 
significant  proof  that  the  angle  tracker  upgrades  have  been  installed 
properly.  The  fact  that  the  modified  version  is  nosier  than  the  original 
version  is  encouraging  since  this  brings  the  angle  tracking  loop  simulation 
data  into  better  agreement  with  the  flight  data. 

This  brings  us  naturally  to  our  third  set  of  angle  tracking  loop 
tests.  These  tests  involved  injecting  trajectories  from  the  SORTE  experiment 
and  the  Palapa  B rendezvous  into  the  simulation  and  comparing  the  simulation 
predictions  with  the  actual  radar  data  in  each  case.  Discussions  of  the 

results  of  these  simulation  experiments  are  delayed  until  sections  3.7  and 

4.2,  respectively.  The  purpose  of  these  tests  was  to  determine  the  overall 
fidelity  of  the  angle  and  ILOS  angle  rate  trackers  in  terms  of  random 

properties  and  transient  response  properties  for  typical  rendezvous  situations. 

2.3  AGC  UPGRADES 

2.3.1  PROBLEM  DEFINITION 

The  AGC  module  discussed  in  this  section  includes  three 
components:  (1)  calculation  of  the  AGC  update,  (2)  calculation  of  the  RSS, 

and  (3)  calculation  of  the  A/D  saturation  effects  (if  any).  High  fidelity 
models  for  each  of  these  components  were  defined  and  discussed  in  detail  in 
the  final  report  for  NASA  Contract  No.  NAS9-15840  (Reference  4).  However,  an 
examination  of  the  simulation  code  published  in  the  appendix  of  that  report 
revealed  that  these  components  had  not  been  completely  upgraded  in  several 
areas.  The  most  serious  problem  with  this  less  accurate  model  is  a 12  dB 
discontinuous  jump  in  AGC,  and  therefore  RSS,  accompanying  a transition  in  the 
sample  rate  under  normal  target  conditions  (greater  than  a 0 dBsm  Radar  Cross 
Section  (RCS)).  This  effect  is  demonstrated  in  Figures  2.3-1  and  2.3-2.  Now, 
under  normal  target  conditions,  theory  and  actual  operational  data  show  that 
there  is  no  such  discontinuity  at  this  transition. 
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TABLE  2.2-4  A COMPARISON  OF  THE  MEANS  OF  THE  ANGLE  TRACKING  PERFORMANCE 
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60. 


55. 

50. 

45. 


0.  10.  20.  30.  40.  50.  60.  70.  80. 
TIME  (sec) 


FIGURE  2.3-1  AGC  PROFILE  FOR  THE  RANGE  PROFILE  GIVEN  IN  FIGURE  2.3-2. 

DISCONTINUITIES  OCCUR  AT  THE  SAMPLE  RATE  TRANSITION. 
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0. 


10.  20.  30.  40.  50.  60.  70.  80. 


TIME  (sec) 


FIGURE  2.3-2  RANGE  PROFILE  USED  TO  GENERATE  AGC  PROFILE  OF  FIGURE  2.3-1 
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The  purpose  of  this  subsection  is  to  point  out  the  weaknesses  of 
the  current  SES  simulation  code  in  these  areas  and  define  the  corrections. 

2.3.2  Definition  of  Algorithm  Modifications 

2. 3. 2.1  AGC  Model  Improvements 

To  facilitate  a description  of  the  weaknesses  in  the  baseline 
version  of  the  AGC  model,  a concise  definition  of  the  high  fidelity  model 
(from  Reference  4)  is  provided  below. 


The  upgraded  AGC  model  includes  the  following  features: 


1.  The  AGC  increment  for  the  next  data  cycle  is  determined  by  subtracting 
the  mean  signal  level  at  the  log  converter  output  (see  Figure  2.3-3)  from 
a prestored  value  which  represents  a signal  power  of  4q2  at  the  A/D 
input. 

2.  It  includes  the  effects  of  quantization  noise  injected  by  the  A/D 
converter. 

3.  It  allows  a maximum  of  10  dB  increment  in  AGC  or  a minimum  of  -10  dB 
decrement  in  AGC  per  data  cycle. 

4.  The  absolute  AGC  value  cannot  drop  below  6 dB,  the  nominal  search  AGC 
value . 

A crude  A/D  converter  saturation  model  has  been  implemented  in  conjunction 
with  this  model  to  increase  AGC  response  fidelity  in  anticipation  of  large, 
sudden  Increases  in  satellite  RCS  values . 


The  AGC  algorithm  can  be  summarized  as  follows: 


Step  1:  Compute  the  AGC  change,  A AGC,  based  on  the  present  mean  signal 

level  estimate  at  the  log  converter  output. 

Step  2:  If  AAGC  > 10  dB,  then  AAGC  * 10  dB,  or  if  AAGC  < -10  dB, 

then  AAGC  - -10  dB. 

Step  3:  Compute  the  new  AGC. 

Step  4:  If  new  AGC  5 6 dB,  then  new  AGC  - 6 dB. 
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AGC  THRESHOLD,  K 


FIGURE  2.3-3  SIMPLIFIED  DIAGRAM  OF  THE  AGC  TRACKING  LOOP 
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Computation  of  the  change  in  AGC,  AGC,  is  done  using  the  following 

expression. 

(2-9)  AGCERR(N)  - kjG/CAGCOQ  (SNR^OO+D+l^) 

where  G ■ Signal-to-noise  power  ratio  (SNR)  gain  from  the  A/D  output  to 
the  doppler  filter  output, 

SNRdt  * Signal-to-thermal  noise  power  ratio  at  the  doppler  filter 
output, 

\ « (2q)2/Nt, 
k2  - (q)2/(12Nt) 

* unAGC’d  thermal  noise  power  at  the  A/D  input. 

The  updated  AGC  value  is  computed  with  the  expression 
(2-10)  AGC(N+1)«AGC(N)AGCERR(N) 

k^  can  be  interpreted  as  the  ratio  of  the  desired  AGC'd  track  signal 

power  level  at  the  A/D  input  to  unAGC’d  thermal  noise  power  level  at  the  A/D 

input,  k7  is  interpreted  as  the  ratio  of  the  quantization  noise  power, 
2 ^ 

q /12,  to  the  unAGC'd  thermal  noise  power  at  the  A/D  input.  Finally,  to  be 

consistent  with  the  baseline  code,  we  will  set  G * 4 P . The  values  for 

s 

k, , k_ , G and  P for  the  various  modes  and  range  intervals  are 

i z s 

summarized  in  Table  2.3-1. 

Some  comments  on  the  accuracy  of  this  algorithm  versus  actual  AGC 

operation  are  in  order.  We  first  note  tha  the  form  for  predicting  the  AGC 

change  given  in  Equation  (2-9)  is  quite  accurate.  It  has  the  A/D  quantization 

noise  and  the  noise  floor  concept  folded  into  the  calculation.  As  noted 

.earlier,  the  quantization  noise  includes  only  the  contribution  from  the  A/D 

2 

converter  and  is  assumed  to  have  a power  of  q /12  where  q represents  the 
voltage  of  a single  A/D  step.  All  other  quantization  noise  sources  are 
dwarfed  in  comparison  to  this  source,  especially  when  comparing  their  relative 


2-58 


TABLE  2.3-1  AGC  CALCULATION  CONSTANTS 


Range 

Interval , Ft . 

Nt,q2 

*1 

^2 

G 

Ps 

Passive 

<2560 

124.80 

0.0321 

0.00067 

16 

4 

(2560,  5750) 

7.84 

0.51 

0.011 

16 

4 

(5760,  11510) 

7.84 

0.51 

0.011 

8 

2 

(11510,  23030) 

7.84 

0.51 

0.011 

16 

4 

(23040,  43510) 

7.84 

0.51 

0.011 

32 

8 

>43510 

7.84 

0.51 

0.011 

64 

16 

Active 

<49910 

124.8 

0.0321 

0.00067 

16 

4 

>49920 

7.84 

0.51 

0.011 

8 

2 

effects  at  the  doppler  filter  output.  The  search  thermal  noise  AGC  value  or 
the  "noise  floor"  in  this  expression  is  fixed  at  6 dB.  This  floor  represents 
the  search  AGC  value  at  the  time  the  target  is  detected.  In  reality,  this 
number  is  a.  random  process,  fluctuating  from  acquisition  to  acquisition. 
However,  we  treat  the  noise  floor  as  a deterministic  value  and  assign  it  a 
value  equal  to  the  mean  of  the  random  process,  i.e.,  6 dB  for  all  acquisitions. 

The  following  errors  were  found  in  the  baseline  code 
and  corrected.  First,  and  most  serious,  k^  and  kj  did  not  change  at  the 
sample  rate  transition  as  shown  in  Table  2.3-1,  causing  the  12  dB 
discontinuity  in  AGC  as  discussed  earlier.  In  the  baseline  program  k^  and 
kj  assumed  the  low  sample  rate  values  at  all  ranges.  Secondly,  the  AGC  was 
allowed  to  drop  to  0 dB  rather  than  limit  at  the  nominal  search  AGC  level  of  6 
dB.  Both  of  these  errors  were  corrected  in  the  upgraded  simulation  code 
documented  in  Section  2.3.3. 
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2. 3. 2. 2 


RSS  Model  Improvements 


The  Ku-Band  Radar  computes  the  RSS  using  the  following 

very  simple  relation. 

(2-11)  RSS(N)  - (10  log  (l/AGC(N))-6)k 

o 

where  AGC(N)  is  the  latest  estimate  of  AGO  and  the  value  6 represents  the 

nominal  search  AGC  value  (or  search  "noise  floor").  The  value  of  k is  5 

o 

volts/160  dB  which  converts  the  RSS  from  dB  to  voltage  from  the  display 
meter.  Full  scale  AGC  is  160  dB  which  corresponds  to  a full  scale  meter 
voltage  of  5 volts.  Since  the  AGC  is  not  allowed  to  drop  below  6 dB,  the  RSS 
will  not  drop  below  0 volts. 

In  the  baseline  code  for  the  RSS  module  there  were  two 
errors:  (1)  the  nominal  search  AGC  value  was  set  to  0 dB,  and  (2)  the  scale 

factor  kQ  was  ignored.  Both  corrections  have  been  made  in  the  present 
version  of  the  RSS  as  documented  in  Section  2.3.3. 

2. 3. 2. 3 A/D  Saturation  Noise  Model  Improvements 

A simple  model  for  Injecting  A/D  saturation  effects 

into  the  tracking  signal  response  was  developed  in  anticipation  of 

encountering  sudden,  large  increases  in  receive  signal  strength  when 

rendezvousing  with  various  satellite  targets.  The  model  is  fairly  crude  and 

is  based  on  the  concept  that  the  total  signal-plus-noise  power  at  the  A7D 

2 

output  should  be  limited  to  (7q)  . The  basic  idea  of  the  model  can  be 

expressed  as  follows: 

Step  1:  Compute  the  signal-plus-noise  power  at  the  A/D  input. 

Step  2:  If  the  total  power  is  greater  than  (7q)  \ then  limit  this  power 

to  (7q). 

The  total  signal-plus-noise  power  at  the  A/D  input  is  computed 
using  the  expression, 
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(2-12) 


Total  Power  ■ AGC(N)Nt(SNR^(N)/G+l) 

where  SNR^/G  is  equivalent  to  SNRyt,  the  signal-to-thermal  noise 

power  ratio  at  the  A/D  input.  SNRvt  is  represented  in  this  form  because  it 

is  not  easy  to  compute  directly  within  the  simulation,  while  SNR^  and  G are 

easily  accessed.  Hence,  the  indirect  form  of  the  calculation  is  used. 

In  the  computer  simulation  code  all  powers  are  normalized  to  the 
unAGC'd  thermal  noise  power  at  the  ADC  input.  So  the  implementation  of  the 
saturation  noise  model  is  given  by  the  inequality. 

(2-13)  AGC(N)(SNRdt(N)/G+1)  < (7q)2/Nt 

o 

where  (7q)  is  the  maximum  total  power  at  the  ADC  output  and  N 

2 u 
represents  the  unAGC’d  thermal  noise  power  (2.8q)  in  the  low  sample  rate 

2 

mode  and  (11. 2q)  in  the  high  sample  rate  mode). 

There  are  two  errors  in  the  baseline  version  of  the  saturation 
noise  model  code: 

2 

(1)  The  value  for  N in  the  low  sample  rate  case  is  (1.4q) 
rather  than  (2.8q)  , and 

2 

(2)  The  value  for  N in  the  high  sample  rate  mode  is  (1.4q) 

t 2 

rather  than  (11. 2q)  . The  errors  have  been  corrected  in 
the  final  version  of  the  code  and  are  documented  in  Section 
2.3.3. 

2.3.3  Software  Design  Documentation 

The  simulation  changes  documented  in  Section  2.3.2  affect  these 
subroutines  in  the  baseline  code:  (1)  RSS,  (2)  SATNSE,  and  (3)  D1SCRM. 

Three  lines  of  code  were  changed  in  the  baseline  version  of  RSS 
shown  in  Figure  2.3-4.  These  included: 

(1)  Changing  the  AGCERR  computation  to  properly  reflect  the 
sample  rate  transition 
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C 00029230 

C *•« 00029240 

C • THIS  SUBROUTINE  COMPUTES  THE  RADAR  SIGNAL  STRENGTH  AND  UPDATES  * 00029250 

C • THE  AGO  SETTING.  • 00029260 

C • •••• * 00029270 

C 00029280 

C 00029290 

SUBROUTINE  RSS  00029300 

COMMON  /CNTL/IPWR, I MODE, IDUM1(7)  , DUM1  (3)  00029310 

COMMON  /ICNTL/IDUM2(14) ,MRNG. IDUM6( 12)  00029320 

COMMON  /OUTPUT/IDUM7(3) ,DUM3(6) ,SRSS, IDUM4(4)  00029330 

COMMON  / AGCDAT / AGCO , AGCODB , SNRDT , SNRDTD  00029340 

DIMENSION  PS( 10,2)  00029350 

DATA  PS/9. 1 . ,2. ,5*1 . ,2. ,4. ,8. ,8. ,16./, QNV/0 . 041 66666/  00029360 

C 00029370 

C 00029380 

C • STEP  1 : UPDATE  SYSTEM  AGC  * 00029390 

C .............................  00029400 

C 00029410 

C STEP  1-1:  COMPUTE  AGC  ERROR  AND  CHECK  LIMITS.  00029420 

AGCERR-4. »PS(MRNG. IMODE)/(AGCO« (SNRDT+1 ,0)+ONV)  00029430 

I F( AGC ERR . GT . 1 0 . ) AGC ERR- 10.0  00029440 

I F( AGCERR.LT. 0.1)  AGC ERR— 0 . 1 00029450 

C 00029460 

C STEP  1-2:  COMPUTE  NEW  AGC  VALUE  AND  CHECK  LIMITS.  00029470 

AGCO-AGCERR.AGCO  00029480 

IF(AGCO.GT. 1 .0)  AGCCV1.0  00029490 

AGCODB— 10. *ALOG10(AGCO)  00029500 

C 00029510 

C 00029520 

C » STEP  2:  UPDATE  RADAR  SIGNAL  STRENGTH  VALUE  • 00029530 

C 00029540 

IF (AGCO. LT . T . 0E— 15)  AGCO-1 .0E-1 5 00029550 

SRSS-1 ./AGCO  00029560 

SRSS-10. .ALOGIO(SRSS)  00029570 

RETURN  00029580 

END  00029590 

C 00026530 


FIGURE  2.3-4  BASELINE  VERSION  OF  SUBROUTINE  RSS 
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(2)  Adding  the  6 dB  AGC  floor  level,  and 

(3)  Subtracting  6 dB  from  the  RSS  computation. 

Figures  2.3-5  gives  the  new  version  of  RSS  and  Figure  2.3-6  provides  a summary 
of  the  changes. 

Two  lines  of  code  were  changed  in  the  baseline  version  of  SATNSE 

o 

shown  in  Figure  2.3-7.  The  ratio  of  (7q)  /Nt  was  changed  from  12.25  to 
6.25  for  the  low  sample  rate  mode.  Also,  the  array  PS  was  updated  to  reflect 
the  values  given  in  Table  2.3-1  for  the  various  range  intervals.  The  new 
version  of  SATNSE  is  listed  in  Figure  2.3-8  and  a summary  of  the  changes  is 
provided  in  Figure  2.3-9. 

Three  major  changes  were  made  in  the  baseline  version  of 
subroutine  DISCRM  shown  in  Figure  2.3-10.  Two  changes  involved  altering 
values  of  constants.  The  values  of  the  array  PS  were  updated  to  those  of 
Table  2.3-1.  The  constant  QNV  was  converted  to  function  of  the  sample  rate 
and  its  values  were  computed  appropriately.  The  updated  version  of  DISCRM  is 
given  in  Figure  2.3-11  and  the  changes  are  summarized  in  Figure  2.3-12. 

2.3.4  Integration  and  Test  Data 

Accurate  Radar  Signal  Strength  (RSS)  simulation  outputs  was  one 
of  the  major  objectives  of  the  AGC  update.  With  this  objective  in  mind,  the 
tests  performed  were  to  validate  the  RSS  ouput.  Since  the  RSS  is  a function 
of  the  AGC,  a proper  RSS  output  would  validate  the  AGC  modifications. 

2. 3. 4.1  Test  Definition 


A test  trajectory  was  constructed  where  the  target  originated  at 
a 2400  ft  range,  moved  out  to  about  4000  ft  and  then  closed  to  1400  ft  thus 
moving  the  simulated  target  through  two  sample  rate  changes.  Two  simulation 
runs  of  this  trajectory  were  made  with  the  radar  cross  section  (RCS)  set  to 
lOd  Bsm.  A 10  dBsm  target  was  chosen  since  that  is  a common  actual  target 
RCS.  One  simulation  run  was  made  with  the  RCS  set  to  -40  dBsm.  This  RCS  was 
chosen  because  one  could  predict  a discontinuity  in  RSS  at  the  sample  rate 
changes  from  the  equations  and  it  was  desirable  to  see  if  the  simulation  also 
produced  this  result. 
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oooo  o oo  oooooooooooo  ooooooo 


• THIS  SUBROUTINE  COMPUTES  THE  RADAR  SIGNAL  STRENGTH  AND  UPDATES  * 

* THE  AGC  SETTING. 


SUBROUTINE  RSS 

COMMON  /CNTL/IPWR , I MODE*  IDUM1  (7)  ,DUM1  (3) 
COMMON  /ICNTL/IDUM2(  1 4)  .MRNG.MSAM,  IDUM6(  11) 
COMMON  /OUTPUT/ 1 DUM7  ( 3 ) . DUM3  ( 6 ) . SRSS , I DUM4  ( 4 ) 
COMMON  / AGCDAT / AGCO , AGCODB  * SNRDT , SNRDTD 
DIMENSION  PS(10,2),ONV(2),A1(2) 

DATA  PS/9*4 . ,2. ,5*4. .2., 4., 8. ,8. ,16./ 

DATA  ONV/. 00067, .01 1/, A1/. 0321  , .51/ 


SUBROUITNE  RSS  HAS  BEEN  UPDATED  TO  CORRESPOND  TO  THE 
DERIVATION  OF  AGC ERR  PRESENTED  IN  THE  FINAL  REPORT  ON 
KUBAND  COMPUTER  SIMULATION.  M.  MEYER  FEB  17,  1986 


• STEP  1 : UPDATE  SYSTEM  AGC  • 


STEP  1-1:  COMPUTE  AGC  ERROR  AND  CHECK  LIMITS. 

UPDATED  FEB  17,  1986 

AGCERR-A1  (MSAM) *4 . *PS(MRNG , IMODE)/( AGCO*  (SNRDT+1 . 0)+ONV(MSAM)  ) 
1 F ( AGCERR . GT . 1 0 . ) AGCERR-10.0 
I F ( AGCERR . LT . 0 . 1 ) AGCERR-0.1 

STEP  1-2:  COMPUTE  NEW  AGC  VALUE  AND  CHECK  LIMITS. 

AGCO-AGC  ERR  * AGCO 

UPDATED  FEB  17,  1986 

I F(AGCO. GT . 0 . 25)  AGCO-0.25 
AGCOOB— 1 0 . * ALOG1 0( AGCO) 


• STEP  2:  UPDATE  RADAR  SIGNAL  STRENGTH  VALUE  • 


I F ( AGCO . LT . 1 . 0E— 15)  AGCC^I .0E-15 
SRSS— 1 ./AGCO 

C UPDATED  FEB  17,  1986 

SRSS— 10 . *ALOG10(SRSS)— 6 . 0 
RETURN 
END 
C 


FIGURE  2,3-5  DELIVERABLE  VERSION  OF  SUBROUTINE  RSS 
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00029240 

00029250 

00029260 

00029270 

00029280 

00029290 

00029300 

00029310 

00029330 

00029340 


00029370 

00029380 

00029390 

00029400 

00029410 


00029440 

00029450 

00029460 

00029470 

00029480 


00029500 

00029510 

00029520 

00029530 

00029540 

00029550 


00029580 

00029590 
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LINES  DELETED 

24 

25 

26 

27 

28 

29  C 


FROM  BASELINE  PROGRAM 
COMMON  /ICNTL/IDUM2(  14)  ,MRNG,  IDUM6(  12) 

COMMON  /OUTPUT/ I DUM7 ( 3 ) , DUM3 ( 6 ) , SRSS . I DUM4 ( 4 ) 

COMMON  /AGCDAT /AGCO  # AGCODB  , SNRDT  . SNRDTD 
DIMENSION  PS( 10, 2) 

DATA  PS/9*1 . ,2. .5*1 ..2.  ,4. ,8. .8. . 1 6 ./ .ONV/0 . 041 66666/ 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

24  COMMON  /JCNTL/IDUM2(1 4)  ,MRNG  ,MSAM,  IDUM6(  1 1 ) 

COMMON  /OUTPUT/ 1 DUM7  ( 3 ) . DUM3  ( 6 ) . SRSS , I DUM4  ( 4 ) 
COMMON  /AGCDAT/AGCO, AGCODB, SNRDT. SNRDTD 
DIMENSION  PS( 10 ,2) ,QNV(2) , A1 (2) 

DATA  PS/9*4 . ,2. ,5*4.  ,2.  ,4. ,8. ,8. ,16./ 

DATA  ONV/. 00067. .01 1/ ,A1/ . 0321  . .51/ 

SUBROUITNE  RSS  HAS  BEEN  UPDATED  TO  CORRESPOND  TO  THE 
DERIVATION  OF  AGCERR  PRESENTED  IN  THE  FINAL  REPORT  ON 
KUBAND  COMPUTER  SIMULATION.  M.  MEYER  FEB  17,  1986 


25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 


LINES  DELETED  FROM  BASELINE  PROGRAM 

34  C STEP  1-1:  COMPUTE  AGC  ERROR  AND  CHECK  LIMITS. 

35  AGCERR-4.  *PS(MRNG,  IMODE)/(AGCO*(SNRDT+1  .0)+QNV) 

36  IF(AGCERR.GT. 10. ) AGCERR-10.0 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

40  C STEP  1-1:  COMPUTE  AGC  ERROR  AND  CHECK  LIMITS. 

41  C UPDATED  FEB  17,  1986 

42  AGCERR— A 1 (MSAM)*4.  *PS(MRNG,  IMODE)/(AGCO*(SNRDT+1  .0)+QNV(MSAM)  ) 

43  I F( AGCERR . GT . 1 0 . ) AGCERR-10.0 


LINES  DELETED  FROM  BASELINE  PROGRAM 

41  I F(AGCO.GT .1.0)  AGCO-1.0 

42  AGCODB— 1 0 . *ALOG1 0( AGCO) 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

48  C UPDATED  FEB  17,  1986 

49  IF(AGCO.GT.0.25)  AGCO-0.25 

50  AGCODB— 1 0 . *ALOG1 0(  AGCO) 


LINES  DELETED  FROM  BASELINE  PROGRAM 

48  SRSS— 1 ./AGCO 

49  SRSS- 1 0 . * ALOG 1 0 ( SRSS ) 

50  RETURN 


FIGURE  2*3-6  SUMMARY  OF  MODIFICATIONS  TO  SUBROUTINE  RSS 
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LINES  ADDED  TO  DELIVERABLE  PROGRAM 


56 

57 

58 

59 


SRSS-1 ./AGCO 
-UPDATED  FEB  17. 


1986- 


SRSS*  1 0 . * A LOG  1 0 ( SRSS ) -6 . 0 
RETURN 


Number  of  different  sections  found:  4 
Number  of  difference  records  found:  19 

DIFFERENCES  /IGNORE«( )/MERGED-1 /OUTPUT *SYS$D I SK3 : [MCCOLLOUGH]DI FF5 . FOR ; 1- 
SYSSDISK3:  [MCCOLLOUGHlRSSH. FOR ;2- 
SYSSDl  SK3 : [ MCCOL LOUGH  JRSSF . FOR ; 2 


00029580 


FIGURE  2.3-6  SUMMARY  OF  MODIFICATIONS  TO  SUBROUTINE  RSS 
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ooooooooo 


* THIS  SUBROUTINE  DETERMINES  WHETHER  THE  SIGNAL  PLUS  NOISE 

* IS  SATURATING  THE  A/D  IF  SO, THEN  THE  SNR  AT  DOPPLER 

* FILTER  OUTPUT  IS  LIMITED  TO  THE  VALUE  THAT  JUST  SATUR- 

* ATES  THE  A/D. 


SUBROUTINE  SATNSE(SNF) 

COMMON  /CNTL/IPWR, I MODE 

COMMON  /ICNTL/IDUM(14) , MRNG 

COMMON  / AGCDAT/AGCO , AGCODB , SNRDT , SNRDTD 

DIMENSION  PS( 10,2) 

DATA  PS/9* 10. 0,2. ,5*1 .,2. ,4. ,8.  ,8.  .16./ 
SNF-1  . 

X-AGCO*  (SNRDT/(4 . *PS(MRNG , IMODE) )+1 . 0) 

X-12.25/X 

IF(X.GT.I)  RETURN 

SNF-X 

RETURN 

END 
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• THIS  SUBROUTINE  DETERMINES  WHETHER  THE  SIGNAL  PLUS  NOISE 

• IS  SATURATING  THE  A/D  IT  SO. THEN  THE  SNR  AT  DOPPLER 

• FILTER  OUTPUT  IS  LIMITED  TO  THE  VALUE  THAT  JUST  SATUR- 

• ATES  THE  A/D. 


SUBROUTINE  SATNSE(SNF) 

COMMON  /CNT  L/ 1 PWR , I MODE 
COMMON  /ICNTL/IDUM(14) . MRNG 
COMMON  /AGCDAT /AGCO . AGCODB . SNRDT . SNRDTD 
DIMENSION  PS(10,2) 

- PS  VALUES  WERE  UPDATED  FEB  17,1986  BY  M.  MEYER 

DATA  PS/9.4. 0.2. ,5*4. , 2 . .4 . . 8 . .8 . , 1 6 ./ 

SNF-1 . 

X«AGCO* (SNRDT/(4 . *PS(MRNG , I MODE) )+1 .0) 


X-12.25/X  WAS  REPLACED  BY  X-6.25/X  TO  MORE  ACCURATELY 
REFLECT  A/D  SATURATION  BY  M.  MEYER  FEB  17.  1986 


X-6.25/X 

IF(X.GT.I)  RETURN 

SNF-X 

RETURN 

END 
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ORiGfNAL  PAGE  is 

w poor  QUAury 


LINES  DELETED  FROM  BASELINE  PROGRAM 


28 

DIMENSION  PS(10,2) 

00035670 

29 

DATA  PS/9.10.0,2. .5*1 . , 2. .4 . ,8. .8. . 16./ 

00035680 

30 

SNF-1 . 

00035690 

31 

X-AGCO*  (SNRDT/(4 . *PS(MRNG , IMODE)  )+1 . 0) 

00035700 

32 

X-12.25/X 

00035710 

33 

IF(X.GT.I)  RETURN 

00035720 

LINES 

ADDED  TO  DELIVERABLE  PROGRAM 

28 

DIMENSION  PS( 10,2) 

29 

C 

30 

C - 

PS  VALUES  WERE  UPDATED  FEB  17,1986  BY  M.  MEYER 

_ 

31 

C 

32 

DATA  PS/9.4.0,2. ,5.4., 2. ,4. ,8. ,8. , 16./ 

33 

SNF-1 . 

00035690 

34 

35 

r 

X-AGCO. (SNRDT/(4.  «PS(MRNG,  IMODE) )+1 .0) 

00035700 

36 

C 

X-12.25/X  WAS  REPLACED  BY  X-6.25/X  TO  MORE  ACCURATELY 

37 

38 

C 

c 

REFLECT  A/D  SATURATION  BY  M.  MEYER  FEB  17.  1986 

39 

X-6 . 25/X 

40 

IF(X.GT.I)  RETURN 

00035720 

Number  of  difference  sections  found:  1 
Number  of  difference  records  found:  12 


DIFFERENCES  /IGNORE-()/MERGED-1/OUTPUT«SYS$DISK3 : [MCCOLLOUGHlDI FF3 . FOR ; 1- 
SYSSD I SK3 : f MCCOLLOUGH 1 SATNSEH . FOR ; 2- 
SYS$DI SK3 : [MCCOLLOUGH JSATNSEF . FOR ; 2 
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• THIS  SUBROUTINE  ADDS  THE  EQUIVALENT  NOISE  TO  THE  ANGLE.  RANGE.  • 

• VELOCITY  ANO  ON-TARGET  DISCRIMINANT  COMPONENTS  AND  THEN  COM-  • 

• PUTES  THE  ANGLE.  RANGE.  VELOCITY.  AND  ON-TARGET  DISCRIMINANTS.  * 


SUBROUTINE  OISCRM 
REAL  LATE, MEAN 

COMMON  /OUTPUT /MSWF .MTF.MSF, SRNG . SRDOT , SPANG , SRANG . SPRTE . 

2 SRRTE , SRSS , MADVF , MRDVF , MARDVF . MRRDVF 

COMMON  /CNTL/IPWR, IMODE. ITXP, IASM. IDUMC(5) .DUMC(3) 

COMMON  /ICNTL/I3DUM( 14) . MRNG . MSAM , MPRF . IDUM4(10) 

COMMON  /SYSDAT/TSAM , DR ( 3 ) .CP.SP.PSI .PSBIAS.ALBIAS.BTBIAS.GP.GA. 
2 DUMS(3) 

COMMON  /TGTDAT/NT . DUM5 ( 506 ) . CGRNGE , CGVEL 

COMMON  /DSCRM/AZD I SC . ELD I SC , RD I SC , VD I SC , RRTE , OD I SC , S I GBR 1 , SNRD , 
2 SIGDB 

COMMON  /SIGDAT/SPAZ.SMAZ.SPEL.SMEL. EARLY. LATE. DF1 ,DF5. 

2 DF2.DF4.SIGBAR 

COMMON  /NO IS E/NS 1 ,NS2.NN( 10) ,GAUSS(320) 

COMMON  / AGCDAT /AGCO . AGCODB . SNRDT . SNRDTD 

DIMENSION  NFREQ(2) ,PDIA(2) ,PDIR(2) ,PDIV(2) ,PS(10.2) ,BN(2) .PT(3) 
2 ,TDC(3) 

DATA  NFREQ/1 ,5/, BN/9772 .4 . 616. 6/ ,PS/9*1 . ,2. .5*1 . .2. ,4. .8. ,8. ,16 

2 ,PDIA.PDIR,PDIV/1 .4142,3.1623,2.8,4.4721 ,2.8284,6.3246/, 

3 PT/42658 . ,3125 . , 1 95 .3/.0NV/. 041 66666/ 

DATA  TDC/0 . 051 221 1 8 . 0 . 1 1 951 61 , 0 . 2561557/ 

NOTE:  DEBUGGING  PRINT  STATEMENTS. 

WR I TE ( 6 , 900 ) SPAZ . SMAZ . SPEL . SMEL , EARLY , LATE 
WRITE(6 , 901 ) DF1 ,DF5,DF2,DF4,SIG8AR 

900  FORMAT ( * SPZ.SMZ.SPL,SML,E,L  «\6F10.2) 

901  FORMAT ( ’ DF1  ,DF5,DF2.DF4.SIG  ,5F10.2) 


* STEP  1:  COMPUTE  CONSTANT  USED  IN  SIGNAL  SCALING  AND  COMPUTATION  • 

* OF  NOISE  STATISTICS.  * 


TCON-( T SAM/TDC ( MPR  F ) ) • * . 5 

STEP  1-1:  COMPUTE  CONSTANT  (NOTE:  IT  IS  DIFFERENT  FOR  ACTIVE  AND 
PASSIVE  MODES) . 

IF( IMODE. EO. 2)  GO  TO  5 
C NOTE:  THIS  IS  THE  CONSTANT  USED  IN  ACTIVE  MODE. 

YY-GA*PS(MRNG.  IM0DE)/(CGRNGE**2*BN(MSAM) ) 

S 1 -YY/F LOAT ( NFREQ( IMOD E ) ) 
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GO  TO  10  00023160 

C NOTE:  THIS  IS  THE  CONSTANT  USED  IN  PASSIVE  MODE.  00023170 

CCCCCCCCCCCCCCCCCCCCCCCCCC  MODS  2-15-83  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C 

5 CONTINUE 

PTFIX-PT(ITXP) 

IF(SRNG.LT.640.)PTFIX-4.2 

ISTS7-0 

I F ( ISTS7 . EQ.  1 )PTFIX— 4 . 2 
C 


YY«GP*PS(MRNG , IMODE) *PTFIX  /(CGRNGE* *4*BN(MSAM) ) 

S1«YY/FLOAT(NFREQ( I MODE) ) 

C 

C STEP  1-2:  COMPUTE  PEAK  SIGNAL  POWER  TO  AVERAGE  THERMAL  NOISE  POWER 
C AT  DOPPLER  FILTER  OUTPUT. 

10  SNRDT-YY*SIGBAR 
C WRITE(6 ,221 )YY .S1GBAR 

C 221  FORMAT ( *YY .SIGBAR  -*,F14.5) 

SNRDTD-10. *ALOG10(SNRDT) 

SIGDB— 1 0 . *ALOG10(S1GBAR) 

SIGBR1-SIGBAR 

C222  WRITE (6. 990)  SNRDTD ,SIGDB 

990  FORMAT ( * SNRDTD, SIGDB  *’ .2F14.2) 

C 

C STEP  1-3:  COMPUTE  PEAK  SIGNAL  POWER  TO  TOTAL  (THERMAL  PLUS 
C QUANTIZATION)  NOISE  POWER  AT  THE  DOPPLER  FILTER  OUTPUT. 

CALL  SATNSE(SNF) 

XX-SNF  *AGCO 
XX— XX/  ( XX-hQNV  ) 

si-si *xx 

YY-YY*XX 

SNRD-YY  * S I GB AR 

SNRD-  1 0 . * A LOG  1 0 ( SNRD ) 

C 

C STEP  1-4:  UPDATE  NOISE  SEOUENCE. 

NN(l)-MOD(NN(1)+1 ,320)+1 
DO  15  1-2.10 

15  NN(  I )— MOD(NN(  1-1  )+29 ,320)+1 
ID1— NN( 1 ) 

GAUSS  ( ID1  )=»ANORM(NS1  ,NS2) 

C 

C • STEP  2:  COMPUTE  ANGLE  DISCRIMINANT  (INCLUDES  NOISE)  • 

c 

c STEP  2-1:  CHECK  ANTENNA  STEERING  MODE  SKIP  STEP  2 IF  IN 

C GPC-DES  OR  MANUAL. 

CCCCCCCCCCCCCCCCCCCCC  MOD  FEB  16  1983  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
I F ( I ASM . EQ . 2 . OR . I ASM . EQ . 4 ) GO  TO  20 
C 

C STEP  2-2:  COMPUTE  ANGLE  DISCRIMINANT  COMPONENT  SCALE  FACTOR. 

ASC  ALE-SI *PDIA( IMODE) 

C 

C STEP  2-3  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  ANGLE 
C DISCRIMINANT  COMPONENTS. 

MEAN-PDIA( IMODE) 

VARPAZ— SORT ( 2 . *S1 *SPAZ+1 . ) 

VARMAZ— SORT ( 2 . *$1  ♦SMAZ+I  . ) 

VARPEL— S0RT(2 . *S1  *SPEL+1  . ) 

VARMEL-SORT(2  . *S1  *SMEL+1  . ) 

C 

C STEP  2-4:  ADD  EQUIVALENT  NOISE  TO  ANGLE  DISCRIMINANT  COMPONENT 
C SIGNALS. 

ID6— NN(6) 
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SPAZ— ABS  ( ASCALE*  SPAZ+MEAN+V  ARP  AZ  * GAUSS  ( ID1  )) 
SMAZ— ABS  ( ASCALE*SMAZ4MEAN+VARMAZ  *GAUSS  ( ID6)  ) 
ID2-NN(2) 

ID7«NN(7) 

SPEL-ABS(ASCALE*SPEL+MEAN+VARPEL*GAUSS(  ID2)  ) 

SME  L-ABS  ( ASCA  LE  * SME  L+MEAN+V  ARME  L * GAUSS  ( I D7  ) ) 

STEP  2-5:  COMPUTE  AZ  AND  EL  DISCRIMINANT  COMPONENTS. 
AZD I SC-1 0 . * ALOG 1 0 ( SPAZ/SMAZ ) 

ELD  I SC-1 0 . * AL0G1 0 ( SPEL/SMEL) 

AZDISC-0. 

ELD I SC— 0. 


* STEP  3:  COMPUTE  RANGE  DISCRIMINANT  (INCLUDES  NOISE)  * 


STEP  3-1:  COMPUTE  RANGE  DISCRIMINANT  COMPONENT  SCALE  FACTOR. 

20  RSCALE-S1 *PDIR( IMODE) 

STEP  3-2:  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  RANGE 
DISCRIMINANT. 

MEAN-PDIR(IMODE) 

VARELY«SQRT(2.*S1*EARLY+1 .)*TCON 
VARLTE— SORT (2. ^Sl *LATE+1 . )*TCON 

STEP  3-3:  ADD  EQUIVALENT  NOISE  TO  RANGE  DISCRIMINANT  COMPONENT 
SIGNALS. 

ID3— NN(3) 

ID8— NN(8) 

EARLY-ABS(RSCALE*EARLY4MEAN+VARELY*GAUSS(  ID3)  ) 
LATE-ABS(RSCALE*LATE+MEAN+VARLTE*GAUSS(  ID8) ) 

STEP  3-4:  COMPUTE  RANGE  DISCRIMINANT. 

RD I SC- 1 0 . • ALOG 1 0 ( LAT E/ EARLY ) 


• STEP  4:  COMPUTE  VELOCITY  DISCRIMINANT  (INCLUDES  NOISE)  • 


STEP  4—1 : COMPUTE  VELOCITY  DISCRIMINANT  COMPONENT  SCALE  FACTOR. 
VSCALE-S1 •PDIV( IMODE) 

STEP  4-2:  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  VELOCITY 
DISCRIMINANT  COMPONENTS. 

MEAN-PDIV( IMODE) 

VARDF2— SORT ( 2 . *S1 *DF2+1 . ) 

VARDF4-SQRT(2.*S1*DF4+1 . ) 

STEP  4-3:  ADD  EQUIVALENT  NOISE  TO  VELOCITY  DISCRIMINANT 
COMPONENT  SIGNALS. 

ID4— NN(4l 
ID9— NN(9) 

DF2-ABS  ( VSCALE*DF2+MEAN+VARDF2  *GAUSS  ( ID4)  ) 

D F 4»ABS ( VSCALE*DF4-fWEAN+VARDF4*GAUSS ( ID9) ) 

STEP  4-4:  COMPUTE  VELOCITY  DISCRIMINANT. 

VDISC— 10. *ALOG10(DF2/DF4) 


* STEP  5:  COMPUTE  ON-TARGET  DISCRIMINANT  USED  FOR  BREAK-  • 

* TRACK  AND  VELOCITY  DATA  INVALID  DETERMINATION  * 
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STEP  5-1:  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  OUTER  DOPPLER 
FILTER  SIGNALS. 

VARDF1-SQRT(2.*S1*DF1+1 .) 

VARDF5«SQRT(2 . *S1 *DF5+1 . ) 

STEP  5-2:  ADD  EQUIVALENT  NOISE  TO  OUTER  DOPPLER  FILTER  SIGNALS. 

I D5— NN ( 5 ) 

ID10-NN(10) 

DF 1 -ABS ( VSCALE*  DF 1 +MEAN+VARDF1 »GAUSS( I D5 ) ) 
DF5-ABS(VSCALE*DF5+MEAN+VARDF5*GAUSS(ID10)) 

STEP  5-3:  COMPUTE  ON-TARGET  DISCRIMINANT. 

NOTE:  THE  FACTOR  OF  SQRT(2.)  IS  DUE  TO  THE  METHOD  OF 
NORMALIZATION  OF  DISCRIMINANT  COMPONENTS. 

OD I SC-1 0 . • ALOG1 0( ( EARLY+LATE) *SQRT ( 2 . )/(DF1+DF5) ) 

NOTE:  DEBUGGING  PRINT  STATEMENTS. 

WRITE(6,902)  AZDISC , ELDISC ,RDISC , VDISC .OD1SC 
WRITE(6 , 903)  SNRD , S I GDB , S I GBAR 
WRITE( 6 . 904)  SPAZ . SMAZ , SPEL . SMEL . EARLY . LATE 
WRITE(6,905)  DF1 .DF5.DF2.DF4 .S1GBAR 

902  FORMAT (/’  AZD , ELD , RD . VD ,OD  - ' , 5F1 4 . 6) 

903  FORMAT ( ’ SNRD, SI GDB, SI GBAR  — ’.3F14.6) 

904  FORMAT ( ’ SPZ,SMZ,SPL,SML, E, L+NOISE  — ’ .6F10.2) 

905  FORMAT ( ’ DF1 , DF5 , DF2 ,DF4 , SIG+NOISE  — ' .5F10.2) 

RETURN 

END 
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• THIS  SUBROUTINE  ADDS  THE  EQUIVALENT  NOISE  TO  THE  ANGLE.  RANGE.  • 

• VELOCITY  AND  ON-TARGET  DISCRIMINANT  COMPONENTS  AND  THEN  COM-  * 

• PUTES  THE  ANGLE.  RANGE,  VELOCITY.  AND  ON-TARGET  DISCRIMINANTS.  • 


SUBROUTINE  DISCRM 
REAL  LATE, MEAN 

COMMON  /OUTPUT/MSWF .MTF.MSF, SRNG , SRDOT . SPANG . SRANG . SPRTE . 

2 SRRTE,  SRSS . MADVF , MRDVF . MARDVF . MRROVF 

COMMON  /CNTL/IPWR,  I MODE.  ITXP.IASM,  IDUMC(5)  ,DUMC(3) 

COkMON  /ICNTL/I3DUM(14) .MRNG.MSAM.MPRF, IDUM4(10) 

COMMON  /SYSDAT /TSAM , DR ( 3 ) .CP.SP.PSI .PSBIAS.ALBIAS.BTBIAS.GP.GA. 
2 DUMS(3) 

COMMON  /TGTDAT/NT . DUMS  ( 506  ) . CGRNGE . CGVEL 

COMJON  /DSCRM/A2DISC.ELDISC.RDISC.VDISC.RRTE.00ISC.SIGBR1  , SNRD , 
2 SIGDB 

COMMON  /SIGDAT/SPAZ.SMA2.SPEL.SMEL. EARLY. LATE. DF1  ,DF5, 

2 DF2.DF4.SIGBAR 

COMMON  /NOISE/NS1 ,NS2.NN(10) ,GAUSS(320) 

COMMON  /AGCDAT / AGCO , AGCODB . SNRDT , SNRDTD 

DIMENSION  NFREQ(2) ,PDIA(2) ,PDIR(2) ,PDIV(2) ,PS(10,2) .BN(2) ,PT(3) 
2 ,TDC(3) 

DIMENSION  QNV(2) 

PS  AND  ONV  CONSTANT  CHANGES  FEB  17.1986  BY  M.  MEYER 

DATA  NFREQ/1 ,5/ , BN/9772. 4 , 616. 6/ 

DATA  PS/9* 4 . .2. .5*4. ,2. .4. ,8. .8. . 16./ 

2 .PDIA.POIR.PDIV/1 .4142.3. 1623,2.0.4.4721 .2.8284,6.3246/, 

3 PT/42658. .3125. .195.3/ 

DATA  ONV/. 00067. .011/ 

DATA  TDC/0. 051221 18. 0.1 195161 .0.2561557/ 

NOTE:  DEBUGGING  PRINT  STATEMENTS. 

WRITE(6,900)  SPAZ . SMAZ , SPEL , SMEL .EARLY , LATE 
WRITE(6 , 901 ) DF1 , DF5 , DF2 . DF4 , SIGBAR 

900  FORMATC  SPZ.SMZ.SPL.SML.E.L  .6F10.2) 

901  ' FORMAT ( ’ DF1 .DF5.DF2.DF4.SIG  »’ .5F10.2) 


• STEP  1 : COMPUTE  CONSTANT  USED  IN  SIGNAL  SCALING  AND  COMPUTATION  * 

• OF  NOISE  STATISTICS.  * 


TCON-(TSAM/TDC(MPRF) )** .5 
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C STEP  1-1:  COMPUTE  CONSTANT  (NOTE:  IT  IS  DIFFERENT  FOR  ACTIVE  AND  00023090 

C PASSIVE  MODES)  00023100 

IF(IMODE.EQ.2)  GO  TO  5 00023120 

C NOTE:  THIS  IS  THE  CONSTANT  USED  IN  ACTIVE  MODE.  00023130 

YY-GA»PS(MRNG. IMODE)/(CGRNGE«»2»BN(MSAM))  00023140 

SI— YY/FLOAT(NFREQ( I MODE) ) 00023150 

GO  TO  10  00023160 

C NOTE:  THIS  IS  THE  CONSTANT  USED  IN  PASSIVE  MODE.  00023170 


CCCCCCCCCCCCCCCCCCCCCCCCCC  MODS  2-15-83  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C 

5 CONTINUE 

PTFIX-PT(ITXP) 

IF(SRNG.LT.640.)PTFIX-4.2 

ISTS7-0 

IF(ISTS7.EQ.1)PTFIX-4.2 

C 


YY«GP«PS(MRNG . IMODE) .PTFIX  /(CGRNGE«.4*BN(MSAM) ) 

S1«YY/FLOAT(NFREQ(IMODE)) 

C 

C STEP  1-2:  COMPUTE  PEAK  SIGNAL  POWER  TO  AVERAGE  THERMAL  NOISE  POWER 
C AT  DOPPLER  FILTER  OUTPUT. 

10  SNRDT  -YY • S I GB AR 
C WRITE(6,221)YY,SIGBAR 

221  FORMAT (’YY.S1GBAR  «• .2F14.5) 

SNRDTD- 1 0 . * A LOG 1 0 ( SNRDT ) 

SIGDB-10.*ALOG10(SIGBAR) 

SIGBR1-SIGBAR 

C222  WRITE(6 ,990)  SNRDTD , S1GDB 

990  FORMAT ( ' SNRDTD. S1GDB  «’ .2F14. 2) 

C 

C STEP  1-3:  COMPUTE  PEAK  SIGNAL  POWER  TO  TOTAL  (THERMAL  PLUS 
C QUANTIZATION)  NOISE  POWER  AT  THE  DOPPLER  FILTER  OUTPUT. 

CALL  SATNSE(SNF) 

XX-SNF.AGCO 
XX«XX/(XX+QNV(MSAM) ) 

SI-SI «XX 
YY— YY*XX 
SNRD— YY • S I GB AR 
SNRD-10. *ALOG10(SNRD) 

C 

C STEP  1-4:  UPDATE  NOISE  SEOUENCE. 

NN(1)^IOD(NN(1)+1 .320)41 
DO  15  1-2.10 

15  NN( I )-MOD(NN( 1—1 )+29 ,320)+1 
ID1-NN( 1 ) 

GAUSS ( ID1 )— ANORM(NS1 ,NS2) 

C 

C * 

C • STEP  2:  COMPUTE  ANGLE  DISCRIMINANT  (INCLUDES  NOISE)  • 

C 

c 

C STEP  2-1  : CHECK  ANTENNA  STEERING  MODE  SKIP  STEP  2 IF  IN 

C GPC-DES  OR  MANUAL. 

CCCCCCCCCCCCCCCCCCCCC  MOD  FEB  16  1983  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
IF(IASM. EQ.2.0R. I ASM. EQ.4)  GO  TO  20 
C 

C STEP  2-2:  COMPUTE  ANGLE  DISCRIMINANT  COMPONENT  SCALE  FACTOR. 

ASCALE-S1 *PDIA( IMODE) 

C 

C STEP  2-3:  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  ANGLE 
C DISCRIMINANT  COMPONENTS. 

MEAN-PDIA( IMODE) 

V ARP AZ— SORT (2 . *S1 *SPAZ+1 . ) 

VARMA2— SORT ( 2 . * S 1 «SMAZ+1 . ) 


00023180 

00023190 

00023200 

00023210 

00023220 

00023230 


00023240 

00023250 

00023260 

00023262 

00023264 

00023270 

00023280 

00023290 

00023292 

00023294 

00023300 
00023310 
00023320 
00023330 
00023340 
00023350 
00023360 
00023370 
0002338 0 
00023390 
00023400 
00023410 
00023420 
00023430 
00023440 
00023450 
00023460 
00023470 

00023480 

00023490 

00023500 

00023510 

00023520 

00023530 

00023540 

00023550 

00023560 

00023570 
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oo  ooo  ooooooooooo  ooo  ooooooooooo  oo  ooo 


VARPEL«S0RT(2.*S1*SPEL+1 . ) 

VARMEL-S0RT(2.*S1*SMEL+1 . ) 

STEP  2-4:  ADD  EQUIVALENT  NOISE  TO  ANGLE  DISCRIMINANT  COMPONENT 
SIGNALS. 

ID6-NN(6) 

SPAZ*ABS ( ASCALE*SPAZ+MEAN+VARPAZ*GAUSS ( ID1  ) ) 

SMAZ«ABS  ( ASCALE*  SMAZ+MEAN+VARMAZ  • GAUSS  ( I D6  ) ) 

ID2-NN(2) 

ID7-NN(7) 

SPEL»ABS( ASCALE* SPEL+MEAN+VARPEL*GAUSS(  ID2)  ) 

SMEL*ABS  ( ASCALE*SMEL+MEAN+VARMEL*  GAUSS  ( I D7)  ) 

STEP  2-5:  COMPUTE  AZ  AND  EL  DISCRIMINANT  COMPONENTS. 

AZD I SOI  0 . * AL0G1 0(  SPAZ/SMAZ ) 

ELD  I SOI  0 . * AL0G1 0(SPEL/SMEL) 

AZDISO0 . 

ELDISO0. 


• STEP  3:  COMPUTE  RANGE  DISCRIMINANT  (INCLUDES  NOISE)  * 


STEP  3—1 : COMPUTE  RANGE  DISCRIMINANT  COMPONENT  SCALE  FACTOR. 

20  RSCALE-S1 *PDIR( IMODE) 

STEP  3-2:  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  RANGE 
DISCRIMINANT. 

MEAN-PDIR( IMODE) 

VARELY»SQRT(2. *S1 *EARLY+1 . )*TCON 
VARLTE*SQRT(2. *S1 *LATE+1 . )*TCON 

STEP  3-3:  ADD  EQUIVALENT  NOISE  TO  RANGE  DISCRIMINANT  COMPONENT 
SIGNALS. 

ID3*NN(3) 

ID8-NN(8) 

EAR  L Y— ABS  ( RSC  A LE  • EAR  LY+MEAN+VAR  ELY*  GAUSS  ( I D3  ) ) 
LATE-ABS(RSCALE*LATE4MEAN+VARLTE*GAUSS(  ID8)  ) 

STEP  3-4:  COMPUTE  RANGE  DISCRIMINANT. 

RD I SOI  0.*ALQG10(  LATE/EARLY) 


• STEP  4:  COMPUTE  VELOCITY  DISCRIMINANT  (INCLUDES  NOISE)  • 


STEP  4-1:  COMPUTE  VELOCITY  DISCRIMINANT  COMPONENT  SCALE  FACTOR. 
VSCALE-S1 *PDIV( IMODE) 

STEP  4-2:  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  VELOCITY 
DISCRIMINANT  COMPONENTS. 

MEAN-PDIV( IMODE) 

VARDF2«SQRT(2 . *S1 *DF2+1 . ) 

VARDF4-SQRT(2.*S1*DF4+1 .) 

STEP  4-3:  ADD  EQUIVALENT  NOISE  TO  VELOCITY  DISCRIMINANT 
COMPONENT  SIGNALS. 

ID4-NN(4) 

ID9«NN(9) 

DF2-ABS ( VSCALE*DF24MEAN+VARDF2  *GAUSS ( ID4)  ) 

DF4«ABS(  VSCALE*D F44MEAN+VARDF4* GAUSS ( ID9)  ) 

STEP  4-4:  COMPUTE  VELOCITY  DISCRIMINANT. 

VDISOI 0 . *ALOG10(DF2/DF4) 
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00023590 

00023600 

00023610 
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00023630 
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00023970 
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00023990 

00024000 
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C 00024200 

C ••••* • ••* 00024210 

C « STEP  5:  COMPUTE  ON-TARGET  DISCRIMINANT  USED  FOR  BREAK-  . 00024220 

C • TRACK  AND  VELOCITY  DATA  INVALID  DETERMINATION  • 00024230 

C 00024240 

C 00024250 

C STEP  5-1:  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  OUTER  DOPPLER  00024260 

C FILTER  SIGNALS.  00024270 

VARDF1-SQRT(2.*S1»DF1+1 . ) 00024280 

VARDF5«SQRT(2 . *S1 *DF5+1 . ) 00024290 

C 00024300 

C STEP  5-2:  ADD  EQUIVALENT  NOISE  TO  OUTER  DOPPLER  FILTER  SIGNALS.  00024310 

ID5-NN(5)  00024320 

ID10-NN(10)  00024330 

DF1-ABS(VSCALE*DF1+MEAN+VARDF1 *GAUSS( ID5))  00024340 

DF5-ABS(VSCALE»DF5+MEAN+VARDF5*GAUSS( ID10))  00024350 

C 00024360 

C STEP  5-3:  COMPUTE  ON-TARGET  DISCRIMINANT.  00024370 

C NOTE:  THE  FACTOR  OF  SQRT(2.)  IS  DUE  TO  THE  METHOD  OF  00024380 

C NORMALIZATION  OF  DISCRIMINANT  COMPONENTS.  00024390 

OD I SC- 1 0 . • ALOG 1 0 ( ( EAR  LY+  LAT  E ) * SORT ( 2 . )/ ( DF1 +DF5 ) ) 00024400 

C 00024410 

C NOTE:  DEBUGGING  PRINT  STATEMENTS.  00024420 

C WRITE(6 ,902)  AZDISC , ELDISC ,RDISC . VDISC.ODISC  00024430 

C WRITE(6 .903)  SNRD , S I GDB . S I GBAR  00024440 

C WRITE(6 ,904)  SPAZ,SMAZ.SPEL,SMEL, EARLY, LATE  00024450 

C WRITE(6,905)  DF1 ,DF5 , DF2 ,DF4 , SIGBAR  00024460 

902  FORMAT (/’  AZD , ELD ,RD , VD ,OD  -’.5F14.6)  00024470 

903  FORMAT ( ’ SNRD , S1GDB . SIGBAR  -' .3F14 . 6)  00024480 

904  FORMAT ( ' SPZ ,SMZ , SPL.SML , E, L+NOISE  — ’ , 6F10 . 2)  00024490 

905  FORMAT ( ’ DF1 ,DF5,DF2,DF4 .SIG+N01SE  .5F10.2)  00024500 

RETURN  00024510 

END  00024520 

C 00031150 
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LINES  DELETED  FROM  BASELINE  PROGRAM 

40  DATA  N FREQ/1  ,5/,BN/9772.4,616.6/.PS/9»1 . ,2.  ,5*1 . .2.  .4.  ,8.  .8 . , 16 ./00022930 

41  2 ,PDIA,PDIR,PDIV/1 .4142,3.1623,2.0.4.4721 ,2.8284,6.3246/,  00022940 

42  3 PT/42658.  ,3125.  ,195. 3/, QNV/. 04166666/  00022950 

43  OATA  TDC/0. 05122118, 0.1195161 .0.2561557/ 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

40  DIMENSION  QNV(2) 

41  C 

42  C PS  AND  QNV  CONSTANT  CHANGES  FEB  17,1986  BY  M.  MEYER 

43  C 

44  DATA  N FREQ/1 . 5/ , BN/9772 .4,616.6/ 

45  DATA  PS/9*4. ,2. ,5»4. .2. ,4. .8. .8. .16./ 

46  2 .PDIA.PDIR.PDIV/1  .4142.3.1623.2.0,4.4721 ,2.8284,6.3246/, 

47  3 PT/42658. .3125. .195.3/ 

48  DATA  QNV/. 00067.. 011/ 

49  DATA  TDC/0. 051221 18,0. 1195161 .0.2561557/ 


00022940 


LINES  DELETED  FROM  BASELINE  PROGRAM 

81  C WRITE(6,221 )YY,S1GBAR 

82  C 221  FORMAT( ’YY.SIGBAR  -’ .F14.5) 

83  SNRDTD- 1 0 . * A LOG 1 0 ( SNRDT ) 00023240 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

87  C WRITE(6,221)YY.S!GBAR 

88  221  FORMAT! 'YY.SIGBAR  -‘ ,2F14. 5) 

89  SNRDTD-10.»ALOG10 (SNRDT)  00023240 


LINES 

DELETED  FROM  BASELINE  PROGRAM 

93 

XX— XX/ ( XX4QNV ) 

00023296 

94 

SI-SI «XX 

00023300 

LINES 

ADDED  TO  DELIVERABLE  PROGRAM 

99 

XX— XX/(XX4QNV(MSAM) ) 

100 

SI-SI *XX 

00023300 

Number  of  difference  sections  found:  3 
Number  of  difference  records  found:  12 

D I FFERENCES  /IGNORE-!) /MERGED-1  /OUTPUT -SYSSD I SK3 : [MCCOLLOUGH]DI FF4 . FOR;  1 — 
SYSSD I SK3 : [ MCCOLLOUGH 1 D 1 SCRMH . FOR ; 2- 
SYSSDISK3: [ MCCOLLOUGH  J D 1 SCRMF . FOR ; 2 


FIGURE  2.3-12  SUMMARY  OF  MODIFICATIONS  TO  SUBROUTINE  DISCRM 
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2. 3. 4. 2 


Test  Results 


The  first  test  run  with  a RCS  of  10  dBsm  showed  large  (1  dB) 
discontinuities  in  the  RSS  at  the  sample  rate  changes.  An  examination  of  the 
RSS  equation  expressed  in  terms  of  SNR^  and  thermal  noise  power  (N^) 
showed  that  this  result  was  not  predicted.  Consider  the  expression  for  RSS, 

2 

(2-14)  RSS-10  log(SNRyt+l/G)  + 10  log(Nt/4q  ) 

Now,  the  sample  rate  change  causes  a 12  db  change  in  SNRvt  and  a 12  db 
change  in  thermal  noise  power  N which  offsets  the  SNR  change. 

C 4 / 

Furthermore,  at  this  range  the  SNR^t  is  on  the  order  of  10  and  1/G  is 
1/16  therefore  the  sample  rate  change  shouldn’t  have  introduced  a 
discontinuity,  but  a discontinuity  appeared  in  the  data.  The  following  AGC 
equations  were  then  examined  to  determine  an  answer  to  this  unexpected  result: 

(2-15)  RSS-10  log (1/ AGC) 

(2-16)  AGC(Nfl)-AGC(N)AGCERR(N) 

(2-17)  AGCERR(N)-k1G/(AGC(N) (SNRDT(N)+l)+k2) 

where  G-signal  to  noise  ratio  gain  from  doppler  filter . 

k1-(2q)2/Nt 
k2«(q)2/(12  Nt) 

Nt*un  AGC'd  thermal  noise  at  the  A/D  input 

It  is  seen  that  the  variables  ^ and  kj  are  functions  of  the 
thermal  noise  power  Nt.  Therefore,  since  the  thermal  noise  power  changes  by  a 
factor  of  the  ratios  of  the  noise  bandwidth  of  the  high  sample  rate  video 
filter  to  the  noise  bandwidth  of  the  low  sample  rate  video  filter,  the  ratios 
between  k^(high  sample  rate)  and  k^(low  sample  rate)  and  the  ratio  between 
k2(high  sample  rate)  and  k2(low  sample  rate)  should  be  precisely  the 
ratios  of  the  noise  bandwidth.  In  Table  2-1  (from  page  2-3  of  Reference  1), 
from  which  the  values  of  k^  and  k2  were  taken,  this  was  not  true.  The 
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appropriate  modification  of  the  variables  and  k2  and  subsequent 

simulation  run  showed  that  this  solved  the  problem  (see  Figure  2.3-13)  and 
that  the  RSS  behaved  as  expected  over  the  entire  trajectory. 

A third  run  of  the  simulation  was  then  made  with  the  RCS  set  to 
-40dBsm.  The  output  RSS  plot  (Figure  2.3-14)  has  discontinuities  in  the  RSS 
at  both  high-to-low  and  low-to-high  sample  rate  changes.  Examination  of 
equation  2-14  shows  that  this  should  be  expected  in  both  cases.  Consider  the 
high  sample  rate-to-low  sample  rate  transition.  The  SNRyt  in  the  high 
sample  rate  mode  is  less  than  1.  Therefore  the  SNRvt  is  on  the  same  order 

of  magnitude  as  1/G.  Now,  switching  to  the  low  sample  rate  mode  increases 

SNR^t  by  12  db  and  decrease  the  thermal  noise  power  by  12  db.  Although 

SNR^t  changes  by  12  db  the  change  in  the  term  10  log(SNRvt+l/G)  is  less 
than  12  db  because  SNR^  is  on  the  same  order  as  l/G  in  the  high  sample  rate 
mode.  For  the  low  sample  rate-to-high  sample  rate  case,  the  mechanism 

producing  the  discontinuity  is  the  same  except  that  the  SNR^  decreases  by 
12  db  and  the  noise  power  increases  12  db. 

2.4  RADAR  PROCESSING  PARAMETER  CHANGES 


2.4.1  Problem  Definition 


Problems  documented  in  this  section  were  precipitated  by  several 
modifications  in  the  radar  design  during  the  system  test  phase  of  the  radar 
development.  These  modifications  included  changes  in  pulsewidth,  PRF,  and 
transmit  power  transition  points.  In  addition,  the  original  simulation  model 
neglected  to  include  the  hysteresis  loops  governing  the  sample  rate  transition 
point  and  the  PRF  transition  point.  While  ignoring  the  hysteresis  loop 
produces  only  very  minor  performance  error,  the  addition  of  this  loop  was  a 
minor  operation  and  was  therefore  included  in  the  modifications  package. 
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0 10  20  30  40  50  60  70 


TIME  (SEC0N0S) 

MEAN  * 1.572  STANDARD  DEVIATION  = 0.177 


FIGURE  2.3-13  SIMULATED  RADAR  SIGNAL  STRENGTH 
RADAR  CROSS  SECTION  = + 10  dBsm 
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SIMULATED 


0 10  20  30  40  50  60  7C 


TIME  (SECONDS) 

MEAN  = 0.075  STANDARD  DEVIATION  = 0. 


FIGURE  2.3-14  SIMULATED  RADAR  SIGNAL  STRENGTH 
RADAR  CROSS  SECTION  = -40  dBsm 


2.4.2 


Algorithm  Modifications 


Modifications  to  this  algorithm  include  the  following  items: 

o moving  the  7— kHz  to  3- kHz  PRF  transition  point  from  9.8 

nautical  miles  into  8.2  nautical  miles. 

o adding  hysteresis  to  the  7- kHz  to  3— kHz  FRF  transition. 

o adding  hysteresis  to  the  high  sample  rate- to— low  sample  rate 

transition  point. 

o updating  the  range  interval  boundary  table. 

Figure  2.4-1  provides  an  illustration  of  the  hysteresis  loop 
applied  to  the  7-kHz  to  3-kHz  PRF  transition.  Figures  2.4-2  defines  the 
hysteresis  loop  applied  to  the  sample  rate  transition.  Also  the  range 

interval  boundaries  were  updated  to  accurately  reflect  those  used  in  the  radar 
processor.  Table  2.4-1  summarizes  the  new  boundaries  and  the  track  mode 
pulsewidth  associated  with  those  boundaries. 

2.4.3  Software  Design  Documentation 

The  changes  described  in  Sections  2.4.1  and  2.4.2  were 
implemented  through  modifications  to  subroutine  CNTRLS.  The  modifications 
included: 

o Modifying  four  lines  of  existing  code,  and  adding  code  to 

simulate  the  hysteresis  loop  for  sampling  rate  transition. 

o Modifying  four  lines  of-  existing  code,  and  adding  code  to 

simulate  the  hysteresis  loop  for  Pulse  Repetition  Frequency 
(PRF)  transition. 
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FIGURE  2.4 


2 HYSTERESIS  LOOP  FOR  SAMPLE  RATE  TRANSITION 
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TABLE  2.4-1  NEW  RANGE  INTERVAL  BOUNDARIES 


1 

f 

» 

MRNG* 

t t 

’ RANGE  INTERVAL,  FEET  ’ 

9 f 

PULSEWIDTH,  SEC 

t 

9 

9 

9 

t 

1 

t t 

120 

0.122 

9 

9 

I 

2 

' 120 

- 

630  ’ 

0.122 

9 

t 

3 

' 640 

- 

1510  ’ 

0.122 

9 

1 

4 

• 1520 

- 

2550  • 

0.122 

9 

1 

5 

• 2560 

- 

5750 

2.07 

9 

t 

6 

' 5760 

- 

11510  • 

4.15 

9 

9 

7 

’ 11510 

- 

23030 

8.3 

9 

t 

8 

* 23040 

- 

43510 

16.6 

9 

t 

9 

* 43520 

- 

49910 

33.2 

T 

t 

t 

10 

• 49920 

t 

» 

1.82  E-6 

» 

f 

33.2 

9 

I 

9 

It  should  be  noted  that  minor  changes  to  the  values  of  constants 
were  made  In  the  main  program  and  the  subroutines  DISCRM,  RTRACK,  SIGNAL,  and 
RSS  to  accommodate  the  changes  made  to  CNTRLS.  These  changes  are  minor,  and 
are  documented  In  Sections  2.2  and  2.3,  so  they  will  not  be  repeated  here. 

Figure  2.4-3  is  a listing  of  the  baseline  version  of  CNTRLS. 
Figure  2.4-4  is  a listing  of  the  deliverable  version  of  CNTRLS.  The 
differences  between  the  baseline  and  deliverable  subroutines  are  listed  in 
Figure  2.4-5. 


2.4.4  Integration  and  Test  Data 

Testing  of  the  high~sample  to  low-sample  rate  hysteresis  loop 
defined  in  Figure  2.4-2  consisted  of  using  the  following  scenario  in  the 
simulation.  A 10  dBsm  target  was  moved  in  range  from  2400  feet  to  4000  feet 
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c 00028500 

C 00028510 

C • THIS  SUBROUTINE  UPDATES  ALL  RADAR  INTERNAL  CONTROLS.  * 00028520 

c * * 00028530 

c 00028540 

c 00028550 

SUBROUTINE  CNTRLS  00028560 

REAL  INTT.NFIL, IRNG, IRDOT  00028565 

COMMON  /CNTL/IPWR, I MODE. IDUMC(7) ,DUMC(3)  00028570 

COMMON  /OUTPUT/ IDUM0( 3) .SRNG.SRDOT ,DUM2(5) , IDUM(4)  00028580 

C0M40N  /ICNTL/1 1DUM(  14)  ,MRNG,MSAM,MPRF,  IDUM1  (10)  .MPFOLD  00028590 

COMMON  /RTDAT/IRDOT, IRNG,RBIAS,VEST(4) ,MDF(5)  00028600 

DIMENSION  RI (10) , FW(3)  00028610 

C RI(4)  CHANGED  TO  2560  FROM  2552 

DATA  RI/120. ,240. ,780.  ,2560. ,5772. ,11544. ,23089. .43747. , 00028620 

2 57722 . , 1 . 8228E+6/  00028630 

DATA  FW/7 .721 5. 3. 3090, 0.2969/, NR  1/10/  00028640 

C 00028650 

c 00028660 

C • STEP  1 : SET  RANGE  INTERVAL  PARAMETER  • 00028670 

C 00028680 

XRNG-IRNG.0.3125 

DO  60  I«1 , NRI  00028690 

IF(XRNG. LE.RI ( I))  GO  TO  70  00028700 

60  CONTINUE  00028710 

70  MRNG»I  00028720 

IF(MRNG.GT.NRI)  STOP  00028730 

c 00028740 

c 00028750 

C • STEP  2:  SET  SAMPLE  RATE  PARAMETER  • 00028760 

C 00028770 

IF( IMODE.GE.2)  GO  TO  74  00028780 

IF(MRNG.GT.9)  GO  TO  72  00028790 

MSAL^I  00028800 

GO  TO  80  00028810 

72  MSAA*«2  00028820 

GO  TO  80  00028830 

74  IF(MRNG.GT.4)  GO  TO  76  00028840 

MSAM-1  00028850 

GO  TO  80  „ 00028860 

76  MSA»^2  00028870 

C 00028880 

C .............................  00028890 

C . STEP  3:  SET  PRF  PARAMETER  • 00028900 

C 00028910 

C 00028920 

C STEP  3-1:  DETERMINE  IF  IN  ACTIVE  OR  PASSIVE  MODE.  00028930 

80  IF( IM00E.GE.2)  GO  TO  84  00028940 

C 00028950 

C STEP  3-2:  DETERMINE  CORRECT  PRF  FOR  GIVEN  OPERATING  MODE.  00028960 


FIGURE  2.4-3  BASELINE  VERSION  OF  SUBROUTINE  CNTRLS 
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00028970 

00028980 

00028990 

00029000 

00029010 

00029020 

00029030 

00029040 

00029050 

00029060 

00029070 

00029080 

00029090 

00029100 

00029110 
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IF(MRNG.GT.9)  GO  TO  82 
MPRF-1 
GO  TO  90 
82  MPRF-3 

GO  TO  90 

84  IF(MRNG.GT .9)  GO  TO  86 

MPRF-1 
GO  TO  90 
86  MPRF-2 

90  CONTINUE 

STEP  3-3:  IF  PRF  HAS  CHANGED  FROM  PREVIOUS  DATA  CYCLE.  THEN 
RESET  THE  5 DOPPLER  TRACKING  FILTERS  ACCORDINGLY. 
IF(MPFOLD . EO.MPRF)  GO  TO  96 
NFI L-I NTT ( (-SRDOT/FW(MPRF) )+0 . 5 )+31 998 . 

XX*AMOD(NFI  L , 32 . ) 

MDF(1)«INT(XX) 

DO  95  1*1 .4 

95  MDF(  1+1  )— MOD(MDF ( 1 )+1 ,32) 

96  MPFOLD-MPRF 

NOTE:  DEBUGGING  PRINT  STATEMENTS. 

WRITE(6 ,999)  MPRF ,MPFOLD ,MDF( 1 ) 

999  FORMAT ( ’ MPRF ,MP FOLD ,MD FI  -’.318) 

RETURN 
END 
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C 00028500 

C 00028510 

C • THIS  SUBROUTINE  UPDATES  ALL  RADAR  INTERNAL  CONTROLS.  * 00028520 

C 00028530 

C 00028540 

C 00028550 

SUBROUTINE  CNTRLS  00028560 

REAL  INTT ,NFI L, IRNG, IRDOT  00028565 

COMMON  /CNTL/IPWR, IMODE, IDUMC(7) ,DUMC(3)  00028570 

COMMON  /OUTPUT/I DUM0( 3) ,SRNG,SRD0T,DUM2(5) , IDUM(4)  00028580 

COMMON  /ICNTL/I 1DUM(14)  ,MRNG,MSAM,MPRF,  IDUM1  (10)  .MPFOLD  00028590 

COMMON  /RTDAT/IRD0T,IRNG,RBIAS,VEST(4),MDF(5)  00028600 

DIMENSION  RI(10),FW(3)  00028610 

C RI (4)  CHANGED  TO  2560  FROM  2552 

DATA  R 1/1 20 . . 640 . , 1 520 . , 2560 . , 5760 . , 1 1 520 . , 23040 . , 43520 . , 00028620 

2 49920 . , 1 . 8228 £+6/  00028630 

DATA  FW/7. 7215. 3. 3090,0. 2969/, NRI/10/  00028640 


C 

C 

C 

C IMPLEMENTATION  OF  HYSTERISIS  FOR  THE  SAMPLING  RATE 
C CHANGE  AND  FOR  THE  PRF  CHANGE  ALONG  WITH  CHANGES  IN 

C RI (RANGE  INTERVAL)  WAS  COMPLETED  FEB  6,1986  BY  M.  MEYER 


C 

c 00028650 

C 00028660 

C • STEP  1 : SET  RANGE  INTERVAL  PARAMETER  • 00028670 

C •***• * 00028680 

XRNG-IRNG*0.3125 

DO  60  1-1  ,NRI  00028690 

I F ( XRNG . LE . R I ( I ) ) GO  TO  70  00028700 

60  CONTINUE  00028710 

70  MRNG-I  00028720 

IF(MRNG.GT.NRI)  STOP  00028730 

C 00028740 

C 00028750 

C • STEP  2:  SET  SAMPLE  RATE  PARAMETER  • 00028760 

C 00028770 

IF( IMODE. GE. 2)  GO  TO  74  00028780 

I F ( MRNG . GT . 9 ) GO  TO  72  00028790 

MSAk^l  00028800 

GO  TO  80  00028810 

72  MSAM-2  00028820 

GO  TO  80  00028830 


C.....  MODIFIED  FEB  6 1986  BY  M.  MEYER 
74  I F ( MSAM . EQ . 1 ) THEN 

I F( XRNG. GT. 3200.) THEN 
MSAKH2 
ELSE 

MSAI*>1 
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C*****  MODIFIED  FEB  17,1986  BY  M.  MEYER  ***** 
C**»**  GUARANTEES  THE  CORRECT  LOOP  BANDWIDTHS 
C*****  FOR  THE  HYSTERISIS  LOOP •****•**•*•*•*• 


C 

I F ( XRNG . GT . 2560 ) MRNG-4 
C 



END  IF 
ELSE 

I F( XRNG. GT. 2560.) THEN 
MSAKK2 
ELSE 

MSAM-1 
END  IF 
END  IF 
C 

C ***.**•*•*••******•*•**••*•*• 

C • STEP  3:  SET  PRF  PARAMETER  • 

C 

C 

C STEP  3-1:  DETERMINE  IF  IN  ACTIVE  OR  PASSIVE  MODE. 

80  IF(  IMODE.GE.2)  GO  TO  84 

C 

C STEP  3-2:  DETERMINE  CORRECT  PRF  FOR  GIVEN  OPERATING  MODE. 
1F(MRNG .GT .9)  GO  TO  82 
MPRF-1 
GO  TO  90 
82  MPRF-3 

GO  TO  90 

C ******  MODIFIED  FEB  6 1986  BY  M.  MEYER  •*****.*•**. 

84  IF(MPRF.£0.1)THEN 

I F ( XRNG . GT . 49920 . ) THEN 
MPRF-2 
ELSE 

MPRF-1 
END  IF 
ELSE 

I F( XRNG. GT. 43520.) THEN 
MPRF-2 


C***»*  MODIFIED  FEB  17,  1986  BY  M.  MEYER 
C***»*  GUARANTEES  THE  CORRECT  CONSTANTS 

C*.**.  FOR  THE  LOW  PRF** ******* **•••*•** 


C 

MRNG-10 

C 

C*************************************. **»«.»*»**•**• 

ELSE 

MPRF-1 
END  IF 
END  IF 

90  CONTINUE 
C 

C STEP  3-3:  IF  PRF  HAS  CHANGED  FROM  PREVIOUS  DATA  CYCLE,  THEN 
C RESET  THE  5 DOPPLER  TRACKING  FILTERS  ACCORDINGLY. 

IF(MPFOLD.EQ.tfPRF)  GO  TO  96 
NFIL— INTT((-SRDOT/FW(MPRF))+0.5)+3l998. 
XX-AMOD(NFIL,32.) 

MDF(1  )— INT(XX) 

DO  95  1-1 ,4 

95  MDF(  1+1 )*MOD(MDF(1 )+1 ,32) 

96  MPFOLD-MPRF 
C 

C NOTE:  DEBUGGING  PRINT  STATEMENTS. 

C WRITE(6 ,999)  I^RF , MPFOLD , MDF ( 1 ) 
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999  FORMAT ( ' MPRF.MPFOLD.MDF1  •’,318)  00029190 

RETURN  00029200 

END  00029210 

C 00006680 
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LINES  DELETED  FROM  BASELINE  PROGRAM 

29  DATA  RI/120 . ,240.  ,780.  .2560.  ,5772.  .11544.  .23089.  ,43747.  , 

30  2 57722.  .1 .8228E+6/ 

31  DATA  FW/7 .7215 ,3 . 3090,0 . 2969/ , NR  1/10/ 

32  0 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

29  DATA  RI/120.  ,640.  ,1520.  ,2560.  .5760.  ,11520.  ,23040.  ,43520.  . 

30  2 49920.  ,1 .8228E+6/ 

31  DATA  FW/7 .7215,3. 3090 , 0 . 2969/ . NRI/1 0/ 

32  C 

33  C 

34  C 

35  G IMPLEMENTATION  OF  HYSTERISIS  FOR  THE  SAMPLING  RATE 

36  C CHANGE  AND  FOR  THE  PRF  CHANGE  ALONG  WITH  CHANGES  IN 

37  C RI (RANGE  INTERVAL)  WAS  COMPLETED  FEB  6,1986  BY  M.  MEYER 

38  C 

39  C 


LINES  DELETED  FROM  BASELINE  PROGRAM 


52  74  IF(MRNG.GT .4)  GO  TO  76 

53  MSAI^I 

54  GO  TO  80 

55  76  MSAM-2 

56  C 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

59  C*****  MODIFIED  FEB  6 1986  BY  M.  MEYER*******- 

60  74  I F ( MSAM . EQ . 1 ) THEN 

61  I F ( XRNG . GT . 3200 . ) THEN 

62  MSAJWH2 

63  ELSE 

64  MSAJt^l 

65  C*****  MODIFIED  FEB  17.1986  BY  M.  MEYER  •••*• 

66  C***»*  GUARANTEES  THE  CORRECT  LOOP  BANDWIDTHS 

67  C*****  FOR  THE  HYSTERISIS  LOOP*************** 

68  C 

69  1 F ( XRNG . GT  . 2560 ) MRNG-4 

70  C 

71  c* ********* ********************************** 

72  END  IF 

73  ELSE 

74  I F ( XRNG . GT . 2560 . ) THEN 

75  MSAfcM 

76  ELSE 

77  MSAIwM 

78  END  IF 

79  END  IF 
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80  C 


00028880 


LINES 

DELETED  FROM  BASELINE  PROGRAM 

70 

84 

IF(MRNG.GT.9)  GO  TO  86 

71 

MPRF-1 

72 

GO  TO  90 

73 

86 

MPRF-2 

74 

90 

CONTINUE 

LINES 

ADDED  TO 

DELIVERABLE  PROGRAM 

94 

C 

»•  MODIFIED  FEB  6 1986  BY  M.  MEYER 

95 

84 

IF(MPRF.E0.1)THEN 

96 

I F ( XRNG . GT . 49920 . ) THEN 

97 

MPRF-2 

98 

ELSE 

99 

MPRF-1 

100 

END  IF 

101 

ELSE 

102 

I F ( XRNG . GT . 43520 . ) THEN 

103 

MPRF-2 

104 

Cm*M 

MODIFIED  FEB  17,  1986  BY  M.  MEYER- 

105 

c*  * * * * 

GUARANTEES  THE  CORRECT  CONSTANTS  « 

r/-\n  jur  | n*jj 

1 0b 
107 

L**»  *• 

c 

108 

MRNG-10 

109 

4 1 A 

c 

r> 

lie 

in 

ELSE 

112 

MPRF-1 

113 

END  IF 

114 

END  IF 

115 

90 

CONTINUE 

00029020 

00029030 

00029040 

00029050 

00029060 


00029060 


Number  of  difference  sections  found:  3 
Number  of  difference  records  found:  52 

DIFFERENCES  /1GN0RE»( )/MERGED-1/0UTPUT-SYS$DISK3: [MCC0LL0UGH]DIFF6 . FOR ; 1- 
SYSSDISK3 : [ MCCO L LOUGH 1 CNTR  LSH . FOR ; 2- 
SYSSD1SK3 : [MCCOLLOUGH JCNTRLSF . FOR ; 2 


FIGURE  2.4-5  SUMMARY  OF  MODIFICATIONS  TO  SUBROUTINE  CNTRLS 

PAGE  2 


2-93 


with  a speed  of  50  feet  per  second  and  then  the  target  range  was  decreased 
from  4000  feet  to  1400  feet  at  a speed  of  80  feet  per  second.  As  this 
scenario  was  executed,  the  following  parameters  were  output:  time,  range, 

and  the  sample  rate  control  parameter,  MSAM.  MSAM“1  corresponds  to  the  high 
sample  rate,  while  MSAMa2  corresponds  to  the  low  sample  rate.  Table  2.4-2 
provides  a summary  of  the  test  results.  A comparison  with  Figure  2.4-2  shows 
that  the  simulation  code  is  performing  to  the  design. 

The  test  to  validate  the  operation  of  hysteresis  in  the 
7-kHz  to  3-kHz  FRF  transition  was  similar  to  the  sample  rate  hysteresis  test. 
In  this  case,  a 10  dBsm  target  was  moved  in  range  from  42,000  feet  to  53,000 
feet  at  a speed  of  50  feet  per  second  and  then  the  range  was  decreased  from 
53,000  feet  to  38,000  feet  at  a speed  of  76  feet  per  second.  In  this  case, 
the  following  data  was  output  as  the  simulation  progressed:  time,  range,  and 

the  PRF  control  parameter,  MPRF.  Table  2.4-3  defines  MPRF.  Results  of  the 
test  are  summarized  in  Table  2.4-4.  A comparison  of  these  results  with  Figure 
2.4-1  shows  that  the  new  code  is  performing  as  required. 

2.5  VELOCITY  PROCESSOR  CHANGES 


2.5.1  Problem  Definition 


The  changes  in  the  velocity  processor  module  consisted  of 
removing  the  range  rate  ambiquity  resolver  in  the  7 kHz  PRF  mode  and 
correcting  a bug  that  was  traced  to  this  module.  Removal  of  the  ambiquity 
resolver  is  a direct  result  of  changes  to  the  radar  following  system  test. 
The  bug  in  the  velocity  processor  module  software  was  uncovered  when  the 
trajectories  from  the  SORTE  experiments  were  used  to  drive  the  simulation. 
One  of  these  trajectories  produced  an  unexpected  glitch  in  the  range  rate.  A 
subsequent  investigation  pointed  to  a problem  in  addressing  the  model  of  the 
PROM  used  to  convert  the  velocity  discriminant  value  to  a velocity  estimate. 
The  problem  was  fixed  and  is  documented  in  the  following  subsections. 


< 1 5 6969 


2 » 2980 

3 • 268 


t 


TABLE  2.4-4  PRF  TRANSITION  HYSTERESIS  LOOP  TEST  RESULTS 


TIME,  SEC 


RANGE,  FT 
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2.5.2 


Algorithm  Modifications 


Removing  the  ambiguity  resolver  was  straightforward.  In  the 
original  algorithm,  the  range  rate  was  determined  by  using  (1)  the  filter 
number  within  the  bank  of  32  filters,  (2)  an  estimate  of  the  position  withn 
the  given  filter  obtained  from  the  velocity  discriminant,  and  (3)  the  number 
of  filter  banks  which  is  determined  using  an  estimate  of  the  range  rate  from 
the  range  tracking  loop  (see  Figure  2.1-1).  The  ambiguity  resolver  is 
effectively  disabled  by  holding  the  number  of  filter  banks  to  zero,  regardless 
of  the  range  rate  estimate  from  the  tracker.  In  the  actual  implementation  of 
the  algorithm,  holding  the  number  of  filter  banks  to  zero  translates  to 
holding  the  variable  IRVEL  to  a value  of  4096  for  opening  velocities  and  to  a 
value  of  0 for  closing  velocities. 

The  problem  with  addressing  the  PROM  which  is  used  to  convert 
velocity  discriminant  values  to  positions  within  a filter  can  be  described  as 
follows.  There  are  only  128  addresses  in  the  array  representing  the  PROM. 
However,  a mistake  in  the  code  that  checks  the  discriminant  (which  effectively 
is  the  PROM  address)  allows  a value  of  129.  If  this  condition  is  obtained,  it 
can  either  cause  the  program  to  terminate  or  cause  the  velocity  estimate  to 
glitch.  The  latter  condition  was  observed  in  one  of  the  simulation  runs.  The 
problem  was  easily  corrected  by  changing  the  bounds  on  the  code  that  checks 
the  velocity  estimate  for  saturation. 

2.5.3  Software  Design  Documentation 

The  changes  described  in  Subsections  2.5.1  and  2.5.2  were 
implemented  by  making  modifications  to  the  subroutine  VELPRO.  In  particular, 
code  was  added  following  STEP  1.4  in  the  subroutine  to  properly  update  the 
velocity  estimate  when  the  radar  is  in  the  7 kHz  ERF  mode. 

Figure  2.5-1  is  a listing  of  the  original  version  of  VELPRO. 
Figure  2.5-2  is  a listing  of  the  updated,  deliverable  code.  Finally,  Figure 
2.5-3  is  a line-by-line  summary  of  the  differences  between  the  two. 
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c 


• THIS  SUBROUTINE  COMPUTES  AN  ACCURATE.  SMOOTHED  VELOCITY  USING  * 

• THE  KU-BAND  RADAR  VELOCITY  PRXESSOR  ALGORITHM.  • 


SUBROUTINE  VELPRO 

REAL  IRDOT,  IRNG,  INTT,  IVEL,  IVDISC,  IFVEL,  IRVEL,  IR1  , IR2.  IR3, 

2 I F3. I DELTA 

COMMON  /CNTL/IPWR,  IMODE,  IDUMC(7)  .DUMC(3) 

COMMON  /OUTPUT/ 1 DUMB  ( 3 ) . SRNG . SRDOT . DUM2  ( 5 ) , I DUM  ( 4 ) 

COMMON  / 1 CNT  L/ 1 1 DUM ( 1 4 ) , MRNG . MSAM , MPRF . I DUM 1 ( 1 0 ) . MPFO LD 
COMMON  /SYSDAT/TSAM.DUMS(14) 

COMMON  /RTDAT/ 1 RDOT  . I RNG . RB I AS . VEST  (4)  ,MDF(5) 

COMMON  /DSCRM/DUM ( 2 ) . RD I SC . VDSC , RRTE , OD I SC . DUM3  ( 3 ) 

DIMENSION  IPROM(  128)  . VT1  (3)  ,VT2(3)  . W(4.3) 

DATA  IPROM/127. 127. 125. 124.122. 121 .120.118.117.116.114.113. 

2 111 .110.109.107.106.105.103,102.101  .99.98.97.95.94.93,92.90. 

3 89.88.87,85.84.83.82.81  .79.78.77,76.75.73.72.71  .70,69,68.67, 

4 66.65,64,63,62.61  .60,59,58,57,56,55.54,53,52.51  ,50,49.49,48. 

5 47,46.45,44,44,43,42.41  ,41 ,40,39.38.38.37.36,36,35,34,34,33, 

6 32,32,31 .31 ,30,30.29,28,28,27,27,26,26.25.25,24.24,23.23,22. 

7 22.22,21 ,21 .20,20,19.19,19,18.18,17.17,17,16.16.16,15.15/ 
DATA  VT1/1  .01 2592E— 2 .2. 362726E— 2 , 2. 633237E— 1/, VT2/1  .204935. 

2 0.51 63982 , 0 . 04633489/ 

DATA  MW/1, 2, 3, 4. 1.1. 2. 2, 1.1. 1.1/ 


• STEP  1:  GENERATE  AMBIGUOUS  VELOCITY  ESTIMATE  * 


STEP  1-1:  INTEGERIZE  VELOCITY  DISCRIMINANT  AND  CHECK  FOR  SATURATION. 
VD I SC-5.333333* VDSC 
IVDISC— INTT (VD I SC40 . 5) 

IF(  IVDISC . LT .-1 28 . ) IVDISO-128. 

I F ( IVDISC .GT . 127 . ) IVDISC-127. 

STEP  1-2:  COMPUTE  INTEGRAL  FILTER  NUMBER  PORTION  OF  AMBIGUOUS 
VELOCITY  ESTIMATE. 

INTEG-MDF(2) 

IF(IVDISC.LT.0.)  INTEG-MOD(  INTEG+1  ,32) 

STEP  1-3:  COMPUTE  FRACTIONAL  FILTER  PORTION  OF  AMBIGUOUS  VELOCITY 
ESTIMATE. 

ESTIMATE. 

I VI— I NT ( ABS( IVDISC) )+1 
IFRAC-IPROM(IVI) 

IF( IVDISC. LT.0.)  I FRAC-1 27-1 FRAC 
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00027350 

00027360 

00027370 

00027380 

00027390 

00027400 

00027410 

G0G27420 

00027430 

00027440 

00027450 

00027460 

00027470 

00027480 

00027490 

00027500 

00027510 


FIGURE  2.5-1  BASELINE  VERSION  OF  SUBROUTINE  VELPRO 

PAGE  1 


2-98 


C STEP  1-4:  COMPUTE  AMBIGUOUS  VELOCITY  ESTIMATE  COMBINE  INTEGRAL  00027520 

C AND  FRACTIONAL  PARTS.  NOTE:  LSB  IS  1/128  OF  FILTER  WIDTH.  00027530 

C FRACTIONAL  PARTS.  NOTE:  LSB  IS  1/128  OF  A FILTER  WIDTH.  00027540 

1 FVEL— FLOAT ( I FRAC+1 28*1 NT EG ) 00027550 

C 00027560 

C 00027570 

C • STEP  2:  SCALE  ROUGH  VELOCITY  ESTIMATE  • 0002758e 

C 00027590 

C 00027600 

C STEP  2-1 : SCALE  LSB  OF  ROUGH  RANGE  RATE  ESTIMATE  TO  4 TIMES  A DOPPLEF00027610 

C WIDTH.  00027620 

C DEFINITION:  VT1 (MPRF)-(RANGE  LSB)/((MAX.  UNAMBIGUOUS  VELOCITY)/8)  00027630 

C OR  VT1(MPRF)«5./(PRF. LAMBDA)  00027640 

R1«IRDOT*VT1(MPRF)/TSAM  00027650 

IRI-AINT(RI)  00027660 

C 00027670 

C STEP  2-2:  PERFORM  SOME  REQUIRED  AUXILIARY  CALCULATIONS.  00027680 

R2-IR1/8.  00027690 

IR2-AINT(R2)  00027700 

IRVEL-IR2.4096.  00027710 

C 0002772 0 

C 00027730 

C . STEP  3:  RESOLVE  AMBIGUITY  . 0002774 0 

C 00027750 

C 00027760 

C STEP  3-1:  COMPUTE  3 MSB'S  OF  AMBIGUOUS  VELOCITY  ESTIMATE.  00027770 

I F3— AINT ( I FVEL/51 2 . ) 00027780 

C 00027790 

C STEP  3-2:  COMPUTE  3 LSB’S  OF  SCALED  ROUGH  RANGE  RATE  ESTIMATE.  00027800 

IR3— ABS( IR1-8. *IR2)  00027810 

IF(R1 . LE.0. )GO  TO  10 

IRVEL-IRVEL+4096.  00027830 

IR3-7.-IR3  00027840 

10  CONTINUE  00027850 

C 00027860 

C STEP  3-3:  COMPARE  3 MSB'S  AND  3 LSB'S  AND  INCREMENT  NUMBER  OF  00027870 

C AMBIGUOUS  FILTER  BANK  WIDTHS  APPROPRIATELY.  00027880 

IDELTA-IR3-IF3  00027890 

IF( IDELTA.GE.4. ) IRVEL-IRVEL-4096.  00027900 

IF( IDELTA. LE.— 4 . ) IRVEL-IRVEL+4096.  00027910 

C 00027920 

C ..................................................  00027930 

C * STEP  4:  COMPUTE  UNAMBIGUOUS  VELOCITY  ESTIMATE.  • 00027940 

C * 00027950 

C 00027960 

C STEP  4-1:  ADD  NUMBER  OP  AMBIGUOUS  FILTER  BANK  WIDTHS  TO  ESTIMATE  00027970 

C OF  FRACTIONAL  FILTER  BANK  WIDTH.  NOTE:  LSB  OF  RESULTANT  00027980 

C ESTIMATE  REPRESENTS  1/4096  OF  A FILTER  BANK  WIDTH.  00027990 

1VEL-INTT( IRVEL— IFVEL)  00028000 

C 00028010 

C STEP  4-2:  SCALE  LSB  OF  RESULTANT  ESTIMATE  TO  0.05  FEET/SEC.  00028020 

C DEFINITION:  VT2(MPRF)—( (FI LTER  SEPARATI0N)/128. )/(VELOCITY  LSB)  00028030 

C OR  VT2(MPRF)-(PRF*LAMBDA)/(0. 05*8196).  00028040 

IVEL— INTT( IVEL»VT2tMPRF)+0.5)  00028050 

C 00028060 

C .................................................  00028070 

C • STEP  5:  COMPUTE  SMOOTHED  UNAMBIGUOUS  VELOCITY  • 00028080 

C 00028090 

C 00028100 

C STEP  5-1:  UPDATE  REGISTERS  OF  MOVING  WINDOW  AVERAGER.  00028110 

DO  20  1-1 ,3  00028120 

20  VEST(5-I )— VEST(4-I ) 00028130 

VEST(1 )— IVEL  00028140 

C 00028150 
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STEP  5-2:  COMPUTE  MOVING  WINDOW  AVERAGE  AND  SCALE  ANSWER  INTO 
FEET/SEC  FROM  UNITS  OF  0.05  FEET/SEC. 

M-MPRF 
M1-MW(1 .M) 

M2-MW(2,M) 

M3-MW(3,M) 

M4^MW(4 , M) 

SRDOT— 0 ! 01 25*  (VEST  (Ml  )+VEST(M2  )+VEST(M3  )+ 

2 VEST  (M4  )) 


• STEP  6:  RESET  DOPPLER  FILTER  BANK  * 


STEP  6-1:  USE  ON-TARGET  DISCRIMINANT  AND  VELOCITY  DISCRIMINANT  TO 
DETERMINE  UPDATE  OF  FILTER  BANK  POSITION. 

THE  FOLLOWING  RULES  ARE  USED: 


CASE  1:  ODISO0. 
CASE  2:  ODISO0. 
CASE  3:  ODISOO. 
CASE  4:  ODISC<0. 


AND  -51 .<IVDISC<51 . IMPLIES  NO  CHANGE. 
AND  IVDISOS1.  IMPLIES  SHIFT  -1. 

AND  IVDISC<— 51 . IMPLIES  SHIFT  +1 . 

AND  IVDIS06.  IMPLIES  SHIFT  -2. 


CASE  5:  ODISC<0 . AND  IVDISC<0.  IMPLIES  SHIFT  +2. 
IF(ODISC.GE.0.)  GO  TO  30 
IF(  IVDISC.LT. 0.)  MDF(1)-M0D(MDF(1)+2,32) 

IF( IVDISC.GE.0. ) MDF(1)-MOD(MDF(1)+30.32) 

GO  TO  40 

30  IF(  IVDISC.GT.51 . ) MDF(  1 )-MOD(MDF(  1 )+31 .32) 

IF(  IVDISC.LT  .—51  . ) MDF(1  )-M0D(MDF(1  )+1  .32) 

STEP  6-2:  RESET  REMAINING  FILTERS  IN  THE  BANK-OF-5 . 

40  DO  50  1-1 .4 

50  MDF( 1+1 )— MOD(MDF( 1 )+I . 32) 

RETURN 

END 
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* THIS  SUBROUTINE  COMPUTES  AN  ACCURATE,  SMOOTHED  VELOCITY  USING  * 

• THE  KU-BAND  RADAR  VELOCITY  PROCESSOR  ALGORITHM. 


SUBROUTINE  VELPRO 

REAL  IRDOT, IRNG. INTT, IVEL. IVDISC,  IFVEL. IRVEL, IR1 , IR2, IR3, 

2 I F3. I DELTA 

CO MON  /CNTL/IPWR,  IMODE,  IDUMC(7)  ,DUMC(3) 

COMMON  /OUTPUT/ 1 DUMB  (3)  , SRNG.SRDOT  ,DUM2(5)  , IDUM(4) 

COMMON  /ICNTL/1 1 DUM(  1 4)  , MRNG.MSAM , MPRF . IDUM1  (10), MPFOLD 
COMMON  /SYSDAt/TSAM,DUMS(14) 

COMMON  /RTDAT/IRDOT.  IRNG.  RBI  AS  .VEST  (4)  ,MDF(5) 

CCAA40N  /DSCRM/DUM  ( 2 ) . RD I SC , VDSC . RRT  E . 00 1 SC , DUM3  ( 3 ) 

DIMENSION  IPR0M(128)  , VT1  (3)  ,VT2(3)  ,MW(4,3) 

DATA  IPROM/127. 127 .125, 124, 122. 121 .120,118,117,116,114,113. 

2 111 ,110,109,107.106,105,103.102.101  .99.98.97,95.94,93,92.90, 

3 89,88.87,85,84,83,82.81 ,79,78,77,76,75,73.72.71 ,70.69,68,67, 

4 66.65,64,63.62,61 ,60,59,58,57,56,55,54,53,52.51 .50.49.49,48. 

5 47,46,45,44.44.43,42.41,41 ,40,39,38,38.37.36,36,35,34,34,33, 

6 32,32.31,31 .30,30,29,28.28,27,27.26,26.25,25.24.24,23,23,22, 

7 22,22.21,21.20,20,19,19.19.18,18,17.17.17,16.16.16.15.15/ 
DATA  VT1/1 . 01 2592E— 2 , 2 . 362726E-2 , 2 . 633237E— 1 / , VT2/1 . 204935 , 

2 0.51 63982 , 0 . 04633489/ 

DATA  MW/ 1 ,2,3,4. 1 ,1 ,2,2,1 ,1,1,1/ 
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SUBROUTINE  VELPRO  WAS  MODIFIED  FEB  6 1986  BY  M.  MEYER 
MODIFICATIONS  CONSISTED  OF  CHECKING  THE  VARIABLE  MPRF 
FOR  A VALUE  OF  ONE  (IMPLIES  7 KC  MODE)  AND  IF  TRUE 
ASSUMING  THE  VELOCITY  ESTIMATE  GIVEN  BY  THE  VELOCITY 
DISCRIMINANT  IS  UNAMBIGUOUS. 


• STEP  1:  GENERATE  AMBIGUOUS  VELOCITY  ESTIMATE  • 


SlLH  1-1:  INIEGERIZE  VELOCITY  DISCRIMINANT  AND  CHECK  FOR  SATURATION. 
VD I SOS . 333333*  VDSC 
IVDISOINTT(VDISC+0 .5) 

IF(IVDISC.LT.— 128.)  IVOISC— 128. 

I F ( I VD I SC . GT . 1 27 . ) IVDIS0127. 

STEP  1-2:  COMPUTE  INTEGRAL  FILTER  NUMBER  PORTION  OF  AMBIGUOUS 
VELOCITY  ESTIMATE. 

INTEG-MDF(2) 
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1 F ( I VD I SC . LT  . 0 . ) INTEG-MOD( INTEG+1 ,32)  00027430 

00027440 

STEP  1-3:  COMPUTE  FRACTIONAL  FILTER  PORTION  OF  AMBIGUOUS  VELOCITY  00027450 
ESTIMATE.  00027460 

ESTIMATE.  00027470 

I VI -I NT ( ABS( IVDISC) )+1  00027480 


CHANGED  JAN  30  1986  BY  H.  MAGNUSSON 


IF(IV1.GT.128)IV1«128 

IFRAC-IPROM(IVI) 

I F ( ] VD I SC . LT  . 0 . ) I FRAC-1 27—1 FRAC 

STEP  1-4:  COMPUTE  AMBIGUOUS  VELOCITY  ESTIMATE  COMBINE  INTEGRAL 

AND  FRACTIONAL  PARTS.  NOTE:  LSB  IS  1/128  OF  FILTER  WIDTH. 
FRACTIONAL  PARTS.  NOTE:  LSB  IS  1/128  OF  A FILTER  WIDTH. 

I FVEL-FLOAT ( IFRAC+128* INTEG) 

CHANGED  FEB  6 1986  BY  M.  MEYER 


00027490 

00027500 

00027510 

00027520 

00027530 

00027540 

00027550 


IF(MPRF.EQ.I)  THEN 

IF( INTEG. GE.0. AND. INTEG. LE. 21 )THEN 
IRVEL-0. 

ELSE 

IRVEL-4096. 

END  IF 
GO  TO  8 
END  IF 

**»*«*»•».****»».************»***«».**•**  00027570 

* STEP  2:  SCALE  ROUGH  VELOCITY  ESTIMATE  * 00027580 

00027590 

00027600 

STEP  2-1:  SCALE  LSB  OF  ROUGH  RANGE  RATE  ESTIMATE  TO  4 TIMES  A DOPPLER00027610 


WIDTH. 

DEFINITION:  VT1 (MPRF)-( RANGE  LSB)/((MAX.  UNAMBIGUOUS  VELOCITY)/8) 

OR  VT1 (MPRF)-5./(PRF* LAMBDA) 

R1«1RD0T*VT1 (MPRF)/TSAM 
IRI-AINT(RI) 

STEP  2-2:  PERFORM  SOME  REQUIRED  AUXILIARY  CALCULATIONS. 

R2-IR1/8. 

I R2*A I NT ( R2 ) 

IRVEL-IR2*4096. 


♦ STEP  3:  RESOLVE  AMBIGUITY  • 


STEP  3-1:  COMPUTE  3 MSB’S  OF  AMBIGUOUS  VELOCITY  ESTIMATE. 
IF3*AINT( IFVEL/512. ) 

STEP  3-2:  COMPUTE  3 LSB’S  OF  SCALED  ROUGH  RANGE  RATE  ESTIMATE. 
IR3-ABS(IR1-8.*IR2) 

IF(R1 . LE.0. )GO  TO  10 
IRVEL-IRVEL+4096. 

IR3-7.-IR3 
10  CONTINUE 

STEP  3-3:  COMPARE  3 MSB’S  AND  3 LSB’S  AND  INCREMENT  NUMBER  OF 
AMBIGUOUS  FILTER  BANK  WIDTHS  APPROPRIATELY . 
IDELTA-IR3-IF3 

I F(  I DELTA . GE . 4 . ) IRVEL-I RVEL-4096 . 

IF( IDELTA. LE.-4. ) IRVEL-IRVEL+4096. 
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8 CONTINUE 


♦ STEP  4:  COMPUTE  UNAMBIGUOUS  VELOCITY  ESTIMATE.  * 


STEP  4—1 : ADD  NUMBER  OF  AMBIGUOUS  FILTER  BANK  WIDTHS  TO  ESTIMATE 
OF  FRACTIONAL  FILTER  BANK  WIDTH.  NOTE:  LSB  OF  RESULTANT 
ESTIMATE  REPRESENTS  1/4096  OF  A FILTER  BANK  WIDTH. 

I VEL-INTT( IRVEL-I FVEL) 

STEP  4-2:  SCALE  LSB  OF  RESULTANT  ESTIMATE  TO  0.05  FEET/SEC. 
DEFINITION:  VT2(MPRF)«( (FI LTER  SEPARAT ION)/1 28. )/( VELOCITY  LSB) 

OR  VT2(MPRF)-(PRF*LAMBDA)/(0. 05*81 96). 
IVEL-INTT(IVEL*VT2(MPRF)+0.5) 


• STEP  5:  COMPUTE  SMOOTHED  UNAMBIGUOUS  VELOCITY  • 


STEP  5-1:  UPDATE  REGISTERS  OF  MOVING  WINDOW  AVERAGER. 

DO  20  1-1  ,5 

20  VEST (5— I )— VEST (4— I) 

VEST ( 1 )— IVEL 

STEP  5-2:  COMPUTE  MOVING  WINDOW  AVERAGE  AND  SCALE  ANSWER  INTO 
FEET/SEC  FROM  UNITS  OF  0.05  FEET/SEC. 

M-MPRF 
Ml— MW( 1 tM) 

M2— MW(2 , M) 

M3— MW(3 ,M) 

M4— MW(4,M) 

SRDOT— 0 . 01 25* (VEST (Ml  )+VEST(M2  )+VEST(M3  )+ 

2 VEST (M4  )) 


• STEP  6:  RESET  DOPPLER  FILTER  BANK  • 


STEP  6-1:  USE  ON-TARGET  DISCRIMINANT  AND  VELOCITY  DISCRIMINANT  TO 
DETERMINE  UPDATE  OF  FILTER  BANK  POSITION. 

THE  FOLLOWING  RULES  ARE  USED: 


CASE 

1 : 

ODISC>0. 

AND 

-51 .<IVDISC<51 . IMPLIES  NO  CHANGE 

CASE 

2: 

ODISC>0. 

AND 

IVDISC>51.  IMPLIES  SHIFT  -1. 

CASE 

3: 

OOISO0. 

AND 

IVDISCc-51 . IMPLIES  SHIFT  +1 . 

CASE 

4: 

OD I $C<0 . 

AND 

IVDISOO.  IMPLIES  SHIFT  -2. 

CASE  5:  ODISC<0 . AND  IVDISC<0.  IMPLIES  SHIFT  +2. 
IF(ODISC.GE.0. ) GO  TO  30 
I F(  IVDISC . LT . 0.  ) MDF(1)-M0D(MDF(1)+2,32) 

IF( IVDISC. GE. 0. ) MDF(1)^I0D(MDF(1  )+30.32) 

GO  TO  40 

30  IF(  IVDISC.GT  .51  . ) MDF(  1 )-MOD(MDF(  1 )+31  . 32) 

IF( IVDISC. LT .-51 . ) MDF(1)-MOD(MDF(1)+1 ,32) 

STEP  6-2:  RESET  REMAINING  FILTERS  IN  THE  BANK-OF— 5. 

40  DO  50  1-1,4 

50  MDF ( 1+1 )— MOD(MDF( 1 )+I , 32) 

RETURN 

END 
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QUALITY 

LINES  DELETED  FROM  BASELINE  PROGRAM 
42  C 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

42  C 

43  C 

44  C •••*•*•*•••••**••*••*••»•»•*•••••*••••**•••••••»»»•»» 

45  C SUBROUTINE  VELPRO  WAS  MODIFIED  FEB  6 1986  BY  M.  MEYER 

46  C MODIFICATIONS  CONSISTED  OF  CHECKING  THE  VARIABLE  MPRF 

47  C FOR  A VALUE  OF  ONE  (IMPLIES  7 KC  MODE)  AND  IF  TRUE 

48  C ASSUMING  THE  VELOCITY  ESTIMATE  GIVEN  BY  THE  VELOCITY 

49  C DISCRIMINANT  IS  UNAMBIGUOUS. 

56  C 

51  C 


ORIGINAL 
OF  POOR 


LINES  DELETED  FROM  BASELINE  PROGRAM 
62  IFRAC-IPROM(IVI) 

****** 

LINES  ADDED  TO  DELIVERABLE  PROGRAM 

71  C •*••*****•****•********,,*•.•***»,* 

72  C CHANGED  JAN  30  1986  BY  H.  MAGNUSSON 

73  C **••*•*..*•***«***«*••****•******•. 

74  IF(IV1 . GT . 1 28) I VI *1 28 

75  I FRAC* I PROM( I VI ) 


LINES  DELETED  FROM  BASELINE  PROGRAM 

69  C 

70  C ******** •«••*••****•*•******** 

LINES  ADDED  TO  DELIVERABLE  PROGRAM 

82  C ***••*. ..••*•••..•..•*. ******* 

83  C CHANGED  FEB  6 1986  BY  M.  MEYER 

84  C 

85  C 

86 

87 

88 
89 
38 

91 

92 

93 

94  C 


IF(MPRF.EQ.I)  THEN 

1 F( I NTEG . GE . 0 . AND . INTEG. LE.21 )THEN 
IRVEL-0. 

ELSE 

IRVEL-4896 . 

END  IF 
GO  TO  8 
END  IF 


LINES  DELETED  FROM  BASELINE  PROGRAM 
105  C 
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LINES  ADDED  TO  DELIVERABLE  PROGRAM 

129  8 CONTINUE 

130  C 


Number  of  difference  sections  found:  4 
Number  of  difference  records  found:  26 

DIFFERENCES  /IGNORE«( )/MERGED-l/0UTPUT«SYS$DISK3 : [MCCOLLOUGH]DI FF7 . FOR;  1- 
SYS$DISK3: [MCCOLLOUGHlVELPROH.FOR;2- 
SYSSDISK3 : [MCCOLLOUGH J VELPROF . FOR ; 2 
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Integration  and  Test  Data 


2. 5. 4.1  Teat  Definition 

The  philosophy  for  validating  the  ambiguity  resolver  modification 
was  to  test  two  things:  (1)  the  boundaries  where  the  velocity  goes  ambiguous 

in  the  7 kHz  mode  ( +75  feet  per  second  or  - 175  feet  per  second)  and  (2) 

to  Insure  that  the  velocity  becomes  unambiguous  when  the  PRF  Is  switched  to  3 
kHz.  Two  simulation  scenarios  were  defined  to  test  these  two  features. 

To  check  the  boundaries  on  the  ambiguous  velocity  in  the  7 kHz 
PRF  mode,  the  following  scenario  was  used.  A 10  dBsm  target  was  given  an 
initial  range  of  30,000  feet  and  an  initial  opening  velocity  of  +100  feet  per 
second.  This  velocity  was  held  for  100  seconds  and  then  target  was 
decelerated  at  a rate  of  1 foot  per  second  for  the  next  300  seconds.  At  this 
point,  the  scenario  was  terminated.  Plots  of  the  range  and  range  rate  time 
histories  are  provided  in  Figures  2.5-4  and  2.5-5,  respectively. 

A similar  scenario  was  used  to  insure  that  the  velocity  becomes 
unambiguous  when  the  PRF  is  switched  to  3 kHz  and  vice-versa.  In  fact,  the 
range  rate  profile  is  identical  to  that  given  in  Figure  2.5-5.  The  initial 
range  in  ths  case  is  42,000  feet,  so  the  range  profile  is  shifted  upward  by 
+12,000  feet  as  shown  in  Figure  2.5-6.  The  purpose  of  this  shifted  profile  is 
to  insure  that  the  radar  transitions  to  the  3 kHz  FRF.  The  design  of  this 
scenario  demonstrates  that  ambiguous  opening  targets  become  unambiguous  when 
transitioning  from  7 kHz  to  3 kHz  FRF.  It  also  demonstrates  that  a closing 
target  with  velocity  less  than  -175  feet  per  second  will  become  ambiguous  at 
the  transition  from  3 kHz  PRF  to  7 kHz  PRF. 

2. 5. 4. 2 Test  Results 

Figure  2.5-7  gives  a plot  of  the  difference  between  the  true 
target  velocity  and  target  velocity  predicted  by  the  radar  as  a function  of 
time.  A comparison  of  this  plot  against  the  range  rate  profile  of  Figure 
2.5-5  shows  that  the  velocity  processor  model  has  the  proper  boundaries  on  the 
unambiguous  zone:  (+75  fps,  -175  fps). 
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FIGURE  2.5-4  RANGE  P 
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FIGURE  2.5-5  RANGE  RATE  PROFILE  FOR  SCENARIOS  NO.  1 AND  NO.  2 
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FIGURE  2.5-6  RANGE  PROFILE  FOR  SCENARIO  NO.  2 
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FIGURE  2.5-7  VELOCITY  ERROR  FOR  SCENARIO  NO.  1 DEFINED 


BY  FIGURES  2.5-4  AND  2.5-5 


2- 


Figure  2.5-8  gives  a plot  similar  to  Figure  2.5-7  for  the  second 
scenario.  In  this  case,  the  velocity  difference  time  history  should  be 
compared  to  the  range  profile  plot  of  Figure  2.5-6.  Taken  together,  these 
data  show  that  velocity  becomes  unambiguous  at  the  transition  from  7 kHz  to  3 
kHz  PRF  at  a range  of  49,920  feet  and  the  velocity  becomes  ambiguous  at  a the 
3 kHz  to  7 kHz  PRF  transition  at  a range  of  43,510  feet.  Notice  that  this 
second  test  validates  the  PRF  hysteresis  loop  as  well. 
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FIGURE  2.5-8  VELOCITY  ERROR  FOR  SCENARIO  NO.2  DEFINED  BY 
FIGURES  2.5-5  AND  2.5-6 
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SOKTE  DATA  ANALYSIS 


The  purpose  of  this  section  is  to  describe  the  extent  of  the 
analysis  performed  on  the  SORTE  data  and  provide  the  results  of  that 
analysis.  Section  3.1  provides  some  background  data  on  the  SORTE  program, 
describing  the  test  setup  and  the  test  procedures.  Section  3.2  defines  the 
approach  in  the  analysis  and  a summary  of  the  findings.  Section  3.3  describes 
the  Ku-Band  Radar's  range  measurement  performance.  Section  3.4  provides 
analysis  of  the  range  rate  measurements.  Sections  3.5  and  3.6  provide  an 
analysis  of  the  angle  and  angle  rate  measurements.  Finally,  Section  3.7  gives 
a comparison  of  simulation  generated  data  and  the  SORTE  data.  The  simulation 
data  was  generated  by  injecting  the  corresponding  SORTE  trajectory  into  the 
simulation. 


3.1  SORTE  PROGRAM  SUMMARY 


The  purpose  of  the  Shuttle  Orbiter  Radar  Test  and  Evaluation 
(SORTE)  program  was  to  evaluate  the  accuracies  of  the  following  Ku-Band  Radar 
measurements:  range,  range  rate,  roll  angle,  pitch  angle,  ILOS  roll  rate,  and 

ILOS  pitch  rate.  These  accuracies  were  to  be  determined  by  using  the 
precision  measuring  system  at  the  White  Sands  Missile  Range  (WSMR)  as  a 
reference.  In  the  following  paragraphs  a brief  description  of  the  test  setup, 
test  procedures,  and  post-test  data  processing  will  be  provided  for  reference 
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3.1.1  Flight  Trajectory  and  Target  Selection 

Selection  of  trajectories  and  targets  was  driven  by  the  test 
objectives.  The  principal  objective  was  to  determine  the  Ku-Band  Radar 
measurement  accuracies  using  flight  conditions  that  simulate  an  actual 
shuttle-satellite  rendezvous  as  closely  as  possible.  Since  actual  rendezvous 
data  existed  at  the  time  the  SORTE  test  trajectories  were  defined,  these 
trajectories  were  patterned  after  the  Solar  Maximum  Mission  Satellite  (SMMS)  - 
Shuttle  rendezvous  obtained  from  Mission  41C  in  April  1984.  Figure  3.1-1 
gives  a range  history  of  the  rendezvous  and  Figure  3.1-2  gives  a range  versus 
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range  rate  plot  of  the  rendezvous  .v  As  shown  on  these  two  figures,  the 
trajectory  is  divided  up  into  several  smaller  trajectories  which  are  labeled 
as  shown  in  the  figure.  The  principal  reason  for  subdividing  the  trajectory 
was  a 10  minute  upper  limit  on  the  length  of  a given  test  run.  This  limit  was 
established  to  avoid  data  tape  changes,  causing  loss  of  data,  during  the 
tests.  Table  3.1-1  (Reference  1)  gives  the  range  interval  and  range  rate 
Interval  of  operation  for  each  of  these  tests. 

TABLE  3.1-1  RANGE  AND  RANGE  SATE  COVERAGE  BT  TEST  SON 


Test  Run 


Range 

(thousands  of  feet) 


Range  Rate 
(feet  per  second) 


H30SKAE 

3.6 

to 

2.6 

0.0 

to 

33.5 

H30SKAF 

2.2 

to 

4.1 

-22.0 

to 

- 3.0 

H30SKAG 

2.2 

to 

2.6 

-12.0 

to 

- 3.0 

H30SKAK 

2.2 

to 

4.0 

_01  A 

to 

...  /.  A 

— -few 

H30SKAI 

3.3 

to 

3.6 

-18.4 

to 

4.8 

HEL30AF 

7.0 

to 

12.2 

-60.0 

to 

7.0 

HEL30AG 

7.0 

to 

13.0 

-56.0 

to 

- 8.0 

HEL30AI 

5.6 

to 

13.3 

-38.0 

to 

-10.0 

HEL30AJ 

6.0 

to 

13.6 

-45.0 

to 

0.0 

HJ146AC 

45.0 

to 

63.0 

-55.0 

to 

-10.0 

HJ146AD 

47.0 

to 

64.0 

-50.0 

to 

4.0 

HJ146AE 

46.0 

to 

65.0 

-21.0 

to 

10.0 

HL146AE 

42.6 

to 

46.5 

-21.0 

to 

10.0 

HL246AD 

43.4 

to 

47.3 

4.0 

to 

17.5 

HL246AE 

41.5 

to 

47.2 

- 5.0 

to 

20.0 

HL346AD 

48.0 

to 

48.9 

- 6.0 

to 

14.0 

HL346AE 

47.0 

to 

49.0 

- 23.0 

to 

26.0 

HL346AF 

47.1 

to 

49.1 

- 5.0 

to 

13.0 

HL446AC 

47.5 

to 

48.8 

-13.0 

to 

10.0 

HL446AD 

47.0 

to 

49.7 

-20.0 

to 

37.0 

HL446AE 

46.8 

to 

49.3 

-16.0 

to 

16.0 

HL546AC 

41.3 

to 

47.0 

-22.0 

to 

0.0 

HL546AE 

41.2 

to 

47.7 

-21.0 

to 

55.0 

HL546AF 

40.8 

to 

46.5 

-21.0 

to 

7.5 

HL546AG 

40.7 

to 

46.7 

-25.0 

to 

25.0 

The  target  selected  for  use  in  these  flight  tests  _ was  a UH-1H 
helicopter.  To  enhance  the  Radar  Cross  Section  (RCS)  of  the  helicopter,  a 
pair  of  Luneberg  lenses  were  mounted  on  the  underside  of  the  helicopter  as 
shown  in  Figure  3.1-3.  The  "main  beams"  of  these  lenses  were  angled  off  from 
the  helicopter  nose  and  were  pointed  downward  slightly.  As  will  be  shown  in 
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FIGURE  3.1-3  DUAL  LUNEBERG  LENS  INSTALLATION  ON  THE  HU-1H  HELICOPTER 


the  analysis  of  the  range  rate  performance  in  Section  3.3,  these  target 
enhancements  were  effective  for  those  trajectories  where  the  helicopter  flew 
approximately  down  the  Line-of-Sight  (LOS)  of  the  radar.  However,  this 
enhancement  configuration  was  not  effective  when  the  helicopter  flew  a 
trajectory  that  was  perpendicular,  or  Cross  Line-of-Sight  (XLOS)  to  the  radar. 

A second  series  of  tests  was  based  on  the  second  major  objective 
of  the  SORTE  program:  determining  the  effects  of  a conducting  and 
non-conducting  tether  in  the  radar  antenna  beam.  The  purpose  of  these  tests 
was  to  evaluate  the  usefulness  of  the  Ku-Band  Radar  for  tracking  the  Tethered 
Satellite  System  (TSS)  on  a future  shuttle  mission.  The  target  for  these 
tests  consisted  of  a mockup  of  the  TSS  suspended  from  two,  10-foot  inch 
diameter,  Helium-filled  balloons.  This  target  was  then  tethered  with  a 
conducting  or  non-conducting  tether.  (As  an  aside,  a red  colored, 
Helium-filled  balloon  was  tied  to  the  tether  at  a point  50  feet  below  the  main 
target  to  provide  a secondary  target  for  the  cinetheodolltes. ) This 
balloon/ target  combination  was  then  flown  as  closely  as  possible  directly 
overhead  relative  to  the  radar.  With  the  tether  spool  anchored  within  20  feet 
of  the  radar,  a significant  portion  of  the  tether  would  be  in  the  beam  when 
the  target  was  directly  overhead.  Again  the  test  duration  was  10  minutes  and 
altitudes  from  300  to  3000  feet  were  planned  .to  simulate  reeling  in  and 
reeling  out  the  TSS. 

A third  series  of  tests  were  performed.  These  tests  consisted  of 
filling  a two  meter  in  diameter  Gemsphere^"  with  Helium,  releasing  it  near 
the  site  of  the  radar,  and  tracking  it  for  10  minutes. 

Table  3.1-2  summarizes  the  range  and  range  rate  Intervals  for  the 
"tether  tests"  and  the  Gemsphere  release  tests.  The  tether  tests  are  denoted 
by  "SAT"  and  the  Gemsphere  tests  are  denoted  by  "BAL"  or  "GEM". 
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A Gemsphere  is  a metallic  coated  balloon  with  small  protrusions  (2-3 
Inches)  distributed  uniformly  over  the  surface.  These  spheres  are  used 
by  the  National  Weather  Service  to  track  upper  atmosphere  wind  currents. 


TABLE  3.1-2  RANGE  AND  RANGE  RATE  COVERAGE  BT  TEST  RUN 
FOR  TETHERED  BALLOON  AND  GEMSPHERE  TESTS 


Test  Run 


Range 

(thousands  of  feet) 


Range  Rate 
(feet  pec  second) 


SAT1 

2.5 

to 

2.6 

- 5.0 

to 

5.0 

SAT2 

2.5 

to 

2.5 

- 4.0 

to 

4.0 

SAT3 

1.2 

to 

2.5 

- 6.0 

to 

4.0 

SAT4  * 

10.9 

to 

12.7 

- 4.0 

to 

10.0 

BALI 

0.8 

to 

10.4 

2.5 

to 

29.0 

BAL2 

0.8 

to 

5.5 

0.0 

to 

29.0 

BAL5 

8.0 

to 

10.3 

8.0 

to 

17.0 

BAL6 

1.0 

to 

10.6 

2.5 

to 

7.5 

BAL7 

1.0 

to 

10.6 

7.5 

to 

31.0 

GEM2  . 

3.2 

to 

30.0 

32.0 

to 

70.0 

GEM3 

2.1 

to 

26.0 

30.0 

to 

68.0 

* The  tether  broke  between  tests  SAT3  and  SAT4  so  that  the  target  was  held 
only  by  a guidewire  12  kft  in  length. 


Please  note  that  the  above  summary  is  not  meant  to  be  an 
exhaustive  summary  of  the  SORTE  tests,  but  a summary  of  the  three  principal 
series  of  tests  for  which  data  analysis  has  been  performed  and  included  in 
this  report. 

3.1.2  Test  Setup 

The  radar  was  situated  very  near  the  brass  cap  at  the  PEARL  site 
at  WSMR.  Figure  3.1-4  (taken  from  Reference  1)  shows  the  PEARL  site  relative 
to  the  layout  of  the  entire  White  Sands  Range.  The  deployed  assembly  of  the 
radar,  including  the  transmitter,  receiver,  gimbal  and  antenna,  were  placed  on 
a platform  inside  a radome  near  the  brass  cap.  The  radar  was  a few  feet 
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FIGURE  3.1-4  ILLUSTRATION  OF  THE  PEARL  SITE  IN  RELATION  TO 
THE  WHITE  SANDS  MISSILE  RANGE  LAYOUT 
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south  and  east  of  the  brass  cap  and  about  20  feet  higher.  Its  exact  White 
Sands  Coordinate  System  (WSCS)  location  (from  Reference  1)  was: 

East:  485,227.79  feet 

North:  265,161.98  feet 

Up:  2,618.43  feet. 

The  deployed  assembly  was  oriented  so  that  0 degrees  alpha  and  0 
degrees  beta  corresponded  to  the  antenna  boresight  pointing  30  degrees  east  of 
north  and  elevated  30  degrees.  This  orientation  was  chosen  to  reduce  the 
stress  on  the  gimbals  in  a 1-g  environment  and  to  avoid  ground  clutter  during 
radar  operation. 

Two  types  of  sensor  systems  were  used  by  WSMR  to  provide  a target 
tracking  reference.  One  system  of  sensors  consisted  of  a set  of 
cinetheodolites , designated  as  cines  in  the  rest  of  this  report.  This  set 
usually  consisted  of  five  cines  for  a given  flight  test.  These  five  cines 
were  chosen  from  a large  number  of  cines  which  are  widely  distributed  over  the 
southern  end  of  WSMR.  Choice  of  the  five  cines  for  a given  test  was  based 
upon  the  geometry  of  the  flight  profile  for  that  particular  test. 

The  second  system  of  sensors  consisted  of  a set  of  three 
AN/MPS-36  radars,  denoted  as  R350,  R393,  and  R394  by  WSWR.  Data  from  these 
radars  is  combined  and  processed  to  produce  an  estimate  of  target  range  and 
range  rate.  The  combination  of  these  radars  and  the  post  flight  signal 
processing  is  called  the  Target  Motion  Resolution  (TMR)  system  at  White 
Sands.  Details  of  TMR  data  processing  are  described  in  Reference  8. 

Figure  3.1-5  (from  Reference  1)  gives  a view  of  the  Ku-Band  Radar 
position,  the  cine  positions  (for  a given  set  of  trajectories),  and  the  TMR 
radar  positions  in  WSCS.  It  also  provides  the  ground  track  for  the  HJ146, 
HL246,  and  HEL30  trajectories. 
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3.1.3 


Data  Acquisition  and  Processing 


The  common  element  among  the  three  data  acquisition  systems,  the 
Ku-Band  Radar,  the  cines  and  the  TMR,  was  the  time  stamping  of  the  data 
gathered  by  each  system.  WSMR  provided  universal  timing  which  was  networked 
to  each  radar  and  cine  site  and  to  the  Ku— Band  Radar  so  that  the  data  could  be 
time  coded  as  it  was  gathered. 

3. 1.3.1  Ku-Band  Radar  Data  Processing 

Ku-Band  Radar  data  acquisition  for  the  SORTE  program  is  best 
summarized  via  the  illustration  of  Figure  3.1-6.  Two  types  of  data  were 
gathered  on  the  system  test  equipment  (STE)  computer  (LSI  4/90):  data  from 
the  MDM  output  and  analog  data  which  was  digitized  and  recorded  on  disk.  Each 
set  of  data  included  a range  time  stamp. 

Once  the  Ku-Band  Radar  data  for  a particular  test  was  recorded  at 
the  PEARL  site,  the  disk  was  taken  to  Building  1646  at  WSMR  to  be  processed  by 
a second  LSI/490  computer.  The  purpose  of  this  processing  was  to  transfer  the 
data  in  a VAX  11/780  compatible  format  to  tape.  Two  tapes  were  made:  one  was 
for  storage  at  the  WSMR  data  processing  facility  and  the  other  was  to  be  used 
at  Johnson  Space  Center  (JSC)  for  further  data  analysis  on  the  Building  44  VAX 
11/780. 


3. 1.3. 2 WSMR  Sensor  Data  Processing 

Data  acquired  by  the  individual  WSMR  radars  and  cines  is 
summarized  in  Table  3.1-3.  The  data  gathered  by  the  various  radar  and  cine 
sites  is  passed  in  real-time  over  the  Precision  Acquisition  System  (PAS) 
network  to  the  central  data  processing  facility  at  WSMR.  This  data  is  then 
post-processed  to  produce  three  sets  of  data.  Each  data  set  consists  of  the 
target  position  (X,  Y,  Z),  the  target  velocity  (X,  Y,  Z),  and  the  time  code 
for  the  entire  flight  test.  Target  position  and  velocity  values  are  given  in 
the  PEARL  site  brass  cap  coordinate  system  which  is  a North-East-Down  (NED) 
system  whose  origin  resides  at  the  brass  cap.  The  three  post  processing 
methods  are  described  below. 
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FIGURE  3.1-6  ILLUSTRATION  OF  THE  KUBAND  RADAR  DATA  ACQUISITION 
PROCESS  FOR  THE  SORTE  PROGRAM  AT  WSMR 
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TABLE  3.1-3  WSMR  RADAR  AND  CINE  DATA  ACQUISITION  ITEMS 


WSMR  RADARS 

WSMR  CINETHEODOLITES 

Range 

Azimuth 

Range  Rate 

Elevation 

Azimuth 

Range  Time 

Elevation 

Range  Time 

The  first  data  set  is  obtained  by  processing  only  cinetheodolite 
data  to  produce  target  position  and  velocity  as  a function  of  range  time. 
This  data  set  is  called  cine  data  in  the  sequel.  Data  from  the  three  WSMR 
Radars  is  processed  using  the  TMR  algorithms  to  produce  target  position  and 
velocity  as  a function  of  range  time.  This  second  data  set  is  denoted  as  the 
TMR  data  throughout  the  remainder  of  the  report.  The  third  data  set  combines 
the  best  features  of  the  cine  processing  and  the  TMR  processing.  The  cines 
produce  highly  accurate  position  data,  while  the  TMR  produces  very  accurate 
velocity  data.  Hence,  the  new  system,  called  the  "BEST"  system,  uses  the  cine 
data  for  the  initial  position  estimate  and  propogates  the  position  using 
velocity  data  from  the  TMR. 

All  three  data  sets  were  generated  for  those  flight  tests  where 
both  systems  of  sensors  were  operable.  Table  3.1-4  taken  from  Reference  1 
summarizes  the  available  sensors  for  each  of  the  flight  tests. 

3. 1.3. 3 Final  Data  Processing 


At  this*  point  in  the  data  processing  scheme,  the  Ku-Band  Radar 
data  resides  on  a VAX  11/780  compatible  tape.  These  data  are  in  standard 
shuttle  orbiter  body  coordinates.  The  post-processed  WSMR  data  has  also  been 
loaded  onto  tape  in  a VAX  11/780  format  and  delivered  to  JSC.  These  WSMR 
Sensor  data  have  been  converted  to  the  PEARL  site  brass  cap  coordinate  system 
described  in  the  previous  subsection. 
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TABLE  3.1-4  AVAILABLE  WSMR  SENSORS  FOR  EACH  TEST  RUN 


Test  Run 


Sensors 


BALI,  Nov  4,  TO-60302 
BAL2,  Nov  4,  T0-61350 
BAL5,  Nov  4,  TO-62785 
BAL6,  Nov  4,  TO-63348 
BAL7,  Nov  4,  TO-63346 
GEM2,  Oct  16,  TO-76421 
6EM3,  Oct  16,  T0-77603 


H30SKAE, 

Oct 

3, 

TO-56647 

H30SKAF, 

Oct 

3, 

TO-56987 

H30SKA6, 

Oct 

3, 

T0-60657 

H30SKAH, 

Oct 

3, 

T0-60821 

H30SKAI, 

Oct 

3, 

TO-61113 

HEL30AF, 

Oct 

3, 

TO-56123 

HEL30AG, 

Oct 

3, 

TO-57558 

HEL30AI, 

Oct 

3, 

TO-61665 

HEL30AJ, 

Oct 

3, 

TO-62488 

HJ146AC, 

Oct 

1, 

TO-67031 

HJ146AD, 

Oct 

5, 

TO-62415 

HJ146AE, 

Nov 

4, 

T0-80843 

HL146AE, 

Nov 

4, 

TO-76124 

HL246AD, 

Oct 

1, 

T0-60295 

HL246AE, 

Oct 

5, 

TO-55880 

HL346AD, 

Oct 

1, 

TO-65780 

HL346AE, 

Oct 

5, 

TO-61367 

HL346AF, 

Nov 

4, 

TO-79738 

HL446AC, 

Oct 

1, 

TO-61463 

HL446AD, 

Oct 

5, 

TO-57012 

EL446AE , 

Nov 

4, 

10-/50/2 

HL546AC, 

Oct 

1, 

TO-59240 

HL546AE , 

Oct 

5, 

TO-54805 

HL546AF, 

Oct 

5, 

TO-63406 

HL546AG, 

Nov 

4, 

TO-72220 

SAT1,  Oct  19,  TO-50988 
SAT2,  Oct  19,  TO-52227 
SAT3,  Oct  19,  TO-53295 
SAT4,  Oct  19,  T0-55207 
SAT6,  Oct  19,  (Acquisition) 
SAT8,  Oct  19,  (Acquisition) 


Radar  394,  no  optics. 
Radar  394,  no  optics. 
Radar  394,  no  optics. 
Radar  394,  no  optics. 
Radar  394,  no  optics. 
TMR,  no  optics. 

TMR,  no  optics. 

TMR  and  optics. 

TMR  and  optics. 

TMR  and  optics. 

TMR  and  optics. 

TMR  and  optics. 

TMR  and  optics. 

TMR  and  optics. 

TMR  and  optics. 

TMR  and  optics. 

TMR,  no  optics. 

TMR  and  optics. 

Radar  394  and  optics. 
Radar  394  and  optics. 
Radar,  reduced  optics. 
TMR  and  optics. 

TMR,  no  optics. 

TMR  and  optics. 

Radar  394  and  optics. 
TMR  and  optics. 

TMR  and  optics, 
tiaaar  jw  ana  up  axes. 
TMR,  no  optics. 

TMR  and  optics. 

TMR  and  optics. 

Radar  394  and  optics. 
TMR  and  optics. 

TMR  and  optics. 

TMR  and  optics. 

TMR  and  optics. 

TMR,  no  optics. 

TMR,  no  optics. 


The  final  component  in  the  processing  was  performed  on  the 
computers  at  JSC  by  NASA  and  LEMSCO  personnel  and  consisted  of  several  steps. 
The  first  step  involved  transforming  the  WSMR  sensor  data  from  brass  cap 
coordinates  to  the  shuttle  body  coordinates.  The  mathematics  of  this 
transformation  were  developed  by  Bill  Culpepper  of  LEMSCO  and  are  documented 
in  Reference  9.  The  next  step  was  to  compute  difference  profiles  for  each  of 
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the  radar  parameters  of  interest.  This  means  that  for  a given  radar 
parameter,  the  Ku-Band  Radar  data  profile  was  subtracted  from  the 

corresponding  WSMR  sensor  data  profile  to  produce  the  difference  data 
profile.  The  final  step  was  a statistical  analysis  of  the  resulting 
difference  profile  to  produce  a mean  and  a standard  deviation  for  the  interval 
and  a diagram  of  this  processing  is  shown  in  Figure  3.1-7.  A sample  result  of 
this  processing  procedure  is  shown  in  Figure  3.1-8. 

The  procedure  for  analyzing  this  proccessed  data  is  outlined  in 

Section  3.2. 


3.1.4  Summary  of  Flight  Tests 

There  were  44  flight  tests  where  data  was  gathered  by  both  the 
WSMR  sensors  and  the  Ku-Band  Radar.  Careful  notes  were  compiled  by  A.  C. 
Lindberg  of  LEMSCO  concerning  the  weather  conditions  and  any  anomalies  that 
occurred  during  each  of  the  tests.  These  notes,  along  with  observations  about 
the  difference  data  profiles,  are  given  in  a summary  form  in  Appendex  G. 
Results  of  an  extensive  analysis  of  this  data  follows  below. 

3.2  ANALYSIS  APPROACH  AND  PRELIMINARY  FINDINGS 

As  anticipated  (Reference  10)  the  SORTE  data  analysis  activity 
was  very  limited  due  to  available  contract  resources.  Since  this  was 
expected,  an  analysis  procedure  was  formulated  to  optimize  the  data  reduction 
effort.  The  method  developed  was  a two  step  procedure.  The  first  step 
consisted  of  one  complete  pass  through  the  data  to  identify  any  major  problem 
areas.  In  the  second  step  an  extensive  analysis  of  these  problem  areas  was 
undertaken.  The  intent  of  this  second  step  was  to  identify  the  dominant  error 
source  (or  sources)  and  develop  a quantitative  estimate  of  its  effect.  The 
next  level  of  priority  in  the  data  analysis  was  to  resolve  any  significant 
anomolies  found  in  the  data. 
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FIGURE  3.1-7  SIMPLIFIED  DIAGRAM  OF  FINAL  PROCESSING  OF  WSMR 
SENSOR  AND  KU  BAND  RADAR  DATA 
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TEST  DRTfl  PROFILE  HEL30AI 

TEST  DATE  10.  3.  B5.  REVISION  10 


HERN-  0.01  STANDARD  DEVIATION-  0.36 


FIGURE  3.1-8  EXAMPLE  OF  A DIFFERENCE  DATA  PLOT 
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3.2.1 


Preliminary  Findings 


In  the  first  step  of  the  procedure,  the  means  and  standard 
deviations  of  the  difference  data  was  compared  against  the  corresponding  radar 
specification  (listed  In  Table  1-2)  to  determine  which  parameters  were  within 
specification  for  each  test  run.  This  test  surfaced  major  problems  In  the 
following  parameters  (also  see  Table  1-3  of  Section  1): 

(1)  Range  rate  standard  deviation  (95Z  failure) 

(2)  Roll  rate  mean  and  standard  deviation  ( 93%  failure) 

(3)  Pitch  rate  mean  and  standard  deviation  (100%  failure). 
Problems  of  a smaller  magnitude  were  also  found  In  the  angle  data: 

(4)  Roll  angle  standard  deviations  (43%  failure) 

(5)  Pitch  angle  standard  deviations  (19%  failure). 

Extensive  analyses  of  the  areas  identified  above  were  then 
undertaken.  Results  of  these  analyses  are  summarized  in  the  following 
subsections.  However,  there  are  some  general  observations  from  these  analyses 
that  can  be  stated  here.  Almost  all  of  the  problems  in  the  data  can  be 
attributed  to  the  following  categories: 

(1)  Large  errors  in  the  sensor  data  due  to  the  sensor 
configuration  and  target  position.  This  problem  is 
commonly  called  Geometric  Dilution  of  Precision  or  GDOP. 

(2)  Target  acceleration  in  both  range  and  angle. 

(3)  Low  signal -to-noise  power  ratio  (SNR)  at  the  doppler 
filter  output.  This  is  principally  due  to  a small  radar 
cross  section  (RCS). 
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In  addition,  there  were  some  general  observations  concerning  the  dominant 
error  sources.  These  are  that 

(4)  Different  flight  trajectories  had  different  dominant 
error  sources. 

(5)  The  dominant  error  source  could  change  within  a given 
flight  trajectory. 

These  observations  on  dominant  error  sources  were  found  to  be  prevalent  in  the 
range  rate  analysis.  Angle  acceleration  and  transformation  errors  were  found 
to  be  the  major  contributors  to  errors  in  the  roll  and  pitch  angle  data. 
Angle  acceleration  and  a scale  factor  error  were  the  significant  contributors 
to  the  problems  in  the  ILOS  roll  and  pitch  angle  rate  data.  All  of  these 

problems  are  discussed  in  detail  in  the  following  subsections. 

3.3  RANGE  DATA  ANALYSIS 


The  first  cut  at  analyzing  the  range  error  data  was  quite 
encouraging.  The  standard  deviation  of  the  range  difference  data  was  beyond 
the  specification  limit  on  four  flights,  and  the  mean  was  outside  the 
specification  limit  on  three  flights.  These  cases  are  summarized  in  Table 
3.3-1.  In  addition  to  these  few  problems  with  the  range  error  data 
statistics,  there  were  some  anomalies  in  the  range  data.  All  of  these 
anomalies  took  the  form  of  discontinuous  jumps  in  the  Ku-Band  Radar  range 
estimate. 


TABLE  3.3-1  SUMMARY  OF  FIRST  CUT  AT  RANGE  ERROR  DATA  ANALYSIS 
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The  purpose  of  this  subsection  is  to  describe  the  analysis  of  the 
range  difference  data  statistics  problems  and  provide  some  observations  about 
the  discontinuous  jumps  in  the  Ku-Band  Radar  range  profile. 

3.3.1  Discussion  of  Range  Difference  Data  Statistics  Problems 

3. 3. 1.1  Description  of  Potential  Error  Sources 


The  potential  sources  of  errors  in  the  range  difference  data  are 
the  following: 

o GDOP 

o Low  SNR  (weak  target  return  signal) 
o Target  Range  Acceleration 


u< 
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the  present  analysis  because  the  value  of  the  acceleration  would  have  to  be 

quite  large  to  produce  a range  bias  that  would  cause  the  radar  range  estimate 

2 

to  fail  its  specification.  Consider  an  example:  a -10  feet/sec 

acceleration  would  generate  a range  bias  of  5.87  feet  in  the  narrowest 
bandwidth  case  of  the  range  tracker.  (This  example  was  taken  from  Reference 
3.  The  closed-formed  expression  for  the  asymptotic  range  bias  in  the  presence 
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wider  bandwidths  of  the  tracker.  Thus,  in  the  following  discussion,  target 
range  acceleration  will  not  be  considered  as  a source  of  error.  The 
discussion  will  be  limited  to  GDOP  and  weak  target  return  signals. 


Geometric  Dilution  of  Precision  or  GDOP  is  the  name  given  to  the 
error  induced  in  a multiple  sensor  measuring  system  due  to  the  placement  of 
sensors  and  the  random  fluctuations  of  the  individual  sensor  measurements. 
Appendix  D gives  a quantitative,  rigorous  derivation  of  the  GDOP-induced  error 
in  the  TMR  measuring  system.  (We  didn’t  have  the  resources  to  do  a similar 
computation  for  the  CINE  system.)  The  results  of  the  calculations  provide  the 
following  qualitative  observation.  GDOP-induced  range  error  is  the  worst  at 
very  low  altitude  and  directly  over  the  PEARL  site  brass  cap  (and  the  Ku-Band 
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Radar).  For  in  this  case,  range  to  the  target  from  the  brass  cap  origin  is 
along  the  -Z  axis.  But,  since  all  three  TMR  radars  are  roughly  in  the  X-Y 
plane  and  they  only  measure  R and  R,  then  they  cannot  determine  the  target 
Z— component  very  well.  Any  small  error  in  the  R measurement  translates  to  a 
large  error  in  the  Z-component  of  target  position. 

Although  we  did  not  have  time  to  work  out  the  expressions  for  the 
GDOP-induced  range  error  in  the  CINE  system,  we  can  comment  on  the  CINE 
performance  in  the  situation  described  above  using  some  newly  gained  insight. 
In  the  case  of  CINE  system,  each  sensor  measures  the  target's  azimuth  and 
elevation.  In  the  scenario  at  hand,  azimuth  and  elevation  will  provide 
information  about  the  target's  Z-component  of  position.  Hence,  small  error  in 
azimuth  and  elevation  should  not  translate  to  large  errors  in  the  Z-component. 

Weak  target  return  signals  which,  in  turn,  produce  low  SNR  at  the 
doppler  filter  output  ( <10dB)  will  generate  large  random  fluctuations  in  the 
range  data.  However,  this  is  only  a problem  for  weak  targets  ( < 0 dBsm)  at 
long  range  ( >50,000  feet).  A review  of  the  range  difference  data  and  the 
corresponding  range  and  RCS  profile  for  all  test  runs , indicated  that  low  SNR 
did  not  cause  any  of  the  failures  listed  in  Table  3.3—1.  Furthermore,  it  did 
not  produce  unusual  problems  in  any  of  the  other  flight  data  examined.  Figure 
3.3-1  illustrates  the  high  correlation  between  the  target  return  signal 
strength  (proportional  to  RCS)  and  the  random  fluctuations  in  the  range 
difference  data.  The  data  shown  in  the  figure  is  for  flight  HL146AE  with  an 
initial  range  of  46,500  feet  and  a final  range  42,800  feet. 

3. 3. 1.2  Discussion  of  Individual  Problem  Cases 


Observe  that  all  of  the  problem  cases  listed  in  Table  3.3-1  were 
out-of-specification  (1)  when  compared  to  the  BEST  or  TMR  data  only  and  (2) 
for  flight  trajectories  where  low  attitudes  and  short  ranges  were  involved. 
From  the  discussion  of  Section  3. 3. 1.1,  these  facts  point  to  GDOP  as  the 
primary  source  or  range  error.  There  was  one  perplexing  problem  with  assuming 
GDOP  for  all  of  these  problem  cases:  why  didn't  all  of  the  flight  tests  from 
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a given  family,  e.g.,  all  H30SK*s,  suffer  from  the  same  problem?  It  turns  out 
each  general  family  has  its  own  unique  answer  to  this  question.  The  answers 
for  each  family,  GEM,  BAL,  SAT  and  H30SK,  are  provided  below. 

GEM  and  BAL  Series.  In  this  series,  a helium  filled  GEMsphere 
was  released  from  the  brass  cap  and  allowed  to  fly  freely.  Since  all  of  these 
flights  start  at  very  low  altitude  over  the  brass  cap,  one  would  expect  GDOP 
problems  early  in  the  flight  for  both  GEM  and  BAL.  However,  a review  of  the 
flight  log  given  in  Appendix  G shows  that  the  only  one  radar  (R-394)  was 
available  for  the  BAL  series.  Hence,  there  is  no  TMR  or  BEST  solution 
available  and  consequently  there  is  no  problem  with  GDOP  for  the  BAL  tests. 

Observe  that  the  GEM3  failed  both  the  mean  and  standard  deviation 
specification  while  GEM2  failed  only  the  standard  deviation  specification. 
Let’s  first  examine  the  initial  tracking  altitude  and  range  for  both  cases. 
For  GEM2,  the  initial  altitude  and  range  are  2000’  and  3000*,  respectively, 
and  for  GEM3  they  are  1500’  and  2000’,  respectively.  At  these  altitudes,  a 
delta  of  500  feet  makes  a significant  difference  in  the  GDOP  error.  This 
difference  can  be  seen  in  the  BEST  range  difference  profiles  for  GEM2  and  GEM3 
shown  in  Figure  3.3-2 

It  has  been  observed  in  other  test  series  (H30SK)  that 
GDOP-induced  range  error  is  sensititve  to  the  X-Y  ground  track,  especially  at 
low  altitude.  This  problem  is  not  as  significant  in  ths  case.  The 

predominant  difference  is  the  delta  in  initial  altitudes. 

There  are  some  additional  observations.  First,  to  determine 
whether  the  range  difference  data  mean  and  standard  deviation  were 

out-of-specification,  they  were  both  compared  to  26.67  feet.  This  value  is 
the  limit  for  target  ranges  less  than  8000  feet,  while  1/3%  of  the  range  is 
used  for  ranges  greater  than  8000  feet.  But,  the  target  range  interval  was 
3000  feet  to  11,000  feet  for  GEM2  and  2000  feet  to  26,000  feet  for  GEM3. 

Hence,  a more  correct  determination  of  an  out— of— specification  condition  would 

break  the  range  difference  data  profile  into . intervals  for  ranges  less  than 
8000  feet  and  greater  than  8000  feet,  compute  means  and  standard  deviations 
for  each  interval,  and  apply  the  correct  specification  to  each  interval. 
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FIGURE  3.3-2  BEST  RANGE  DIFFERENCE  DATA  PROFILES  FOR  GEM2  AND  GEK3 
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Secondly,  notice  that  the  random  component  in  the  range 
difference  data  of  Figures  3.3—2  Is  Increasing  with  time.  This  correlates 
with  the  fact  the  target  is  moving  away  from  the  radar  and  further  illustrates 
the  effect  of  decreasing  target  return  signal  strength. 

Thirdly,  the  jdmps  in  range  bias  seen  at  the  pulsewidth  switch 
points  adds  signficantly  to  the  mean  and  standard  deviation  values. 

SAT  Series . The  reason  the  SAT4  data  was  not  a problem  was 
because  the  altitude  interval  for  the  flight  was  5100  feet  to  68000  feet,  and 
the  range  interval  was  10,800  feet  to  12,600  feet.  As  discussed  previously, 
GDOP  is  not  a problem  at  this  altitude  and  range.  Also,  target  return  signal 
strength  was  not  a factor  at  these  ranges,  even  though  the  target  RCS  dropped 
to  -10  dBsm  at  some  points.  Finally,  since  the  balloon  was  tethered,  range 
acceleration  was  not  a consideration. 

SAT2  and  SAT3  were  both  suspectible  to  GDOP  because  their  range 
of  operation  was  less  than  2600  feet.  In  fact,  SAT3  started  at  2600  feet 
range  and  finished  at  1200-  feet,  while  SAT2  remained  fixed  at  approximately 
2550  feet.  The  difference  in  range  of  these  two  cases  would  lead  one  to 
conclude  that  SAT3  would  experience  more  severe  GDOP  effects  than  SAT2.  That 
this  conclusion  is  true  is  supported  by  the  SAT2  and  SAT3  BEST  range 
difference  profiles  of  Figure  3.3-3  and  the  problem  summary  of  Table  3.3-1. 

Discontinuous  jumps  of  60  feet  were  found  in  the  SAT3  BEST  range 
difference  data  at  times  205  seconds  and  280  seconds  (see  Figure  3.3-3). 
These  jumps  are  not  a problem  with  the  Ku-Band  Radar,  but  instead,  are  caused 
by  the  BEST  range  data  as  shown  in  Figure  3.3-4. 

The  SAT1  flight  profile  is  very  similar  to  the  SAT2  but  SAT1 
range  difference  data  statistics  were  within  specification.  A close 
examination  of  this  data  shows  that  GDOP  has  induced  significant  error  in  the 
SAT1  range  difference  data  as  shown  in  Figure  3.3-5.  But  why  is  the  error 
less  significant  in  this  case?  Analysis  of  the  X-Y  ground  track  and  the 
altitutde  data  for  both  cases  shows  that,  while  the  SAT1  flight  is  at  a 
slightly  lower  altitude,  the  SAT2  flight  is  more  nearly  over  the  radar  where 
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FIGURE  3.3-3  BEST  RANGE  DIFFERENCE  DATA  PROFILES  FOR  SAT2  and  SAT3 
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FIGURE  3.3-5  SAT1  RANGE  DIFFERENCE  DATA  PROFILE 
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the  6D0F  problem  Is  most  severe.  Figure  3.3-6  compares  the  X-Y  ground  track 
of  the  SAT2  and  SAT1  flights.  Unfortunately,  at  the  writing  of  the  report,  no 
qualitative  GDOP  computations  were  available  to  confirm  these  conjectures. 

H30SK  Series.  In  this  series  of  tests,  a helicopter  flew  toward 
the  radar  with  a starting  range  of  4000  feet  and  a finishing  range  of  2000 
feet.  The  altitude  was  maintained  between  1500  feet  to  1700  feet.  H30SKAH 
was  the  only  test  of  this  series  that  indicated  a problem  with  the  range 
difference  data  statistics.  It  is  reasonable  to  assume  that  the  source  of  the 
error  is  GDOP.  But,  since  all  of  the  H30SK  profiles  are  quite  similar,  why 
isn't  there  a problem  with  all  of  these  runs?  A review  of  the  range 
difference  profiles  shows  that  there  is  significant  GDOP  error  in  all  of  the 
test  runs.  Figure  3.3-7  compares  the  BEST  range  difference  data  profiles  of 
H30SKAE  and  H30SKAH.  Both  profiles  vary  signficantly  over  the  test  duration 
with  a trend  toward  negative  range  error.  One  major  difference  is  that 
H30SKAH  starts  with  a -20  foot  offset,  while  H30SKAE  starts  with  a +20  foot 
offset.  The  reason  for  this  difference  is  not  clear  at  the  writing  of  this 
report . 


While  searching  for  a source  of  the  difference  in  offsets 
described  above,  an  interesting  fact  was  uncovered.  Figure  3.3-8  compares  the 
BEST  range  difference  profile  and  the  Y-brass  cap  coordinate  profile  for 
H30SKAE.  This  comparison  reveals  a high  correlation  between  these  two 
parameters.  It  supports  the  contention  that  GDOP-induced  range  error  is  very 
sensitive  to  target  position  especially  when  the  target  is  at  low  altitude  and 
nearly  overhead  of  the  PEARL  site  brass  cap.  However,  at  this  time,  we  have 
no  closed-formed  computation  of  GDOP-induced  range  error  to  support  these 
conclusions. 


3.3.2  Discussion  of  Discontinuous  Jumps  in  Range 

A review  cf  the  range  difference  data  has  surfaced  some 
discontinuous  jumps  in  range.  These  jumps  are  quite  evident  in  the  GEM  and 
BAL  series  of  data  (see  Figure  3.3-2).  Examination  of  the  corresponding  range 
profile  for  these  cases  shows  that  the  jumps  occur  at  the  Ku-Band  Radar 
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FIGURE  3.3-6  COMPARISON  OF  SAT1  and  SAT2  X-Y  GROUND  TRACK 
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FIGURE  3.3-7  COMPARISON  OF  H30SKAH  AND  H30SKAE  BEST  RANGE 


DIFFERENCE  DATA  PROFILES 
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TEST  DATA  PROFILE  H30SKAE 

TEST  DATE  10.3.85.  REVISION  10 
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FIGURE  3.3-8  COMPARISON  OF  H30SKAE’S  BEST  RANGE  DIFFERENCE 
PROFILE  AND  BEST-Y  PROFILE 
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pulsewidth  switch  points.  Some  questions  that  come  to  mind  immediately  are  as 
follows:  Does  a change  in  bias  occur  at  each  pulsewidth  transition?  Is  the 

bias  the  same  for  a given  pulsewidth  transition  or  is  it  a random  value?  A 
comprehensive  review  of  the  range  difference  data  was  undertaken  to  answer 
these  questions.  The  results  of  that  data  review  are  summarized  in  Table 
3.3-2. 


Some  of  the  highlights  of  the  review  are  as  follows.  First,  and 
most  important*,  there  is  some  jump  in  bias  at  every  pulsewidth  transition.  It 
is  hard  to  discern  a jump  in  the  pulsewidth  transitions  at  23,030  feet  and 
49,920  feet  because  of  random  noise  fluctuations  due  to  a weak  target  return 
signal.  Secondly,  for  a given  pulsewidth  transition,  the  value  of  the  range 
jump  was  approximately  the  same.  To  confirm  this  statement,  compare  the  3200 
foot  and  5760  foot  transition  jumps  for  the  GEM  and  BAL  series.  Thirdly,  it 
was  observed  that  the  sign  of  the  jump  depended  upon  the  direction  of 
transition.  This  can  be  seen  by  comparing  the  11520  transition  point  for  the 
HEL30  series  and  the  GEM  series.  A positive  jump  occurs  in  the  HEL30  data 
where  the  target  is  closing  and  a negative  jump  is  found  in  GEM  data  where  the 
target  is  opening. 

3. 3. 2.1  Discussion  of  Jump  Mechanism 

It  is  conjectured  that  these  range  jumps  are  cuased  by  slight 
changes  in  timing  for  generation  of  the  different  pulsewidth  values.  Observe 
that  the  largest  jumps  found  were  30  feet.  This  corresponds  to  a timing 
change  of  60  nanoseconds  using  the  2 nanosecond/f oot  conversion  for  two  way 
range.  Considering  the  complexity  of  the  pulse  generation  and  range  gate 
timing  circuitry,  it  is  not  surprising  to  find  timing  bias  on  the  order  of 
40-60  nanoseconds. 

To  confirm  these  conjectures  requires  a detailed  evaluation  of 
the  pulsewidth  generation  and  range  gate  timiag  circuitry,  a study  of  this 
magnitude  is  far  beyond  the  bounds  of  the  present  project  resources.  Anyone 
wishing  to  pursue  this  subject  futher  should  contact  A.E.  Miller,  Jr.,  the 


TABLE  3.3-2  SUMMARY  OF  RANGE  JUMP  INVESTIGATION  (Page  1 of  4) 
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Responsible  Engineer  (RE)  for  the  signal  processing  unit,  or  R.S.  Austin,  the 
System  Engineer  who  is  familiar  with  this  area.  Both  gentlemen  are  with  HAC's 
Radar  Systems  Groups. 

3. A RANGE  RATE  DATA  ANALYSIS 


A first  pass  through  the  SORTE  data  revealed  a high  percentage 

(95%)  of  failures  in  the  standard  deviation  or  random  component  of  the  range 

rate  data.  This  was  very  surprising  because  all  previous  data,  including 
system  test  data  and  flight  rendezvous  data,  had  indicated  that  the  range  rate 
tracking  performance  was  better  than  predicted  and  well  within  the 

specification.  An  intensive  examination  of  the  data  revealed  several  diverse 
sources  of  errors.  These  error  sources  included 

o Range  acceleration, 

o Geometric  Dilution  of  Precision  (GDOP), 
o Small  RCS  (low  SNR) , 
o Target  rotation, 
o Time  skewing , 

and  combinations  of  the  above  error  sources.  Errors  that  effected  the 

majority  of  the  data  were  GDOP  and  range  acceleration.  Target  effects, 

including  small  RCS  and  target  rotation,  caused  significant  problems  in  only  a 
handful  of  cases. 

Problems,  such  as  GDOP  and  time  skewing,  are  associated  with  the 
WSMR  sensor  system  and  data  processing.  Therefore,  they  do  not  impact  the 
Ku-Band  Radar  performance.  On  the  other  hand,  range  acceleration,  target 
rotation,  and  small  target  RCS  will  be  encountered  in  a space  flight 
operational  environment.  Hence,  range  rate  tracker  performance  data  due  to 
these  effects  is  quite  realistic. 
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Table  3.4-1  provides  a case-by-case  summary  of  the  range  rate 
analysis.  This  summary  gives  the  standard  deviation  of  the  target 
acceleration,  the  range  rate  standard  deviation  for  the  Cine  and  Best  data,  a 
measure  of  the  GDOP  effects,  and  comments  noting  the  most  significant 
contributors  for  each  test  run.  Notice  that  in  some  cases  one  error  source 
dominates  at  the  beginning  of  a flight  and  transitions  to  a second  dominant 
source.  Take  GEM3  as  an  example.  Once  target  rotation  effects  were  removed, 
it  was  found  that  GDOP  predominated  in  the  first  200  seconds  of  the  flight, 
while  target  acceleration  effects  predominated  for  the  remainder  of  the 
flight.  This  case  is  examined  in  depth  in  Section  3.4.3. 

3.4.1  Range  Acceleration  Effects 

3. 4. 1.1  Analysis  of  Acceleration  Effects  on  the  Velocity  Processor 

Target  range  acceleration  induces  error  in  the  Ku-Band  Radar’s 
velocity  estimate.  This  error  is  generated  in  two  places  in  the  signal 
processing:  (1)  the  discriminant  formation  process  and  (2)  the  smoothing 

filter  at  the  velocity  processor  output.  These  two  effects  are  analyzed  below. 

The  velocity  discriminant  was  designed  under  the  assumption  that 
the  velocity  was  constant  over  the  period  (called  a data  cycle)  during  which 

the  data  is  taken.  Now,  if  the  target  is  accelerating  in  range,  the  velocity 

will  not  be  constant  over  the  data  cycle  and  the  velocity  discriminant  will  be 
distorted,  causing  an  error  in  the  velocity  estimate.  To  determine  the  amount 
of  distortion  in  this  estimate,  the  signal  processing  prior  to  velocity 
discriminant  formation  must  be  examined. 

The  duration  of  a data  cycle  is  51.2  milleseconds  for  the  7 kHz 

PRF  mode  and  119  milleseconds  for  the  3 kHz  PRF  mode.  In  both  cases,  the 

radar  processes  a total  of  320  return  pulses  through  each  of  2 range  gates  to 
form  the  velocity  discriminant.  The  320  pulses  in  each  range  gate  are 
processed  16  consecutive  pulses  at  a time  to  form  the  approximate  doppler 
filter  outputs  via  a discrete  fourler  transform  (DPT).  Since  there  are  640 
return  pulses  for  the  two  range  gates,  then  there  are  40  outputs  formed  for 
each  doppler  filter.  For  a given  filter,  the  magnitude  of  these  40  outputs 
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TABLE  3.4-1  SUMMARY  OF  RANGE  ACCELERATION  EFFECTS  ON  RANGE  RATES  (Page  1 of  4) 
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TABLE  3.4-1  SUMMARY  OF  RANGE  ACCELERATION  EFFECTS  ON  RANGE  RATES  (Page  3 of  4) 
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are  computed  and  summed  together  (a  process  called  post  detection  integration 
or  PD1)  to  form  an  integrated  filter  output.  The  velocity  discriminant  is 
then  formed  by  comparing  the  values  of  the  filter  on  each  side  of  the  current 
velocity  tracking  filter.  This  gives  a measure  of  the  position  of  the  target 
velocity  within  the  center  tracking  filter. 

One  concern  is  the  effect  of  acceleration  on  each  formation  of  a 

2 

16  point  DFT.  Consider  a range  acceleration  of  10  feet/sec  , the  change  in 
velocity  over  the  16  point  DFT  is  0.023  feet/second  in  the  7 kHz  case  and 
0.053  feet/second  in  the  3 kHz  case.  In  both  cases,  this  turns  out  to  be  0 .32 
of  a filter  width.  This  produces  insignificant  degradation  in  individual  16 
point  DFT  outputs.  The  second  problem  in  the  velocity  discriminant  formation 
caused  by  acceleration  is  the  change  in  the  filter  output  value  over  the  20 
filter  output  formations  for  a given  range  gate.  Again,  assuming  a range 
acceleration  of  10  feet/second  , the  velocity  changes  0.46  feet/second  over 
the  20  filter  formations  in  the  7 kHz  PRF  mode  and  1.075  feet/second  in  the  3 
kHz  PRF  mode.  However,  due  to  the  PDI  process  the  total  change  predicted  by 
radar  velocity  discriminant  is  just  1/2  of  this  value.  The  PDI  process 
can  be  viewed  as  an  averaging  process  and  the  error  can -be  obtained  from  the 
following  equations: 


(3-1) 


1 

V - 

20 


20 


(Vo  + n Av) 


or 


V - 


Vo  + AV 
20 


or 


Vo  + 10  AV21  - Vo  + 10  AV 
20 


where 


Radar  velocity  estimate  at  the  end  of  a data  cycle, 


Vo 


actual  target  velocity  at  beginning  of  a data  cycle. 


A V ■ true  change  in  target  velocity  over  a 16  point  DFT 
formation. 
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Now,  the  actual  velocity  at  the  end  of  a data  cycle  is  given  by  Vo  + 20  A V and 

2 

the  error  Is  therefore  100V.  Thus,  for  the  example  of  a 10  feet/sec  range 
acceleration,  the  velocity  error  due  to  the  PD1  process  would  be  0.23 
feet/second  in  the  7 kHz  PRF  mode  and  0.54  feet/second  in  the  3 kHz  PRF  mode. 
This  is  a significant  velocity  error  source.  A complete,  exact  detailed 
analysis  of  the  velocity  error  due  to  the  velocity  discriminant  formation  is 
given  in  Appendix  F. 


The  second  source  of  range  acceleration  error  occurs  in  the 
moving  window  averager  at  the  output  of  the  velocity  processor  (see  Figure 
3.4-1).  In  the  7 kHz  PRF  mode  the  moving  window  filter  averages  the  present 
data  cycle  velocity  estimates  with  the  previous  3 data  cycle  estimates.  In 
the  3 kHz  PRF  mode  the  filter  averages  the  present  data  cycle  estimate  with  1 
previous  data  cycle  estimate.  For  a given  range  acceleration  value,  this 
filtering  produces  the  same  error  effect  as  the  PDI  processor.  The  estimated 
velocity  in  this  case  can  be  expressed  as 


(3-2) 


1 N_1 

V - — 2 (V°  + nAV 


N n-0 


N-l 


or 


V - Vo  + AVd  2 1 


n*o  N 


or 


V - Vo  + AVd  Nj_1 


(Radar 

estimate) 
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3.4-1  ILLUSTRATION  OF  RANGE  ACCELERATION  ERROR  SOURCES 
IN  THE  RANGE  RATE  SIGNAL  PROCESSING 
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(b)  VELOCITY  PROCESSOR 


and  the  actual  velocity  Is  given  by 


(3-3)  V - Vo  + (N-l)  A VD 

where  Vo  ■ true  velocity  at  the  beginning  of  the  averaging 

period, 

AVq  - change  in  true  velocity  over  one  data  cycle, 

N ■ moving  window  filter  width. 

Clearly,  the  error  induced  by  the  moving  window  filter  in  the  presence  of 

range  acceleration  is  (N-l)  AV_/2.  Using  a range  acceleration  of  10 

2 D 

feet/sec  , AV^  is  0.512  feet/sec  and  the  induced  error  is  0.768 
feet/second  in  the  7 kHz  PRF  mode.  In  the  3 kHz  PRF  mode,  AV„  is  1.19 

U 

feet/second  and  the  induced  error  is  0.595  feet/second. 

Combining  the  errors  caused  by  the  PDI  processor  and  the  moving 
window  filter  one  obtains  the — following  expressing  for  the  radar  velocity 
estimate. 


(3-4) 


or 


or 


l N-l 

V - _ Z (Vo  - 10  AV  + n AVD) 
N n**o 


V - Vo  - 10  AV  + N^l  AVd 

2 


AVD 

V - Vo  - + Vrl  avd 

2 2 
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Subtracting  equation  3-4  from  3-3  the  velocity  error  estimate  is 

(3-5)  TOTAL  VELOCITY  ERROR  - N AVD  - N TD  Ar 

2 2 

where  T^  ■ Data  Cycle  Length 

■ Range  Acceleration 

2 

for  the  7 kHz  PRF  mode  and  a 10  feet/sec  range  acceleration,  the  error  1.02 
feet/sec  and  for  the  3 khZ  PRF  mode  and  the  same  acceleration,  the  error  is 
1.19  feet /sec.  This  is  a significant  error  in  either  PRF  case. 

In  summary,  equation  3—5  can  be  used  as  a tool  to  estimate  the 
Ku-Band  Radar  velocity  error  in  the  presence  of  target  range  acceleration. 
This  result  was  applied  to  the  SORTE  generated  range  rate  difference  data  to 
determine  when  acceleration  was  a significant  error  source.  Results  of  this 
exercise  are  discussed  below. 

3. 4. 1.2  Range  Acceleration  Effects  in  the  SORTE  Data 

A crude  measure  used  to  determine  those  test  cases  that  might  be 

affected  by  range  acceleration  error  was  to  compute  the  standard  deviation  of 

the  Best  range  acceleration  data.  Then  analyze  those  cases  with  acceleration 

2 

standard  deviations  that  were  greater  than  1 foot/sec  . Table  3.4-2 
summarizes  the  results  of  this  exercise.  It  gives  the  range  acceleration 
standard  deviation  and  the  range  rate  difference  standard  deviation  referenced 
to  the  Best  data  and  the  Cine  data  when  available. 

All  of  the  SAT  tests,  except  SAT4,  appear  to  have  the  highest 
range  acceleration  standard  deviation  and  correspondingly  high  delta  range 
rate  standard  deviations.  Since  the  target  was  a tethered  GEM  sphere  that  was 
reeled  in  and  out  very  slowly,  it  is  clear  that,  in  fact,  there  was  very 
little  range  acceleration.  Further  analysis  revealed  that  GDOP  contributed 
significant  random  error  to  the  TMR  (and  Best)  range  rate  data,  producing  a 
highly  corrupted  Best  range  acceleration  data  as  well.  GDOP  was  a significant 
factor  due  to  the  target's  position  (low  altitude,  directly  over  the  brass 
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TABLE  3.4-2  TEST  CASES  WHERE  RANGE  ACCELERATION 

WAS  AN  APPARENT  PROBLEM 


BEST  RANGE 

DELTA  RANGE  RATE 

PROFILE 

ACCELERATION 

STANDARD  DEVIATION 

STANDARD 

BEST  CINE 

DEVIATION 

BALI 

1.27 

1.38 

ND 

BAL  2 

3.58 

3.08 

ND 

BAL5 

3.20 

1.20 

ND 

BAL6 

3.82 

1.38 

ND 

BAL7 

2.30 

2.90 

ND 

GEM2 

6.50 

2.77 

ND 

GEM3 

4.83 

1.83 

ND 

SAT1 

6.03 

2.33 

ND 

SAT2 

9.56 

3.06 

1.41 

SAT3 

13.14 

6.78 

1.85 

SAT4 

2.22 

0.73 

0.65 

HEL30AF 

1.71 

0.75 

0.50 

HEL30AG 

1.01 

0.37 

0.41 

HL546AE 

1.50 

0.67 

0.75 

cap)  relative  to  the  3 TMR  radars.  In  these  cases,  the  conclusion  is  that  the 
TMR  system  is  the  principal  contributing  error  source  and  that  there  is  no 
problem  with  the  Ku-Band  Radar  estimate. 

In  the  SAT4  case,  the  target  is  still  a tethered  gem  sphere,  but 
at  a much  higher  altitude  nearly  over  the  brass  cap.  Although  not  as  severe 
as  the  first  three  SAT  cases,  GDOP  again  produces  a significant  apparent 
acceleration.  Hence,  GDOP  is  the  primary  contributor  to  the  delta  range  rate 
behavior  in  this  case.  The  effects  of  GDOP  on  the  SAT  cases  is  discussed  in 
more  detail  in  Section  3.4.2. 

The  group  of  test  runs  with  the  next  highest  apparent  range 
acceleration  standard  deviations  were  the  GEM  and  BAL  tests.  All  of  these 
tests  consisted  of  releasing  helium-filled  GEM  spheres  at  the  brass  cap  and 
allowing  them  to  fly  freely.  In  this  case,  three  factors  contributed  to  the 
range  acceleration  standard  deviation:  (1)  GDOP,  especially  at  low  altitude, 

(2)  the  spinning  GEM  sphere  and  (3)  true  target  range  acceleration.  GDOP 
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effects  are  discussed  in  Section  3.4.2  and  target  rotation  effects  are 
discussed  in  Section  3.4.3. 

Let's  examine  one  of  these  cases  in  detail.  Figures  3.4-2  and 

3.4-3  show  the  BAL2  range  rate  difference  data  prior  to  and  after  compensating 

for  target  rotation  effects,  respectively.  (Justification  for  the 

compensation  is  given  in  Section  3.4.3).  This  new  data  shows  a significant 

reduction  in  the  standard  deviation.  Also  it  will  be  shown  in  Section  3.4.2 

that  the  major  contributor  in  the  first  125  seconds  is  GDOP.  Now,  let's 

analyze  the  remaining  difference  data  (from  125  seconds  to  300  seconds).  The 

standard  deviation  of  this  data  is  approximately  0.67  feet/second,  which  is 

still  beyond  the  specification  limits.  A significant  contributor  to  this 

error  is  the  target  rotation  effects . It  turns  out  that  the  radar  is  tracking 

the  spinning  of  the  target  as  evidenced  by  the  expanded  plot  of  the  Ku-Band 

Radar  MDM  range  rate  shown  in  Figure  3.4-4  during  this  period.  The  range  rate 

is  oscillatory  in  nature  with  peak-to-peak  swings  of  10  feet/second  and  a 

period  of  approximately  4 seconds.  Close  examination  of  Figure  3.4-4  reveals 

2 

accelerations  as  high  as  8 feet/sec  . From  the  analysis  of  Section  3. 4. 1.1, 

2 

this  translates  to  a Ku-Band  Radar  range  rate  error  of  0.82  feet/sec  . This 
acceleration  effects  due  to  target  rotation  then  becomes  a significant 
contributor  to  the  range  rate  error.  In  addition,  there  is  some  minor  effect 
due  to  the  target  moving  (accelerating)  away  from  the  Ku-Band  Radar. 

The  range  acceleration  effects  analysis  for  the  remaining  BAL 
tests  and  GEM  tests  follows  in  an  identical  manner  to  the  BAL2  analysis 
provided  above.  The  conclusions  of  those  analyses  are  also  identical. 

The  next  group  of  tests  that  showed  effects  potentially  caused'  by 
range  acceleration  was  the  HEL30  and  the  HL546  series.  Consider  the  HEL30AF 
case.  The  range  rate  difference  data  of  Figure  3.4-5  shows  some  definite 
trends  rather  than  being  purely  random  in  nature.  A comparison  of  the  BEST 
range  acceleration  profile  of  Figure  3.4-6  indicates  that  the  trends  in  the 
range  rate  difference  profile  are  highly  correlated  with  the  range 
acceleration  profile.  Using  the  acceleration  data  of  Figure  3.4-6  and 
equation  3.5,  the  expected  Ku-Band  Radar  range  rate  error  was  computed  and 
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ORIGINAL  PAGE  JS 
OF  POOR  QUALfTY 


FIGURE  3.4-2  ILLUSTRATION  OF  OSCILLATION  IN  RANGE  RATE  DATA 
DUE  TO  TARGET  ROTATION 
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DELTA  RANGE  RATE  FT/SEC  (Ku-TMR) 


FIGURE  3.4-3  BAL2  TMR  RANGE  RATE  DIFFERENCE  DATA  AFTER  COMPENSATING 

FOR  TARGET  ROTATION  EFFECTS.  NOTE:  KUBAND  DATA  IS  SHIFTED 

1.6  DATA  CYCLES  RELATIVE  TO  THE  TMR  DATA. 


3-50 


200.  202.  204.  206.  208.  210-. 

TIME  SECONDS 


FIGURE  3.4-4  EXPANDED  VIEW  OF  THE  OSCILLATION  INDUCED  IN 
THE  KUBAND  RADAR  RATE  DUE  TO  TARGET  ROTATION 
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TEST  DATE  10.3.85.  REVISION  10 


TO-56123.  GMT-15.35.23. 

2.5  | | II  i ■ I 


-2.5-1 1 1 \ | 1 1 1 1 

0 20  40  60  80  100  120  140  160 

TIME  SECOND 


MEAN-  0.01  STANDARD  DEVIATION-  0.75 


FIGURE  3.4-5  HEL30AF  BEST  RANGE  RATE  DIFFERENCE  PROFILE  TO  BE  COMPARED 
WITH  RANGE  ACCELERATION  PROFILE  OF  FIGURE  3.4-6 
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TEST  DATA  10.3.85 


REVISION  10 


FIGURE  3.4-6  HEL30AF  BEST  RANGE  ACCELERATION  PROFILE  TO  BE  COMPARED 
WITH  THE  RANGE  RATE  DIFFERENCE  PROFILE  OF  FIGURE  3.4-5 
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found  to  be  too  high  by  a factor  of  about  4.  The  range  rate  difference  data 
referenced  to  the  CINES  (Figure  3.4-7)  shows  the  scale  factor  to  be  reduced  to 
3,  but  this  is  still'  a significant  discrepancy.  To  further  probe  this 
problem,  the  BEST  profile  for  HEL30AF  was  used  to  drive  the  simulator.  The 
simulation  generated  range  rate  was  differenced  with  the  BEST  range  rate  data 
to  produce  the  profile  shown  in  Figure  3.4-8.  This  data  gives  the  expected 
theoretical  result.  At  the  writing  of  this  report,  the  source  of  the 
discrepancy  in  the  data  has  not  been  resolved. 

Analysis  of  the  HEL30AG  and  HL546AE  profiles  gave  similar 
results.  Both  profiles  show  high  correlation  between  the  BEST  range  rate 
difference  data  and  the  BEST  range  acceleration  data.-  Also  a scale  factor 
error  was  found  to  be  present  in  both  cases.  However  the  scale  factor 
appeared  to  be  closer  to  2 rather  than  3 or  4 as  in  the  HEL30AF  case. 

3.4.2  GDOP  Effects 


3. 4. 2.1  A Qualitative  Description  of  GDOP 

Geometric  Dilution  of  Precision  (GDOP)  is  the  name  applied  to  the 
inaccuracies  induced  in  a set  of  target  measurements  caused  by  the  placement 
of  the  system  sensors  relative  to  the  target  and  the  random  errors  in  the 
individual  sensor  measurements.  A complete  development  of  the  theory  of  the 
TMR  GDOP  effects  on  range  and  range  rate  measurements  is  given  in  Appendix  D. 

One  of  the  most  significant  facts  that  surfaced  during  the  GDOP 
development  can  be  described  as  follows.  First,  notice  that  the  three  TMR 
radars  and  the  Ku-Band  Radar  lie  approximately  in  a plane  and  the  TMR  radars 
surround  the  Ku-Band  Radar  (see  Figure  D-l).  Also,  observe  that  the  TMR 
radars  only  supply  target  range  and  range  rate  measurements.  Now,  if  the 
target  is  at  low  altitude  over  the  brass  cap  or  directly  over  the  Ku-Band 
Radar,  the  TMR  radars  cannot  measure  the  vertical  component  (or  the 
Z-component)  of  the  target  velocity.  Furthermore,  any  random  errors  in  TMR 
measurements  will  translate  into  significant  errors  in  the  Z-component  of 
velocity  estimated  by  TMR.  In  this  configuration,  the  Z-component  translates 
to  range  rate  as  measured  by  the  Ku-Band  Radar.  Hence,  there  is  significant 
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DELTA  RANGE  RATE  FT/SEC  (SIM-BEST) 


0 20  40  60  80  100  120  140  160 

TIME  SECONDS 


MEAN*  -0.001 


STANDARD  DEVIATION*  0.185 


FIGURE  3.4-8  SIMULATION  GENERATED  HEL30AF  RANGE  RATE  DATA  REFERENCED 
TO  THE  HEL30AF  BEST  RANGE  RATE  DATA 
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GDOP  error  in  the  TMR  range  rate  measurement.  The  situation  described  above 
is  illustrated  for  a two  dimensional  case  in  Figure  3.4-9. 

The  general  result  of  the  above  qualitative  discussion  is  that 
any  flight  profile  that  puts  the  target  at  low  altitude,  directly  over  the 
Ku-Band  Radar  should  have  significant  error  in  the  TMR  range  rate 
measurements.  Thus,  we  should  expect  TMR  GDOP  problems  with  the  SAT1,  SAT2, 
and  SAT3  data.  Also,  GDOP  problems  should  be  found  early  in  the  flight  for 
the  BAL  and  GEM  series  of  tests.  To  a lesser  extent,  one  should  expect  GDOP 
problems  with  the  H30SK  series.  Even  though  this  flight  profile  is  offset 
from  the  brass  cap,  it  is  still  at  a relatively  low  altitude. 

Although  there  was  not  time  to  perform  a GDOP  analysis  of  the 
CINE  sensor  system,  it  is  appropriate  at  this  point  to  make  some  qualitative 
observations  about  the  CINE  GDOP  performance  in  the  situation  described 
above.  The  CINE  system  develops  the  target  position  and  velocity  using 
azimuth,  elevation,  azimuth  rate  and  elevation  rate  from  each  of  5 
cinetheodolites.  When  the  target  is  directly  over  the  brass  cap  each 
individual  cine  should  have  reasonably  good  knowledge  of  the  target  vertical 
velocity  component.  Thus,  contrary  to  the  TMR  system,  the  CINE  system  should 
experience  very  little  problem  with  GDOP  in  the  range  rate  measurement  for  the 
profiles  cited  above. 

3. 4. 2. 2 GDOP  Analysis  of  SORTE  Range  Rate  Data 

The  preliminary  step  in  the  analysis  was  to  compute  the  standard 
deviation  of  the  range  rate  error  produced  by  GDOP  at  each  point  in  the  flight 
profile.  Then  the  mean  and  standard  deviation  of  this  GDOP  error  profile  was 
computed.  In  the  preliminary  analysis,  the  mean  of  the  GDOP  error  profile  was 
used  to  screen  all  of  the  test  cases.  If  the  mean  of  the  GDOP  error  profile 
was  greater  than  0.25  feet/sec,  then  the  test  case  was  examined  in  further 
detail.  Table  3.4-3  summarizes  those  cases  with  significant  GDOP  error 
problems  that  were  analyzed  in  more  detail.  Results  of  those  analyses  are 
discussed  below. 


NOTE:  NEITHER  SENSOR'S  MEASUREMENTS 
CONTAIN  INFORMATION  ABOUT 


FIGURE  3.4-9  ILLUSTRATION  OF  A SEVERE  GDOP  VELOCITY  SITUATION 
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TABLE  3.4-3  TEST  CASES  WHERE  GDOP  PRODUCED 
SIGNIFICANT  RANGE  RATE  ERROR 


PROFILE 

GDOP  MEAN* 
RANGE  RATE 
ERROR 

DELTA 

STANDARD 

BEST 

RANGE  RATE 

DEVIATION 

CINE 

BALI 

1.14 

1.38 

ND 

BAL2 

2.95 

3.08 

BAL6 

1.07 

1.38 

ND 

BAL7 

1.03 

2.90 

ND 

SAT1 

— 

2.33 

ND 

SAT2 

1.76 

3.06 

1.41 

SAT3 

2.97 

6.78 

1.85 

H30SKAE 

1.43 

1.47 

0.32 

H30SKAF 

1.37 

1.72 

0.33 

H30SKAG 

1.90 

0.84 

0.83 

H30SKAH 

1.40 

2.21 

1.14 

H30SKAI 

1.17 

1.06 

0.49 

HEL30AF 

0.35 

0.75 

0.50 

HEL30AI 

0.38 

0.67 

0.36 

HEL30AJ 

0.38 

0.76 

0.38 

This  Is  the  mean  of  the  GDOP  range  rate  error  standard  deviation  profile 


GDOP  induced  range  rate  errors  are  very  similar  for  the  BAL  and 
GEM  series  of  tests.  Figure  3.4-10  and  3.4-11  give  typical  examples  of  the 
GDOP  range  rate  error  for  the  GEM  and  the  BAL  tests,  respectively.  Both  tests 
have  similar  shaped  GDOP  profiles;  GDOP  range  error  is  large  at  the  beginning 
of  the  flight  and  tapers  off  rapidly  after  100  seconds  or  so.  This  behavior 
correlates  perfectly  with  the  qualitative  description  of  GDOP  given  in  Section 
3. 4. 2.1.  For  these  test  cases,  a helium-filled  gemsphere  is  released  at  the 
brass  cap  and  allowed  to  free-fly.  Hence,  early  in  the  flight,  the  target  is 
at  very  low  altitude,  e.g.  1000  to  2000  feet.  But  the  balloon  rises  rapidly 
to  several  thousand  feet  in  altitude.  Based  on  the  qualitative  discussion  of 
Section  3. 4. 2.1,  one  would  expect  large  GDOP  range  rate  error  at  low  altitude 
or  early  in  the  flight  and  small  GDOP  range  rate  error  at  high  altitude  or 
late  in  the  flight.  The  behaviors  of  the  GDOP  computation  shown  in  the  two 
figures  correlates  perfectly  with  the  intuitive  explanation. 

As  further  proof  that  the  GDOP  computation  is  correct,  a range 
rate  difference  profile  referenced  to  the  TMR  data  was  computed  for  the  BAL7 
profile  and  is  plotted  in  Figure  3.4-12.  A comparison  of  this  profile  with 
the  BAL7  GDOP  computation  given  in  Figure  3.4-11,  indicates  good  agreement  in 
shape  and  magnitude  between  the  two  profiles.  It  shows  that  GDOP  dominates 
over  the  first  200  seconds  and  that  a different  source  range  acceleration  due 
to  target  rotation  (as  discussed  in  Section  3. 4. 1.2),  dominates  over  the 

remainder  of  the  flight. 

One  final  observation  about  the  GDOP  calculations  for  BAL7  and 
GEM2  is  warranted.  The  difference  in  magnitudes  at  the  start  of  the  profiles 
is  due  to  the  difference  in  altitude  for  initial  tracking.  As  one  would 
expect  the  initial  altitude  of  BAL7  is  much  lower  than  for  GEM2. 

In  the  SAT  series  of  tests,  the  helium-filled  GEMsphere  was 

tethered.  For  the  SAT1  and  SAT2  tests  the  range,  and  approximately  the 

altitude,  of  the  balloon  was  about  2500  feet  above  the  Ku-Band  Radar  for  the 
entire  test.  For  the  SAT3  test  the  initial  range  was  2500  feet  and  the 
balloon  was  reeled  into  1200  feet  final  range.  The  range  of  the  balloon  in 
the  SAT4  test  was  10,000  to  12,000  feet.  The  SAT  data  of  Table  3.4-3 
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TMR  RANGE  RATE  STANDARD  DEVIATION  DUE  TO  GDOP  FT/SEC 


TEST  DATE  10-16-85 


TIME  SECONDS 

MEAN-  0.355 


FIGURE  3.4-10  GDOP- INDUCED  RANGE  RATE  ERROR  STANDARD  DEVIATION 
PROFILE  FOR  GEM2 
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TEST  DATE  11-4-85 


TIME  SECONDS 

MEAN-  1.03 


FIGURE  3.4-11  GDOP-INDUCED  RANGE  RATE  ERROR  STANDARD  DEVIATION 
PROFILE  FOR  BAL7 
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TMR  RANGE  RATE  STANDARD  DEVIATION  DUE  TO  GDOP 


ORIGINAL  PAGE  IS 
OF  POOR  QUALTTY 


FIGURE  3 


TEST  DATE  11-4-85 


I 
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STANDARD  DEVIATION-  1.577 


4-12  BAL7  TMR  RANGE  SATE  DIFFERENCE  PROFILE  AFTER  COMPENSATION 
FOR  TARGET  ROTATION  EFFECTS 


correlates  with  these  test  descriptions,  since  we  expect  the  test  run  with  the 
lowest  average  altitude  to  have  the  worst  average  GDOP  range  rate  error  and 
worst  difference  range  rate  standard  deviation.  Figure  3.4-13  gives  the  GDOP 
range  rate  error  standard  deviation  profile  for  the  SAT2  test  run. 

Notice  that  GDOP  range  rate  error  does  not  appear  to 

significantly  affect  the  CINE  data.  That  this  is  true  can  be  seen  by 

comparing  the  difference  range  rate  data  referenced  to  the  BEST  solution 

against  the  difference  range  rate  data  referenced  to  the  CINE  solution.  In 

both  the  SAT2  and  SAT3  runs,  the  standard  deviation  of  the  BEST  data  is  2-3 
times  greater  than  the  CINE  data.  As  was  conjectured  earlier,  the  CINE  system 
is  not  susceptible  to  low  altitude  GDOP  errors  because  the  sensors  in  the 
system  measure  9 and  0,  rather  than  R and  R which  is  measured  by  the  TMR 
sensors . 


In  the  H30SK  series  of  runs,  the  target,  a UH-1H  helicopter,  flew 
a 30  degree  glide  slope  toward  the  radar,  starting  at  a range  of  4000  feet  and 
altitude  of  1700  feet  and  finishing  at  a range  of  2000  feet  and  an  altitude  of 
1500  feet.  Figure  3.4-14  gives  the  GDOP  range  rate  error  standard  deviation 
profile  for  a typical  run  (H30SKAG).  This  shows  the  anticipated  behavior: 
GDOP  increases  with  time  because  the  altitude  decreases  with  time. 

A comparison  of  the  CINE  range  rate  difference  data  and  the  BEST 
range  rate  difference  data  for  this  series  of  test  shows  that  GDOP  range  rate 
error  is  much  less  significant  for  the  CINE  system  of  sensors.  This  result  is 
identical  to  the  SAT  series  of  tests  and  therefore  similar  comments  apply. 

The  final  tests  shown  in  Table  3.4-3  is  the  HEL30  series.  In 
these  tests  the  helicopter  flies  toward  the  radar  from  a range  of  12000  feet 
into  7000  feet.  The  starting  altitude  is  6000  feet  and  the  final  altitude  is 
5000  feet.  Since  these  tests  were  at  a higher  altitude  and  further  range  than 
any  of  the  previous  sets  of  tests,  one  would  expect  the  GDOP  range  rate  error 
to  be  smaller  than  the  other  cases.  This  is  verified  by  the  data  of  Table 
3.4-3.  A GDOP  range  rate  standard  deviation  plot  for  the  HEL30AF  profile  is 
provided  in  Figure  3.4-15.  This  data  confirms  that  the  GDOP  range  rate  error 
increases  as  the  altitude  decreases. 
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The  HL-  and  HJ-  series  of  tests  consisted  of  tracking  a 
helicopter  at  long  range  and  high  altitude  for  a duration  of  10  minutes*  All 
of  the  previous  discussion  on  GDOP  error  would  lead  us  to  conclude  that  these 
tests , because  of  high  altitude  and  long  range,  would  have  insignificant  GDOP 
range  rate  error.  The  GDOP  calculations  given  in  Figures  3.4-16  and  3.4-17 
support  this  conclusion  for  the  HJ-  and  HL-  series,  respectively. 

3.4.3  Target  Rotation  Effects 

An  examination  of  the  range  rate  difference  data  referenced  to 
the  TMR  for  the  GEM  and  BAL  series  of  tests  (see  Figure  3.4-2)  reveals 
peak— to— peak  oscillations  of  10  feet/second.  Further  investigations  showed 
that  the  Ku-Band  Radar  range  rate  profile  had  peak-to-peak  oscillations  of  10 
feet/second  with  a period  of  4 seconds.  This  probing  of  the  data  also 
indicated  that  the  TMR  range  rate  profile  also  had  oscillations  with  the  same 
peak-to-peak  value  and  period. 

3. 4. 3.1  Evidence  Supporting  the  Target  Spin  Theory 

What  was  the  source  of  these  oscillations?  It  is  conjectured 
that  the  source  of  these  range  rate  oscillations  was  rotation  of  the  GEMsphere 
with  both  the  Ku-Band  Radar  and  the  TMR  radars  tracking  slowly  back  and  forth 
across  the  spinning  balloon.  There  are  two  facts  that  lend  support  to  this 
conjecture.  First,  examination  of  the  SMMS  rendezvous  data  from  flight  41-C 
reveals  a similar  oscillation  in  range  rate.  In  this  case  it  was  confirmed 
through  visual  observation  that  the  SMMS  was  in  fact  rotating  about  its  axis. 
Computation  of  the  SMMS  rotation  speed  from  the  peak-to-peak  velocity  value 
compared  quite  well  with  the  rotation  speed  estimated  from  the  visual 
observations.  The  second  fact  is  that  both  the  TMR  radars  and  the  Ku-Band 
Radar  produced  identical  oscillatory  patterns.  Since  these  radars  operate  at 
widely  different  RF  (2  GHz  for  the  TMR  and  14  GHz  for  the  Ku-Band  Radar)  and 
the  signal  processing  and  waveforms  are  different,  the  observed  effect  must  be 
generated  by  some  mechanism  that  is  independent  of  the  radars.  This  leaves 
only  the  target  and  its  dynamics . The  only  dynamics  that  would  produce  an 
oscillation  in  range  rate  is  a spinning  of  the  target. 
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TEST  DATE  10-3-85 


TIME  SECONDS 


MEAN-  .354 


FIGURE  3.4-15  GDOP- INDUCED  RANGE  RATE  ERROR  STANDARD  DEVIATION 
PROFILE  FOR  HEL30AF 
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The  HL-  and  HJ-  series  of  tests  consisted  of  tracking  a 
helicopter  at  long  range  and  high  altitude  for  a duration  of  10  minutes.  All 
of  the  previous  discussion  on  6D0P  error  would  lead  us  to  conclude  that  these 
tests,  because  of  high  altitude  and  long  range,  would  have  insignificant  6D0P 
range  rate  error.  The  6D0P  calculations  given  in  Figures  3.4-16  and  3.4-17 
support  this  conclusion  for  the  HJ-  and  HL-  series,  respectively. 

3.4.3  Target  Rotation  Effects 

An  examination  of  the  range  rate  difference  data  referenced  to 
the  TMR  for  the  GEM  and  BAL  series  of  tests  (see  Figure  3.4-2)  reveals 
peak-to-peak  oscillations  of  10  feet/second.  Further  investigations  showed 
that  the  Ku-Band  Radar  range  rate  profile  had  peak-to-peak  oscillations  of  10 
feet/second  with  a period  of  4 seconds.  This  probing  of  the  data  also 
indicated  that  the  TMR  range  rate  profile  also  had  oscillations  with  the  same 
peak-to-peak  value  and  •period. 

3. 4. 3.1  Evidence  Supporting  the  Target  Spin  Theory 

What  was  the  source  of  these  oscillations?  It  is  conjectured 
that  the  source  of  these  range  rate  oscillations  was  rotation  of  the  GEMsphere 
with  both  the  Ku-Band  Radar  and  the  TMR  radars  tracking  slowly  back  and  forth 
across  the  spinning  balloon.  There  are  two  facts  that  lend  support  to  this 
conjecture.  First,  examination  of  the  SMMS  rendezvous  data  from  flight  41-C 
reveals  a similar  oscillation  in  range  rate.  In  this  case  it  was  confirmed 
through  visual  observation  that  the  SMMS  was  in  fact  rotating  about  its  axis. 
Computation  of  the  SMMS  rotation  speed  from  the  peak-to-peak  velocity  value 
compared  quite  well  with  the  rotation  speed  estimated  from  the  visual 
observations.  The  second  fact  is  that  both  the  TMR  radars  and  the  Ku-Band 
Radar  produced  identical  oscillatory  patterns.  Since  these  radars  operate  at 
widely  different  RF  (2  GHz  for  the  TMR  and  14  GHz  for  the  Ku-Band  Radar)  and 
the  signal  processing  and  waveforms  are  different,  the  observed  effect  must  be 
generated  by  some  mechanism  that  is  independent  of  the  radars.  This  leaves 
only  the  target  and  its  dynamics.  The  only  dynamics  that  would  produce  an 
oscillation  in  range  rate  is  a spinning  of  the  target. 
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TMR  RANGE  RATE  STANDARD  DEVIATION  DUE  TO  GDOP  FT/SEC 


TEST  DATE  10-5-85 


TIME  SECONDS 

MEAN*  0.109 


FIGURE  3.4-17  GDOP-INDUCED  RANGE  RATE  ERROR  STANDARD  DEVIATION 
PROFILE  FOR  HL246AE 
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A natural  question  to  ask  is:  does  the  spin  rate  computed  from 

the  oscillatory  range  rate  data  correspond  to  a reasonable  value  for  a 
free-flying  GEMsphere?  This  spin  rate  is  computed  from  the  following 
expression 

(3-6)  0 ■ (cyde/2n  radians) 

R 

where  & ■ Radius  of  the  GEMsphere 

AV  ■ 1/2  the  peak-to-peak  range  rate  oscillation 

Now,  using  R“3  feet  and  AV  ■ 5 feet/second,  it  is  found  that  the  balloon  is 
rotating  at  a speed  0.27  cycles/second  or  one  revolution  every  3.77  seconds. 
This  rotation  rate  certainly  seems  reasonable,  especially  if  there  is  any  air 
turbulence  to  generate  the  tumbling  or  spinning  effect. 

3. 4. 3. 2 Modified  Analysis  of  the  Difference  Range  Rate  Data 

If  one  accepts  the  conclusion  that  target  spin  produced  the 
oscillation  in  the  range  rate  data,  then  GEM  and  BAL  range  rate  data  must  be 
re-evaluated  using  the  following  technique.  First,  observe  that  both  TMR 
radar  and  Ku-Band  Radar  boresights  oscillated  back  and  forth  over  the  target 
with  a period  of  about  4 seconds.  This  period  was  identical  for  both  the 
Ku-Band  Radar  and  the  TMR  system  as  shown  in  Figure  3.4-18.  However,  a closer 
look  at  that  data  reveals  that  the  oscillations  are  out  of  phase  which  is  not 
surprising.  This  effect  was  denoted  as  "phase  skewing"  in  Table  3.4-1  and 
this  nomenclature  will  be  retained  in  the  sequel. 

Now,  to  analyze  the  true  radar  performance,  these  target  spinning 
effects  must  be  removed.  This  is  done  by  shifting  the  TMR  range  rate  profile 
until  the  oscillations  in  this  profile  align  with  the  Ku-Band  Radar  range  rate 
profile  oscillations.  The  aligned  profiles  are  then  differenced  and  the 
statistics  of  the  resulting  data  are  computed.  The  result  of  this  process  for 
the  BA17  profile  is  illustrated  in  Figure  3.4-3.  The  features  found  in  that 
profile  were  then  easily  explained. 
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4-18  ILLUSTRATION  OF  THE  PHASE  DIFFERENCE  BETWEEN  THE  KUBAND 
RADAR  RANGE  RATE  AND  THE  TMR  RANGE  RATE 
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3.4.4 


Low  SNR  Effects 


Up  to  this  point  in  the  discussion,  most  of  the  range  rate  data 
problems  have  been  reasonably  well  explained  by  the  error  sources  discussed  in 
the  previous  three  subsections.  However,  there  remain  some  test  runs  with 
apparent  range  rate  problems  that  need  to  be  addressed.  These  cases  are  part 
of  the  HL-  series  of  tests.  Table  3.4-4  summarizes  those  HL-  runs  that  have 
significant  problems  in  the  BEST  or  TMR  range  rate  difference  data.  These 
errors  cannot  be  legitimately  explained  by  target  acceleration,  rotation,  or 
GDOP.  What,  then,  can  be  the  source?  After  some  investigation,  the  following 
theory  was  developed.  Examination  of  the  HJ-  series  revealed  the  difference 
range  rate  statistics  were  much  better  than  the  HL.  But  both  the  HL-  and  HJ- 
series  used  a helicopter  as  a target  and  the  flights  were  at  about  the  same 
range  and  altitude.  What  was  different  between  the  flight  trajectories  of  the 
two  series?  The  HL  series  trajectory  was  a circular  arc  with  Ku-Band  Radar  at 
the  center,  while  the  HJ  series  trajectory  was  more  on  a line  directly  toward 
the  radar.  These  two  trajectories  are  illustrated  in  Figure  3.4-19.  This 
means  that  the  helicopter  was  broadside  to  the  radar  in  the  HL  series,  but  was 
nose-on  to  the  radar  in  the  HJ  series.  From  the  photograph  of  3.1-3,  one  can 
see  that  the  target  enhancement  devices  (two  Luneberg  lenses  mounted  on  the 
underside  of  the  helicopter  pointing,  forward)  would  help  in  the  nose-on  view, 
but  would  not  provide  much  assistance  in  the  broadside  view. 

It  was  learned  during  the  System  Design  Verification  Tests  (SDVT) 
of  the  Ku-Band  Radar  that  an  UH-1H  helicopter  had  a -5  to  5 dBSM  RCS  when 
viewed  from  broadside.  It  was  also  found  during  these  tests  that  an  SNR  at 
the  doppler  filter  output  (denoted  as  SNR^)  of  less  than  10  dB  caused 
visible  degradation  in  the  range  rate  performance  and  that  the  system  breaks 
track  for  SNR^  less  than  0 DB. 

Using  the  Information  cited  above  one  can  compute  the  SNR^  for 
the  HL  series  of  runs  from  the  expres'sion 

(3-7)  SNRjj  - 183.6  - 40  log  R (FT)  + 10  log  RCS  (M2)  + G 

where  R - Range  in  feet 

RCS  ■ Radar  cross  section  in  square  meters 
G ■ Gain  of  the  SNR  through  the  digital  processor 
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TABLE  3.4-4  SUMMARY  OF  THE  HL-SERIES  WITH  PROBLEMS 

IN  THE  BEST  OR  TMR  RANGE  RATE  DIFFERENCE  DATA 


PROFILE 

RANGE  RATE 
DIFFERENCE 
STD.  DEV.,  FT/SEC 

REFERENCE 

COMMENTS 

HL146AE 

0.44 

TMR 

Strong  RCS  here 

HL246AD 

0.48 

BEST 

Lens  lading  in  and  out 

HL246AE 

0.52 

BEST 

Lens  lading  in  and  out 

HL346AD 

0.66 

BEST 

Large  gaps  where 

target  fades 

HL346AE 

0.51 

BEST 

Lens  fading  in  and  out 

HL346AF 

0.56 

TMR 

No  RSS  here  - RCS 

value? 

HL446AC 

0.41 

BEST 

RCS  between  0 and 

lOdBSM 

HL446AD 

0.54 

BEST 

Large  gaps  where 

target  f^des 

HL446AE 

0.51 

TMR 

Target  0 dBSM 

HL546AC 

1.34 

TMR 

No  RSS  here  - very 

small  RCS 

HL546AE 

0.67 

BEST 

Large  gaps  where 

target  fades 

HL546AF 

0.54 

TMR 

Lens  fading  in  and  out 

HL546AG 

0.46 

TMR 

Strong  RCS  here 
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ORIENTATION  OF  HELICOPTER 


s? 

KUBANO  RADAR 


FIGURE  3.4-19  FLIGHT  GEOMETRIES  FOR  HJ  AND  HL  SERIES  OF  EXPERIMENTS  SHOWING 
ORIENTATION  OF  LUNEBERG  LENS  WITH  RESPECT  TO  KUBAND  RADAR 
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Assuming  a target  range  of  47000  feet  and  a gain  of  32,  equation  3-7  reduces  to 
(3-8)  SNRd  - 11.76  + RCS  (dBSM) 

Now,  if  the  broadside  RCS  of  a UH-1H  helicopter  fluctuates  between  -5  and  5 
dBSM,  then  the  SNR^  fluctuates  between  6.8  dB  and  16.8  dB  From  this 
calculation  and  the  system  test  observations  provided  above,  one  can  see  that 
it  is  possible  for  the  range  rate  estimate  of  the  Ku-Band  Radar  to  be 
corrupted  by  internal  noise  due  to  a weak  return  signal. 

As  further  evidence  to  corroborate  the  effects  of  a weak  target 
return  signal  on  the  range  rate  difference  data  performance,  Figure  3.4-20 
compares  the  target  RCS  profile  against  the  range  rate  difference  profile. 
One  can  see  that  there  is  a high  correlation  between  the  RCS  strength  and  the 
range  rate  random  error  behavior.  It  is  conjectured  that  the  gaps  in  RCS  are 
due  to  the  lens  moving  out  of  view  of  the  radar. 

3.5  ROLL  AND  PITCH  ANGLE  DATA  ANALYSIS 

The  first  pass  through  the  roll  and  pitch  angle  data  in  the 
analysis  procedure  is  summarized  in  Table  3.5-1.  The  first  thing  that  is 
apparent  in  this  data  is  that  the  number  of  failing  cases  is  lopsided  toward 
the  BEST/TMR  cases,  and  that  there  are  virtually  no  CINE  failures.  Based  on 
the  analysis  of  the  range  and  range  rate  data  presented  in  the  previous 
sections,  one  immediately  suspects  that  GDOP— induced  error  plays  a major  role 
in  most  of  these  failures.  To  support  this  conjecture,  most  of  the  failures 
would  have  to  be  in  those  flights  at  low  altitudes  and  very  nearly  over  the 
peart,  site  brass  cap.  This  would  principally  include  the  following  family  of 
profiles:  SAT,  BAL,  GEM,  H30SK  and,  to  a lesser  extent,  HEL30.  Table  3.5-2 
provides  a breakdown  of  the  failures  by  flight  series.  This  data  shows  that 
the  majority  of  the  angle  specification  failures  occur  for  the  GEM  through  the 
H30SK  series  of  flights.  The  failures  listed  for  the  HL-  and  HJ-  series  of 
flights  will  be  shown  to  be  caused  by  other  error  sources  as  well;  namely,  (1) 
angle  acceleration  and  (2)  weak  target  return  signal  strength. 
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TEST  DflTR  PROFILE  HL346A0 

TEST  DRTE  10.  1.85.  REVISION  10 


FIGURE  3.4-20  COMPARISON  OF  THE  RADAR  CROSS  SECTION  PROFILE  AND  THE 
RANGE  RATE  DIFFERENCE  PROFILE  FOR  HL346AD 
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TABLE  3.5-1  SUMMARY  OF  INITIAL  ROLL  AND  PITCH 
ANGLE  PERFORMANCE  ASSESSMENT 


BEST/TMR 


CINE 


PARAMETER 


SPEC 


NUMBER 

FAILING 


PERCENT 


NUMBER 

FAILING 


T 


COMBINED 


PERCENT 


TOTAL 

PERCENT 


Roll  Angle 
Mean 

t 

f 

f 

» 

0.667  deg  ' 

t 

5 

t 

' 8.0 
» 

t 

t 

t 

1 

1 

f 

t 

1.6 

» 

• 9.6 

I 

STD  DEV 

» 

t 

0.153  deg  • 
» 

23 

• 37.0 

t 

t 

1 

4 

f 

» 

6.4 

’ 43.4 

t 

Pitch  Angle 
Mean 

f 

1 

f 

1 

0.667  deg  ’ 

f 

8 

t 

’ 12.9 

I 

t 

« 

f 

1 

f 

t 

« 

1.6 

t 

• 14.5 

» 

STD  DEV 

f 

» 

0.153  deg  • 

t 

11 

’ 17.7 

f 

t 

t 

1 

♦ 

t 

1.6 

• 19.3 

t 

*The  data  In  this  table  is  based  on  a combined  total  of  62  sets  of  data. 


TABLE  3.5-2  CATEGORIZATION  OF  ROLL  AND  PITCH  ANGLE 
FAILURES  BY  FLIGHT  SERIES 


1 

» 

» 

• 

* NO.  OF  PITCH  FAILURES 

i 

1 

NO.  OF  ROLL  FAILURES' 

» 

“ 

t 

t 

f 

SERIES 

NUMBER  IN 
SERIES 

« 

» 

' MEAN 

t 

STD  DEV 

MEAN 

1 f 

| t 

' STD  DEV  ' 

i t 

V 

t 

f 

GEM 

2 

1 

’ 0 
1 

2 

0 

1 f 

’ 2 
« 1 

t 

f 

BAL 

5 

’ 3 

« 

2 

1 

. 4 

f f 

t 

f 

SAT 

4 

• 2 

3 

1 

, 4 

« 1 

1 

f 

H30SK 

5 

’ 2 
1 

2 

1 

• 4 

t t 

* 

f 

HEL30 

4 

* 0 
» 

1 

0 

' 3 

y 1 

1 

1 

HL146  TO  546 

13 

’ 1 
1 

1 

2 

' 4 

y 1 

t 

t 

HJ146 

3 

' 0 
1 

0 

0 

. 2 
y 1 
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The  second  observation  about  the  data  of  Tables  3.5-1  and  3.5-2 
is  that  the  roll  angle  standard  deviation  failures  outnumber  the  pitch  angle 
standard  deviation  failures  two  to  one.  This  also  is  suspected  to  be  related 
to  6D0P.  A quantitative  analysis  is  being  done  concurrently  with  the  writing 
of  this  report  to  confirm  this  conjecture. 

3.5.1  Description  of  Angle  Error  Sources 

Before  launching  into  a description  of  the  roll  angle  and  pitch 
angle  analysis,  it  is  worthwhile  to  list  some  of  the  sources  that  induce  error 
in  the  angle  data.  These  sources  are: 

o GDOP 

o Coordinate  Transformation  Inaccuracy 

o Angle  Acceleration 

o Weak  Target  Return  Signal  (low  SNR) 

In  the  present  set  of  tests,  GDOP  is  the  primary  source  causing 
failure.  The  other  three  sources  are  equally  weighted  and  are  a distant 
second.  A short  description  of  each  of  these  errors  sources  follows. 

GDOP.  As  discussed  in  the  previous  subsections,  when  the  target 
is  at  low  altitude  over  the  PEARL  site  brass  cap,  the  TMR  sensor  system 
develops  a very  poor  estimate  of  the  target's  brass  cap  Z-coordinate  and 
Z-velocity.  This  translates  into  poor  range  and  range  rate  when  the  target  is 
over  the  brass  cap.  Also  observe  that  this  same  poor  estimate  of  the  target 
position  is  folded  into  the  calculation  of  the  target's  roll  and  pitch  angle. 
But,  because  this  calculation  is  a nonlinear  transformation,  it  is  hard  to 
guess  the  effects  of  the  brass  cap  Z-component  errors  on  roll  and  pitch.  For 
reference,  the  following  expression  for  roll  and  pitch  are  provided. 

(3-9)  Roll  Angle  - ARCTAN  (Y_/Z_) 

B "5  2 1/9 

Pitch  Angle  - ARCTAN  (XB/(Yg+z£)-L/‘6) 

where  (Xg,  Yg,  Zg)  is  the  target  position  in  the  shuttle  body  coordinate 
system.  The  position  in  body  coordinates  is  obtained  from  the  position  in 

brass  cap  coordinates  through  the  transformation: 
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(3-10) 


^XB’  YB*  ZB^  " TBP  ^XP*  YP*  V 


where  T__  is  the  transformation  matrix  and  (Xp,  Yp,  Zp)  is  the  target 
BP 

position  in  PEARL  site  brass  cap  coordinates.  The  elements  of  Tgp  are  fixed 
by  the  orientation  of  the  radar  relative  to  the  brass  cap  at  WSMR.  Zp  is  the 
brass  cap  component  of  importance  in  this  analysis.  For  the  errors  along  this 
axis  are  large  due  to  the  geometry  of  the  TMR  radars. 

Coordinate  Transformation  Inaccuracies.  Prior  to  the  discovery 
of  GDOP  as  the  principal  error  source  in  the  angle  data  analysis , a 
significant  amount  of  time  was  spent  analyzing  the  effects  of  errors  in  the 
coordinate  transformation,  T , on  the  angle  difference  data.  These  errors 
take  the  form  of  Inaccurate  estimate  of  the  four  angles  that  compose  this 
transformation:  (1)  the  lower  azimuth  angle  rotation  about  the  brass  cap 
Z-axis,  (2)  the  elevation  angle  rotation  about  the  new  y-axis,  (3)  the  upper 
azimuth  angle  rotation  about  the  new  Z-axis,  and  (4)  another  rotation  about  Z 
which  transfers  the  data  from  the  radar  frame  (Reference  9)  to  the  shuttle 
body  coordinate  system.  Nominal  values  for  these  angles  are  30  degrees  for 
the  lower  azimuth,  30  degrees  for  elevation,  0 degrees  for  upper  azimuth,  and 
24.5  degrees  for  the  final  rotation.  If  any  of  these  measured  angles  are  in 
error,  this  produces  a misalignment  between  the  desired  and  the  actual 
coordinate  system.  Appendix  E provides  a detailed  analysis  of  the  effect  of 
misalignment  on  the  computed  roll  angles. 

The  results  of  the  analysis  was  that  small  errors  in  any  of  these 
angles  can  produce  significant  bias  in  the  angle  difference  data.  Consider  an 
example.  The  value  of  the  lower  azimuth  angle  was  changed  from  30  to  30.5 
degrees  and  the  angle  difference  data  for  HEL30AF  was  recomputed.  Figure 
3.5-1  compares  the  original  roll  angle  difference  data  against  the  modified 
difference  data.  Clearly,  the  bias  has  been  reduced  in  the  modified  data  case. 

The  detailed  analysis  of  angle  transformation  error  effects  also 
showed  that  the  odd-shaped  trends  found  in  the  angle  difference  data  could  not 
be  explained  by  this  error  source  alone.  Hence,  other  sources  were  pursued. 
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FIGURE  3.5-1 


ILLUSTRATION  OF  THE  EFFECT  OF  A CHANGE  IN 
LOWER  AZIMUTH  ANGLE  ON  THE  ROLL  ANGLE 
DIFFERENCE  DATA  FOR  HEL30AF 
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Angle  Acceleration.  The  present  configuration  of  the  angle 
tracking  loop  can  produce  an  asymptotic  bias  in  angle  in  the  presence  of  angle 

acceleration.  This  loop  can  be  modelled  as  a second  order  loop  with  the 

following  transfer  function: 

(3-11)  0(s)/  0(s)  s ( a?  + wTs)/(s2  + JjTs  + to2) 

where  T “ 2/oin  for  the  design  of  this  particular  system.  If  the  target  is 
n 2 

accelerated  at  rate,  a,  (which  means  Q ■ (a/2)t  ),  then  using  the  final 

value  therein  from  control  theory  one  can  compute  the  asymptotic  bias  of  the 
loop  from  the  relation: 

(3-12)  Angle  Bias  ■ a/ 

where  ojn  is  the  natural  radian  frequency  of  the  loop  and  a is  the  angle 

n 2 

acceleration.  Consider  an  example.  Let  ”0.754  Hz  and  a “ 0.04  deg. /sec  , 

then  the  asymptotic  angle  bias  is  0.07  degrees. 


Weak  Target  Return  Signal.  This  error  source  is  due  to  a low  SNR  at  the 
doppler  filter  output  caused  by  a weak  target  return  signal.  This  just  means 
that  the  thermal  noise  from  the  receiver  is  beginning  to  compete  with  the 
desired  signal.  This  will  corrupt  the  angle  discriminant  which,  in  turn, 
corrupts  the  performance  of  the  angle  tracking  loop.  Unfortunately,  an  SNR^ 
threshold  where  the  angle  tracking  begins  to  degrade  rapidly  is  not  known. 
However,  it  is  guessed  that  SNR^  less  than  7-8  dB  will  induce  significant 
degradation  in  angle  tracking  performance.  What  does  this  mean  in  terms  of  a 
target  RCS?  Using  equation  3-7  and  a range  of  45000  feet,  an  SNR^  less  than 
8 dB  implies  an  RCS  of  less  than  -4.5  dBSM.  RCS  and  ranges  of  these  values 
are  found  in  some  of  the  HL-  and  HJ-  series.  Hence,  the  cause  of  poor  angle 
tracking  performance  in  these  cases  is  suspected  to  be  weak  target  signal 


returns . 
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Discussion  of  SORTE  Angle  Difference  Data  Problems 


BAL  Series.  According  to  the  flight  log  given  in  Appendix  G only 
one  radar  (R394)  was  operating  during  the  BAL  series  of  tests.  Hence,  there 
is  no  true  TMR  solution  available  and  therefore  TMR  GDOP-induced  angle  errors 
cannot  exist  for  this  case.  The  reason  for  the  errors  in  these  cases  are  not 
understood  at  this  time. 

Figure  3.5-2  gives  the  difference  pitch  angle  profiles  for  BAL6 
and  BAL7.  Observe  that  the  error  is  very  large  early  in  the  profile  (or  low 
altitude)  and  tapers  off  rapidly  as  the  gemspheres  gain  altitude.  This  shape 
profile  looks  suspiciously  like  a GDOP-induced  error.  Thus,  it  is  not  clear 
that  only  one  TMR  radar  was  working  in  this  case.  This  problem  probably  can 
be  resolved  through  the  official  WSMR  test  logs. 

GEM  Series . Figure  3.5-3  gives  the  TMR  pitch  and  roll  angle 
difference  data  for  GEM2  and  Figure  3.5-4  gives  a similar  plot  for  GEM3. 
These  difference  profiles  have  the  same  shape  as  the  corresponding  range  and 
range  rate  profiles.  It  is  conjectured  that  GDOP  is  the  dominant  error  source 
early  in  the  flight  (through  the  first  150  seconds).  In  the  latter  portion  of 
the  flight,  both  roll  and  pitch  level  off  to  a constant  bias  term.  The  source 
of  this  bias  error  is  probably  due  to  error  in  the  coordinate  system 
transformation  as  discussed  in  Section  3.5.1,  The  angle  accelerations 
involved  are  at  least  an  order  of  magnitude  too  small  to  produce  the  bias 
indicated  in  the  figures. 

The  initial  pitch  and  roll  error  for  GEM3  is  slightly  worse  than 
the  corresponding  values  for  GEM2.  In  addition,  the  GEM3  profile  starts  at  an 
altitude  of  approximately  1600  feet,  while  GEM2's  initial  altitude  is  about 
2000  feet.  These  facts  are  consistent  with  the  earlier  description  of 
GDOP-induced  error  as  a function  of  altitude. 

Concurrent  with  the  writing  of  this  report,  an  effort  is  under 
way  to  quantitatively  verify  the  theory  described  above. 
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FIGURE  3.5-2  ILLUSTRATION  OF  THE  PITCH  ANGLE  DIFFERENCE 
DATA  FOR  THE  BAL6  AND  BAL7  PROFILES 
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FOR  THE  GEM2  PROFILE 
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H30SK  Series.  Of  this  series  of  tests,  H30SKAI  gave  the  best 
results,  i.e.  the  fewest  specification  failures.  The  major  difference  between 
this  profile  and  the  others  is  that  the  target  flew  to  a final  range  of  3300 
feet,  rather  than  2000  feet.  Assumption  of  6D0P  as  the  primary  error  source 
would  fit  this  failure  pattern  quite  well. 

Of  the  remaining  flights  in  this  series,  H30SKAH  gave  the  worst 
results  in  roll  and  pitch  angle  difference  data.  Since  the  flight  paths  were 
quite  similar,  it  is  hard  to  decide  just  what  the  difference  might  be.  Close 
examination  reveals  that  the  6D0P  error,  which  is  considered  the  principal 
source  here,  is  quite  sensitive  to  the  ground  track  at  these  altitudes  and 
ranges.  In  particular,  Figure  3.5-5  shows  that  the  pitch  angle  difference 
data  and  range  difference  data  are  both  highly  correlated  with  the  T-  Brass 
cap  coordinate.  This  lends  support  to  the  idea  that  errors  are  heavily 
position  dependent. 

Thus  far,  the  H30SK  series  is  the  first  series  discussed  where 
the  CINE  data  is  available  as  a reference.  There  are  two  observations  we  can 
make  about  this  data  and  its  relation  to  the  TMR  data.  Firstly,  the  CINE  roll 
and  pitch  angle  differences  for  H30SKAH  flight  are  well-behaved  as  shown  in 
Figure  3.5-6.  This  is  in  direct  contrast  to  the  BEST  data  for  the  same 
flight.  But  remember  the  arguments  from  a previous  section.  While  GDOP  is  a 
major  problem  for  the  TMR  for  targets  at  low  altitude,  directly  over  the  brass 
cap,  it  is  not  a problem  for  the  CINE  sensor  system.  Hence,  the  data  of 
Figure  3.5-6  does  not  conflict  with  the  previously  discussed  data,  but  instead 
supports  the  conclusions  of  that  discussion. 

The  second  observation  concerns  the  mean  of  the  CINE  data.  The 
data  of  Figure  3.5-6  shows  that  there  is  a significant  bias  in  the  pitch  angle 
(0.5  - 0.6  degrees)  and  a bias  of  approximately  0.2  - 0.3  degrees  in  range. 
These  biases  are  consistent  for  all  of  the  H30SK  flights,  including  H30SKAI. 
The  principal  source  of  this  error  is  believed  to  be  errors  in  the  angles  of 
the  brass  cap-to-shuttle  body  coordinate  transformation  matrix..  This  data 
lends  support  to  the  GEM  data  analysis  as  well.  The  GEM  angle  difference  data 
(see  Figures  3.4-3  and  3.4-4)  decayed  to  a fixed  bias  level.  The  H30SK  CINE 
supports  the  argument  that  this  bias  is  the  result  of  transformation  error  and 
not  a residue  of  GDOP. 
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FIGURE  3.5-5  ILLUSTRATION  OF  HIGH  CORRELATION  BETWEEN  T-BRASS 
CAP  COORDINATE  AND  THE  ANGLE  DIFFERENCE  DATA 


3-88 


3-89 


HEL30  Series . Of  the  four  flights  in  this  series,  HEL30AJ  has 
the  worst  performance.  The  roll  and  pitch  angle  difference  data  provided  in 
Figure  3.5-7  shows  that  while  GDOP  does  affect  the  error  in  the  first  300 
seconds,  the  error  rapidly  increases  in  the  last  100  seconds.  As  noted  in 
previous  discussions,  GDOP  not  only  increases  with  decreasing  altitude  but  is 
very  sensitive  to  the  X— Y ground  track.  Figure  3.5—8  shows  the  X— Y ground 
track.  The  last  100  seconds  of  this  profile  correlates  well  with  the  roll  and 
pitch  data  because  it  shows  the  target  flying  directly  toward  the  brass  cap. 

Since  all  of  the  HEL30  flight  profiles  were  quite  similar,  one 
wonders  why  the  errors  vary  significantly  from  flight-to-f light . A closer 

examination  of  the  data  revealed  that  in  both  HEL30AJ  and  HEL30AJ  the  final 
altitude  was  the  lowest  (3200*  to  4000')  and  the  errors  in  these  two  cases 
were  the  worst.  On  the  other  hand,  HEL30AF  and  HEL30AG  both  had  a final 
altitude  of  5000  feet  and  both  had  significantly  better  angle  difference  data 
performance. 


At  this  point  it  would  be  best  to  have  quantitative  calculations 
to  support  these  conclusions.  Unfortunately,  this  work  is  being  done  in 
parallel  with  the  final  report. 

Finally,  to  add  further  support  to  the  conclusion  that  the  error 
shown  in  Figure  3.5-7  is  a function  of  the  TMR  radar.  Figure  3.5-9  gives  the 
CINE  pitch  angle  difference  data  for  HEL30AJ.  This  data  clearly  shows  there 
is  not  a problem  with  the  Ku-Band  roll  and  pitch  angle  estimates. 

HL-  and  HJ-  Series.  Table  3.5-3  summarizes  the  cases  that  failed 
in  the  HL-  and  HJ-  series.  An  analysis  of  the  individual  cases  generated  the 
following  observations. 

The  roll  angle  difference  data  of  HJ146AC  showed  a high 
correlation  with  the  -Z  (or  altitude)  profile  as  shown  in  Figure  3.5-10. 
Since  the  CINE  result  showed  no  problem  in  roll  angle,  GDOP  is  suspected. 
Although  this  is  somewhat  surprising  at  this  range.  Also  observe  that  a weak 
target  return  signal  was  not  a problem  in  this  case  as  the  random  component 
had  peak-to-peak  fluctuations  of  0.1  degrees.  (The  data  set  for  HJ146AE  was 
missing.) 
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FIGURE  3.5-9  CINE  PITCH  ANGLE  DIFFERENCE  DATA  TO  BE 


COMPARED  WITH  FIGURE  3.5-7 
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TABLE  3.5-3  SUMMARY  OF  ANGLE  DIFFERENCE  DATA  FAILURES 
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The  problem  in  the  HL346AE  data  appears  to  be  related  to  angle 
acceleration.  The  roll  angle  difference  data  of  Figure  3.5-11  shows  a 
significant  increase  in  error  around  200  seconds.  The  size  of  the  change  in 
bias  would  indicate  an  angle  acceleration  (or  deceleration)  with  a magnitude 
of  about  0.01  deg/sec  . The  CINE  roll  angle  difference  data  shows  the  same 
major  feature. 

The  trend  in  the  HL446AC  BEST  roll  angle  difference  data  is 
apparently  caused  by  GDOP,  since  it  appears  to  be  highly  correlated  with  the 
altitude  data  as  shown  in  Figure  3.5-12.  If  the  problems  were  due  to 
coordinate  transformation,  then  the  trends  would  have  been  found  in  the  CINE 
data.  Also  a weak  target  return  signal  strength  is  not  a problem  as  indicated 
by  the  peak-to-peak  random  fluctuations. 

The  problem  with  the  HL446AE  appears  to  be  a glitch  of  about  2 
degrees  between  200  and  300  seconds  into  the  flight.  This  glitch  shows  up  in 
roll  and  pitch  in  both  the  CINE  and  the  TMR  data.  The  conjecture  in  this  case 
is  angle  acceleration.  The  magnitude  of  the  acceleration  is  on  the  order  0.04 
deg/sec.  Weak  target  return  signal  strength  does  not  appear  to  be  a 
problem  in  this  case. 
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FIGURE  3.5-11  BEST  AND  CINE  ROLL  ANGLE  DIFFERENCE  DATA. 


THE  NEGATIVE-GOING  GLITCH  IS  DUE  TO  ANGLE 


ACCELERATION 


3-95 


TEST  DfiTfi  PROFILE  HL446RC 
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FIGURE  3.5-12  ILLUSTRATION  OF  CORRELATION  BETWEEN 

ROLL  ANGLE  DIFFERENCE  DATA  AND  THE  BEST 
ALTITUDE  PROFILE 
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The  HL546AC  roll  and  pitch  angle  difference  data  are  definitely 
corrupted  by  GDOP  due  to  the  target  being  at  low  altitude.  Figure  3.5-13 
compares  the  roll  angle  difference  data  with  the  altitude  profile.  High 
correlation  between  these  two  profiles  is  evident.  Based  on  this  data  and  the 
data  from  HJ146AC  and  HL446AC,  GDOP  appears  to  become  a major  factor  for 
altitudes  less  than  5000  feet. 

3.5. 2.1  Explanation  of  GDOP-Induced  Error  in  Angle  at  Long  Range 

When  the  analysis  of  the  data  was  first  started,  it  was  thought 
that  angle  data  failures  in  the  long  range  cases,  i.e.  the  HL-  and  HJ-  series, 
would  be  for  reasons  other  than  GDOP  just  as  in  the  range  and  range  rate  data 
analysis.  However,  the  situation  in  this  case  is  very  different.  An 
explanation  of  the  difference  follows. 

In  both  the  HJ-  and  HL-  flight  configurations,  the  roll  and  pitch 
angle  calculations  include  the  Z-component  (or  altitude  component)  of  target 
position  in  the  brass  cap  coordinate  system.  As  explained  in  an  earlier 
section,  any  time  the  target  is  very  nearly  in  the  plane  containing  the  TMR 
radars,  the  error  in  the  out-of-plane  coordinate  (or  the  Z-component)  is 
extremely  large.  This  is  because  the  TMR  radars  measure  range,  so  they  can 
only  achieve  accurate  X-Y  target  position  components  when  the  target  is  near 
the  plane  of  radars. 

Now,  the  CINEs  do  not  have  a problem  measuring  the  Z-component  in 
the  HJ-  and  HL-  case  for  two  reasons.  Firstly,  the  five  CINEs  were  chosen  to 
surround  the  target  flight  path  as  shown  in  Figure  3.1-5,  so  they  will  not 
have  trouble  with  a long  range  target.  Secondly,  they  do  not  have  trouble 
with  measuring  a target's  Z-component  when  the  target  is  at  low  altitude  near 
the  plane  of  the  CINEs. 

From  the  argument  of  the  previous  paragraph,  it  can  be  concluded 
that  the  CINE  Z-component  (or  altitude)  data  profile  can  be  used  as  a 
reference  to  determine  the  error  in  the  BEST  Z-component  (or  altitude) 
profile.  Figure  3.5-14  compares  the  CINE  altitude  profile  to  the  BEST 
altitude  profile  for  the  HJ146AC  flight.  This  comparison  clearly  shows  the 
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FIGURE  3.5-13  ILLUSTRATION  OF  CORRELATION  BETWEEN  ROLL 

ANGLE  DIFFERENCE  DATA  AND  BEST  ALTITUDE  PROFILE 
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FIGURE  3.5-14  A COMPARISON  OF  THE  CINE  ALTITUDE  AND 


THE  BEST  ALTITUDE  FOR  THE  HJ146AC  PROFILE 
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BEST  altitude  errors  of  300  feet  or  more,  especially  at  the  lower  altitudes. 
Now,  how  does  this  affect  the  roll  and  pitch  angle  accuracy?  This  is  hard  to 
answer  for  the  present  flight  geometry.  So  let's  simplify  the  situation. 
Assume  that  the  pitch  angle  is  zero  and  that  the  error  is  entirely  in  the  roll 
angle.  This  situation  is  depicted  in  Figure  3.5-15. 


ROLL  ANGLE 
ERROR 


FIGURE  3.5-15  ILLUSTRATION  OF  EFFECT  OF  ALTITUDE  ERROR 
ON  ROLL  ANGLE  ESTIMATE 


The  error  in  roll  angle  can  be  calculated  as  follows: 

Roll  Angle  Error  * Z cos(E)/R 

where  Z ■ Altitude  Error  ■ 500  feet 

E ■ Elevation  Angle  * 6.3  degrees 
R ■ Range  ■ 45,000  feet 

Using  the  above  values  for  Z,  E,  and  R,  the  roll  angle  error  is 
0.63  degrees.  This  magnitude  of  the  error  fits  with  the  data  presented  for 
the  HL-  and  HJ-  series  tests. 


3-100 


3.6 


ILOS  ROLL  AND  PITCH  ANGLE  DATA  ANALYSIS 


Table  3.6-1  summarizes  the  results  of  the  preliminary  analysis  of 
the  ILOS  roll  and  pitch  range  difference  data.  As  in  the  range  rate 
difference  case,  the  number  of  failures  in  angle  rate  was  quite  alarming. 
Furthermore,  it  contradicts  the  flight  rendezvous  data.  These  data  indicated 
a problem  with  the  random  component  Inside  1.9  nautical  miles  or  in  the  widest 
tracker  bandwidth  case.  For  ranges  greater  than  1.9  nautical  miles,  the  angle 
rate  random  component  was  well  within  specification. 

TABLE  3.6-1  SUMMARY  OF  INITIAL  ILOS  ROLL  AND  PITCH  RATE 
PERFORMANCE  ASSESSMENT 
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CINE 

j — 
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PERCENT 
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33 
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*There  are  a total  of  62  difference  data  sets. 


A second  pass  through  the  data  showed  that  the  only  two  cases 
passing  the  mean  specification  were  SAT1  and  SAT2.  As  it  turns  out,  these  two 
tests  were  the  only  two  tests  where  the  target  remained  stationary  with 
respect  to  angular  motion  for  the  entire  test.  So,  the  preliminary  indication 
was  that  there  was  something  wrong  in  those  cases  with  angular  motion,  which 
does  not  occur  in  the  cases  with  no  angular  motion.  An  extensive  analysis  was 
undertaken  to  determine  the  nature  of  this  problem.  Results  of  that  analysis 
are  described  below. 
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3.6.1 


Preliminary  Analysis  Results 


The  analysis  was  started  by  looking  at  the  angle  rate  difference 
data  sets.  These  looked  awful!  In  some  cases,  the  difference  data  sets 
looked  like  scaled  down  copies  of  the  Ku  MDM  angle  rate  profiles.  It  was 
clear  that  these  difference  data  e nts  would  be  of  little  value  in  resolving 
the  problem.  The  real  break  in  this  case  came  when  it  was  decided  to  compare 
the  Ku  MDM  angle  rate  profile  with  the  corresponding  Ku  MDM  angle  profile. 
This  comparison  of  the  pitch  and  pitch  rate  for  H30SKAF  is  provided  in  Figure 
3.6-1.  A similar  comparison  for  roll  and  roll  rate  is  given  in  Figure  3.6-2. 
Now,  since  the  earth's  rotation  rate  is  quite  small,  the  ILOS  angle  rate 
integrated  over  a fixed  interval  should  be  equal  to  the  total  angle  change 
over  that  same  interval.  Let's  apply  this  rule  to  the  data  of  Figures  3.6-1 
and  3.6-2.  Consider  the  time  interval  from  40  to  60  seconds.  The  average 
value  of  the  roll  rate  is  about  -0.5  degrees /second  and  the  average  value  of 
the  pitch  rate  is  about  -0.35  degrees/seconds.  Integrating  over  20  seconds 
gives  a total  change  of  -10  degrees  in  roll  and  —7  degrees  in  pitch.  Now, 
examining  Figures  3.6-1  and  3.6-2  to  determine  the  total  angle  change  from  the 
roll  and  pitch  data,  it  is  seen  that  the  roll  angle  changes  -5  degrees  and  the 
pitch  angle  changes  about  —3.5  degrees  over  the  same  20  second  interval.  This 
tells  us  that  either  the  angle  or  the  angle  rate  is  off  by  a factor  of  2. 
But,  since  the  angle  data  analysis  showed  no  such  problem,  it  can  be  assumed 
that  the  scale  factor  problem  is  in  the  angle  rate  data. 

At  this  point,  several  questions  come  to  mind.  What  is  the  value 
of  the  scale  factor?  Is  it  a constant?  What  is  the  source  of  the  error?  The 
answer  to  the  first  two  questions  were  easy.  Additional  analysis  of  the  same 
data  showed  that  scale  factor  was  about  2 for  the  entire  interval.  Analysis 
of  other  data  sets  showed  the  same  factor.  The  only  exceptions  to  this  rule 
were  the  tests  conducted  after  the  k^  gain  in  the  servo  was  increased  by  a 
factor  of  4.  In  that  case,  the  scale  factor  was  0.5.  (This  problem  is 
addressed  at  the  end  of  this  section.) 
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FIGURE  3.6-1  A COMPARISON  OF  THE  KU  MDM  PITCH  ANGLE 


AND  ILOS  PITCH  RATE  PROFILES  FOR  H30SKAF 
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FIGURE  3.6-2  A COMPARISON  OF  THE  KU  MDM  ROLL  ANGLE 

AND  ILOS  ROLL  RATE  PROFILES  FOR  H30SKAF 
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What  is  the  source  of  this  scale  factor  error?  There  are  two 
places  where  this  scale  factor  can  corrupt  the  angle  rate:  (1)  in  the  Ku-Band 

Radar  itself,  after  the  azimuth  and  elevation  angle  rates  are  converted  to 
roll  and  pitch  angle  rates  in  the  EA-1  microprocessor,  and  (2)  in  the  data 
processing  sequence  developed  for  the  SORTE  program.  In  either  case,  a factor 
of  2 seems  quite  reasonable  since  that  represents  a slip  of  a single  bit  in 
the  binary  representation  of  the  angle  rate  value.  At  the  writing  of  this 
final  report,  both  possibilities  are  being  pursued. 

Regardless  of  what  the  error  source  turns  out  to  be,  the  Ku  MDM 
‘angle  rate  data  will  be  scaled  down  by  a factor  of  2.  The  scaled  data  will 
then  be  analyzed  for  other  problems  that  were  masked  by  the  scale  factor 
problem. 

3.6.2  Description  of  Angle  Rate  Error  Sources 

There  are  several  sources  that  can  corrupt  the  angle  rate  data 
besides  the  scale  factor  problem.  Along  these  are: 

o GDOP 

o Angle  Acceleration 

o Weak  Target  Return  Signals 

A discussion  of  each  of  these  is  provided  below. 

GDOP.  This  error  source  will  have  the  same  affect  on  the  angle 
rate  as  on  the  angle.  However,  we  are  not  interested  in  wrestling  with  GDOP 
problems  in  the  present  analysis.  Therefore,  only  the  CINE  reference  data 
will  be  used  in  this  analysis,  since  this  system  as  configured  is  immune  to 
GDOP. 

Angle  Acceleration.  As  will  be  demonstrated  in  the  next  section, 
this  was  the  primary  error  source  in  the  data  examined,  once  GDOP  was 
removed.  The  effect  of  angle  acceleration  on  the  ILOS  angle  rate  tracking 
loop  is  identical  to  the  acceleration  effects  on  the  angle  tracking  loop 
'described  in  equations  3-11  and  3-12.  That  is,  prolonged  angle  acceleration 
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produces  an  asymptotic  bias  in  the  ILOS  angle  rate  estimate.  This  can  be 
ascertained  from  the  following  arguments. 

Figure  3.6-3  illustrates  the  analog  second  order  loop  which  is 
used  to  represent  the  ILOS  angle  rate  tracking  loop  in  the  following 
analysis.  The  transfer  function  for  this  loop  can  be  expressed  as 

(3-13)  6(a)/  9(b)  - s w 2/(s2  + w 2Ts  + w 2) 

u n u 


Since  the  loop  is  critically  damped,  then  T * 2/wq  where  wq  is  the  natural 
frequency  of  the  loop,  and  T is  the  loop  settling  time.  To  determine  the 
response  to  angle  acceleration  we  set 


(3-14) 

B(  t) 

- At2/ 2 

(angle  position) 

or 

Bit) 

- At 

(angle  rate) 

or 

/—N 

ct 

- A 

(angle  acceleration) 

where  A is 

the 

angle  acceleration  and  the  6 notation  represents  the 

derivative  of 

the 

variable 

with  respect  to  time*  The  Laplace  transform  of 

this  quantity  is 

(3-15) 

8(b) 

- A/s3 

Using  equations  3-13  and  3-15,  the  Laplace  domain  representation  of  the 
tracking  loop  response  is 

(3-16)  9( a)  - (A/s2)(w  2/(s2+2w  s+w  2)) 

n n n 

The  inverse  Laplace  transform  of  3-16  is 

(3-17)  8( t)  - At(l+exp(-wnt)  - ( 2A/wn )( 1-exp (-*nt)) 
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FIGURE  3.6-3  SECOND  ORDER  ANALOG  MODEL  OF  THE  ANGLE 
AND  ANGLE  RATE  TRACKING  LOOPS 
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CD  > 


To  obtain  the  error  in  the  angle  rate  estimate,  the  true  angle  rate 
subtracted  from  equation  3-17.  This  gives 


'At  is 


(3-18)  A0(t)  = -At  exp(-wnt)  + (2A/wn)(l-exp(-wnt) ) 


The  asymptotic  value  is  obtained  by  allowing  t to  approach  infinity,  which 
gives 

(3-19)  A0  “ 2A/wm 

n 

Now,  what  sort  of  angle  rate  error  does  this  expression  produce 
for  the  Ku-Band  angle  rate  tracking  loop  parameters?  In  the  widest  bandwidth 
case,  w *277  (0.12).  If  we  consider  an  angle  acceleration  of  0.04  degrees  per 
sec  , this  gives  an  angle  rate  bias  of  0.11  degrees /sec.  This  is  a 
significant  amount  of  bias.  For  reference,  Figure  3.6-4  shows  the  response  of 
the  angle  and  angle  rate  loops  in  the  presence  of  a 0.04  deg/sec  constant 
acceleration. 


Weak  Target  Return  Signal.  A weak  target  return  signal  produces 
a low  SNR  at  the  doppler  filter  output,  which,  in  turn,  produces  noisy  angle 
discriminants.  These  noisy  angle  discriminants  get  injected  into  the  angle 
rate  tracking  loop  filter  which  smooths  the  noise  on  the  output  angle  rate 
estimate.  The  target  return  signal  is  usually  the  weakest  at  long  range 
(greater  than  40000  feet)  where  the  angle  rate  tracker  bandwidth  is  the 
narrowest.  Now,  the  SNRp  threshold  required  to  produce  out-of-spec 

performance  is  estimated  to  be  7-8  dB  as  in  the  angle  tracking  case.  In  the 
present  set  of  tests,  this  condition  will  only  be  achieved  in  some  of  the  long 
range  tests,  e.g.  some  of  the  HL-  and  HJ-  series  tests.  In  general,  weak 
target  return  signals  should  not  be  a problem. 
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FIGURE  3.6-5  A COMPARISON  OF  THE  CINE  PITCH  ANGLE 


ACCELERATION  PROFILE  AND  THE  CINE  PITCH  RATE 


DIFFERENCE  DATA  PROFILE  FOR  H30SKAf 
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performed  with  the  widest  angle  tracking  noise  bandwidth.  However,  the  HEL30 
and  H30SK  series  were  performed  at  ranges  of  2000  to  12000  offset  in  X and  Y 
from  the  radar  while  SAT  tests  were  over  a range  interval  of  2500  feet  to  1200 
feet  directly  over  the  radar.  The  difference  here  is  that  slight  wind 

disturbances  in  the  SAT  test  configuration  translate  into  reasonably  large 
angle  accelerations  that  produce  momentary  biases.  These  biases,  in  turn, 
produce  large  standard  deviations  in  the  difference  data.  This  phenomenon 
will  be  examined  in  detail  in  the  next  subseciton. 

3. 6. 3.1  Acceleration  Effects.  In  this  case  it  turns  out  that 

acceleration  is  the  primary  source  of  error  in  the  angle  rate  difference  data 
once  the  scale  factor  of  two  has  been  removed.  Figure  3.6-5  compares  the 

pitch  angle  acceleration  profile  against  the  pitch  rate  difference  data 
profile.  Figure  3.6-6  gives  a similar  comparison  for  roll  angle.  Observe 
that  the  angle  acceleration  profile  shape  and  the  angle  rate  difference 

profile  shape  are  highly  correlated  for  both  roll  and  pitch.  Next,  it  will  be 
demonstrated  that  not  only  are  the  shapes  highly  correlated,  but  that  they  are 
related  by  the  expression  given  in  equation  3-18  or  3-19. 

Consider  the  interval  20  to  40  seconds  in  the  pitch  data  of 

Figure  3.6-5.  The  average  pitch  angle  acceleration  during  this  period  is 
-0.02  degrees /sec /sec.  Using  equation  3-19,  the  corresponding  average  pitch 
angle  rate  bias  error  is  computed  as  0.053  degrees/sec.  This  value  agrees 
quite  well  with  the  pitch  rate  difference  data  in  the  same  20  to  40  second 
time  interval. 


Consider  a similar  calculation  for  the  roll  rate  for  the  time 
interval  100  to  110  seconds.  The  average  acceleration  in  this  case  is  about 
-0.04  degrees /sec /sec  and  the  computed  roll  rate  bias  error  is  0.11 
degrees/second.  The  average  roll  rate  error  taken  for  the  same  interval  from 
the  roll  rate  difference  profile  is  about  0.09  degrees/second.  Hence,  the 
calculated  data  and  the  measured  data  agree  reasonable  well. 

The  conclusion  from  the  above  discussion  is  that  the  primary 
error  source  in  the  H30SKAF  case  is  angle  acceleration.  Although  the  other 
flights  must  be  evaluated  on  a case-by-case  basis  to  determine  the  dominant 
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error  source,  one  can  draw  an  additional  conclusion  from  the  above  data 
analysis.  It  was  observed  that  very  small  angle  accelerations,  i.e. 
acceleration  less  than  0.04  deg/sec/sec  produced  angle  rate  biases  of  0.11 
deg/ sec  which  is  40  times  the  specification  on  the  standard  deviation.  Based 
on  these  numbers  it  is  reasonable  to  conclude  that  the  primary  error  source  in 
the  other  tests  will  be  angle  acceleration  as  well.  At  shorter  ranges,  the 
same  wind  turbulence  will  cause  larger  angle  rate  errors  and  at  longer  ranges 
the  reverse  will  be  true. 

Another  important  conclusion  that  can  be  drawn  from  this 
comparison  is  that  the  model  shown  in  Figure  3.6-4  is  an  accurate 
representation  of  the  angle  and  angle  rate  tracking  loop.  Furthermore,  it 
shows  that  the  actual  bandwidths  of  these  tracking  loops  (which  is  related  to 
the  natural  frequency  f of  the  loop)  matches  the  intended  design  bandwidth 
values.  This  is  verified  by  the  matching  of  the  angle  acceleration  and  the 
angle  rate  difference  data  through  the  relation  3—19  and  the  matching  of  the 
angle  acceleration  and  the  angle  difference  data  through  the  equation  3-12. 
Both  of  these  expressions  contain  w^  which  is  the  natural  radiam  frequency 
of  the  loop. 


Reflecting  upon  the  comments  above,  it  may  well  be  that  the 
problems  with  the  angle  rate  tracker  at  close  range  during  a space  flight 
rendezvous  are  related  to  very  slight  angle  accelerations  of  the  target.  A 
target  acceleration  of  0.01  deg/sec/sec  causes  an  angle  rate  bias  that  is  10 
times  greater  than  the  standard  deviation  specification.  It  is  not  known 
whether  0.01  deg/ sec/ sec  angle  acceleration  is  typically  encountered  in  the 
shuttle-satellite  rendezvous.  However,  it  is  recommended  that  radar  data  from 
some  typical  rendezvous  be  analyzed  for  acceleration  bias  problems.  If  this 
turns  out  to  be  the  problem,  it  casts  a new  light  on  potential  solutions  to 
the  angle  rate  tracking-  loop. 

Before  leaving  this  subsection,  there  is  some  additional  evidence 
that  lends  additional  support  to  the  angle  acceleration  theory.  The  intent 
here  is  to  demonstrate  that  the  bias  found  in  the  pitch  and  roll  angle 
difference  data  is  consistent  with  the  magnitude  of  angle  acceleration  given 
in  the  plots  of  Figures  3.6-5  and  3.6-6.  Pitch  angle  difference  data  and  roll 
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ANGLE  ERROR  DEGREES 
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FIGURE  3.6-4  ANGLE  AND  ANGLE  RATE  ERROR  DUE  TO  AN 
ACCELERATION  OF  0.04  DEGREES/SEC 
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ANGLE  RATE  ERROR  DEGREES/SEC 


FIGURE  3.6-7  CINE  ROLL  AND  PITCH  ANGLE  DIFFERENCE 
DATA  PROFILE  FOR  H30SKAF 
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TIME  (SECONDS) 

FIGURE  3.6-8  A COMPARISON  OF  THE  CINE  KU  PITCH  RATE 

DIFFERENCE  DATA  AND  THE  CINE  SIM  PITCH  RATE 
DIFFERENCE  DATA  FOR  H30SKAF 
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SORTE  Angle  Rate  Data  Analysis 


Since  the  scale  factor  problem  was  discovered  near  the  end  of  the 
contract  performance  period,  only  limited  analysis  of  the  angle  rate  data 
could  be  done.  This  analysis  consists  of  (1)  recomputing  all  of  the  means  and 
standard  deviations  of  the  roll  and  pitch  angle  rate  data,  excluding  the 
November  4,  1985  flights  due  to  the  servo  gain  change,  and  (2)  performing  an 
in-depth  analysis  of  a single  flight  (H30SKAF). 

Table  3.6-2  compares  the  mean  and  standard  deviation  of  the  roll 
rate  difference  data,  generated  from  the  rescaled  roll  rate  data,  to  the  mean 
and  standard  deviation  of  the  original  roll  rate  difference  data.  Table  3.6—3 
gives  a similar  comparison  for  the  pitch  rate  data.  Observe  that  both  the 
means  and  the  standard  deviations  of  these  difference  data  improve  by  at  least 
a factor  of  two  in  every  case.  A comparison  with  the  specification  reveals 
that  many  of  the  mean  values  are  within  specification  and  most  of  the  rest  of 
the  mean  values  are  very  close  to  the  spec  limit. 

There  are  some  general  observations  that  can  be  made  concerning 
the  recomputed  standard  deviation  values.  Firstly,  every  value  of  standard 
deviation  is  still  outside  the  specification  limit  and  in  only  a few  the 
values  are  just  slightly  outside  the  limit.  This  fact  is  still  alarming. 
However,  analysis  of  a sample  case  will  demonstrate  the  source  of  error  for 
many  of  these  cases.  Secondly,  a comparison  of  the  standard  deviations  for 
the  various  flight  series  is  illuminating  and  encouraging.  The  performance  of 
these  flight  series  can  order  from  best  to  worst  as  follows: 

Best  Performance:  HL-  and  HJ-  series 

Intermediate  Performance:  H30SK-  and  HEL30-  series 

Worst  Performance:  SAT  series 

This  ordering  is  quite  reasonable.  The  HL-  and  HJ-  series  should  give  the 
best  performance  for  two  reasons:  (1)  they  were  performed  at  long  range  with 

the  narrowest  angle  tracking  noise  bandwidth  and  (2)  at  long  range  the  angle 
accelerations  are  reduced.  The  HEL30-  H30SK-,  and  SAT-  series  all  were 
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angle  difference  data  for  H30SKAF  are  provided  in  Figure  3.6-7  for  reference. 
Consider  the  pitch  angle  acceleration  data  time  interval  of  115  seconds  to  125 
seconds.  In  this  interval  the  average  acceleration  is  about  0.05 
deg/sec/sec.  Using  equation  3-12,  the  angle  bias  error  is  computed  as  0.088 
degrees.  If  this  is  added  to  the  pitch  angle  difference  mean  shown  in 

Figure  3.6-7,  then  the  total  predicted  angle  error  is  -0.728  degrees.  The 

pitch  angle  difference  data  of  Figure  3.6-7  shows  an  average  error  of  about 
-0.75  degrees  for  the  same  time  interval.  Hence,  the  pitch  angle  acceleration 
profile  agrees  with  the  pitch  angle  difference  profile  as  well  as  the  pitch 
angle  rate  difference  profile. 

Let's  also  do  a calculation  for  the  roll  angle.  Consider  the 

time  interval  120  to  125  seconds.  The  average  roll  angle  acceleration  is  0.05 
deg/sec/sec  and  the  calculated  roll  angle  bias  error  is  0.088  degrees.  Adding 
this  to  the  mean  error  of  the  roll  angle  difference  profile,  the  total 

computed  average  roll  angle  error  for  the  time  interval  is  0.208  degrees.  A 
review  of  the  measured  roll  angle  difference  data  for  the  same  time  period 
shows  an  average  roll  angle  bias  error  of  -0.22  to  -0.225  degrees.  Again  the 
roll  angle  acceleration  profile  agrees  with  both  the  roll  rate  difference 

profile  and  the  roll  angle  difference  profile.  Hence,  the  data  seems 
consistent  among  the  three  variables  for  both  roll  and  pitch. 

Simulation  Verification.  As  further  proof  that  the  scale  factor 
of  2 should  be  removed  and  that  acceleration  is  the  major  contributor  to  the 
angle  rate  errors , the  H30SKAF  CINE  profile  was  injected  into  the  final 

version  of  the  simulation  and  angle  rate  and  angle  difference  data  was 

generated.  Figure  3.6-8  compares  the  Ku-Band  pitch  angle  rate  difference  data 
to  the  simulation  pitch  angle  rate  difference  data  (both  sets  are  referenced 
to  the  CINE  data),  for  the  H30SKAF  profile.  Figure  3.6-9  gives  a similar  set 
for  the  roll  angle  rate  difference  data.  These  comparisons  show  that  the 
simulation  accurately  reflects  the  angle  rate  response  of  the  Ku-Band  (at 
least  for  the  present  flight  profile) . It  shows  that  the  acceleration  errors 
appear  in  the  simulation  response  and  are  of  the  same  magnitude.  It  also 
shows  that  there  is  no  scale  factor  problem  between  the  simulation  and  the 

modified  measured  angle  rate  data. 
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FIGURE  3.6-10  A COMPARISON  OF  THE  CINE  KU-BAND  PITCH 

ANGLE  DIFFERENCE  DATA  AND  THE  CINE  SIM  PITCH 
ANGLE  DIFFERENCE  DATA  FOR  H30SKAF 
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Figure  3.6-10  compares  the  CINE  Ku  pitch  angle  difference  data 
and  the  CINE  sim  pitch  angle  difference  data  for  the  H30SKAF  flight  profile. 
A similar  comparison  for  the  roll  angle  difference  data  is  provided  in  Figure 
3.6—11.  A first  impression  is  that  the  data  does  not  match  as  well  as  the 
angle  rate  comparison.  However,  it  should  be  noted  that  the  sim  data  is  not 
quantized  to  0.1  degrees  as  it  is  in  the  Ku— Band  Radar.  A quantized  version 
of  the  simulation  data  would  probably  show  a better  fit. 

3.6.4  A Discussion  of  the  Servo  Experiment 

Once  the  scale  factor  problem  in  the  angle  rate  was  discovered  in 
one  of  the  sets  of  data,  all  of  the  data  sets  were  scrutinized  to  determine 
whether  the  scale  factor  was  the  same  for  all  cases.  LEMSCO  personnel 
discovered  that  the  data  from  the  4 November  1985  flights  had  a scale  factor 
of  0.5,  rather  than  a factor  of  2.  All  of  these  flight  tests  were  flown  with 
an  increase  by  a factor  of  4 in  the  k^  gain  of  the  angle  tracking  loop. 
Thus,  it  became  clear  that  the  output  angle  rate  is  scaled  inversely  with  the 
change  in  the  k^  gain.  What  follows  is  a derivation  of  this  fact. 

Figure  3.6-12  gives  an  equivalent  second  order  analog  model 
representation  of  the  angle  rate  tracking  loop  modified  to  include  the  k^ 
gain  (compare  this  configuration  with  the  model  in  Figure  3.6-4). 

A 

e 


FIGURE  3.6-12  SECOND  ORDER  ANALOG  MODEL  OF  THE 
MODIFIED  ANGLE  RATE  TRACKING  LOOP 
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FIGURE  3.6-11  A COMPARISON  OF  THE  CINE  KU-BAND  ROLL  ANGLE  DIFFERENCE  DATA  AND 
THE  CINE  SIM  PITCH  ANGLE  DIFFERENCE  DATA  FOR  H30SKAF 
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The  transfer  function  for  this  loop  is  given  by  the  expression 


(3-20)  0(s)/0(s)  - swn2/(s2+2Kwns+KwQ2) 

where  w has  been  defined  previously  and  K is  associated  with  the 
constant  and  represents  the  gain  inserted  into  the  Ku-Band  Radar  servo 
electronics  during  the  SORTE  program  at  WSMR.  For  the  normal  operational 
design  of  the  radar  K - 1,  but  in  the  SORTE  experiments  the  gain  K was  raised 
to  a value  of  4. 


It  is  now  demonstrated  that  the  angle  rate  output  is  divided 
down  by  a factor  of  K.  This  fact  is  most  easily  demonstrated  by  choosing  a 
particular  input.  The  input  chosen  is  a ramp  in  angle  or  a step  in  angle  rate. 


(3-21) 


0(t)  * At  (angle  position) 

0(t)  “A  (angle  rate) 


Where  A is  the  value  of  the  angle  rate  and  should  be  the  value  output  by  the 
tracking  loop.  The  s-domain  representation  of  the  ramp  is 


0(s)  - A/s2 


and  the  s-domain  response  to  this  input  is 

(3-22)  0(s)  - (A/s2)((  svq  )/?s  +2  KwnD+Kwn  )) 

To  determine  the  steady-state  response  to  this  input,  apply  the  final  value 
theorem  from  control  theory.  The  final  value  theorem  is 

A $ 

(3-23)  0 - lim  s ( 6 (s)) 

s — ► o 


and  the  result  is 


A 

(3-24)  9 - A/K. 
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This  shows  that  the  output  of  the  loop  Is  the  true  angle  rate  divided  by  K. 
So  when  K is  1 as  in  the  operational  design,  angle  rate  meters  give  a true 
Indication  of  the  target's  ILOS  angle  rate.  However,  when  K is  different  from 
1 then  the  angle  rate  meters  give  a scaled  version  of  the  true  angle  rate. 

The  above  result  is  consistent  with  the  data  from  the  SORTE 
program  servo  experiments  (disregarding  the  scale  factor  of  2).  The 
implication  is,  that  to  determine  the  true  angle  rate  noise  performance  with 
the  increased  gain,  one  must  scale  the  angle  rate  data  by  the  gain  K prior  to 
determining  the  noise  properties.  When  this  is  done  with  the  present  data  it 
is  found  that  the  noise  performance  does  not  improve,  but  degrades,  when 
increasing  the  k^  gain. 

If  the  problem  with  the  angle  rate  loop  in  flight  is  too  much 
random  noise,  then  the  noise  bandwidth  of  the  loop  should  be  decreased.  Since 
the  noice  bandwith  is  proportional  to  k^ , the  value  of  this  gain  should  be 
decreased  to  reduce  the  noise  bandwidth.  However,  if  the  problem  with  the 
angle  rate  performance  in  flight  is  related  to  biases  induced  by  fluctuating 
angle  acceleration,  then  the  solution  to  the  problem  is  much  more  difficult. 
The  bias  in  angle  rate  due  to  acceleration  can  be  shown  to  be  proportional 
to  r (see  Figure  3.6-12);  therefore,  to  decrease  the  bias  due  to 

acceleration,  r must  somehow  be  reduced.  A change  in  the  gain  k^  will  not 
change  the  bias  in  angle  rate. 

The  real  solution  to  the  angle  acceleration  problem  is  to  use  a 
third  order  loop  (commonly  called  an  alpha-beta-gamma  filter).  This  type  of 
loop  will  not  suffer  from  angle  rate  bias  in  the  presence  of  a constant  angle 
acceleration. 
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4.0 


PALAPA  MISSION  DATA  ANALYSIS 


The  purpose  of  this  section  is  to  provide  analysis  of  some  space 
flight  rendezvous  data.  The  particular  set  of  data  supplied  for  this  exercise 
was  the  radar  data  from  the  space  shuttle  rendezvous  with  the  Palapa  B 
Satellite  during  mission  51A  in  November  1984.  The  summary  of  the  analysis  is 
done  on  three  different  levels.  Firstly,  a general  qualitative  discussion  is 
presented  to  point  out  all  significant  features  in  the  data.  Secondly,  some 

limited  quantitative  analysis  of  the  data  is  given  to  provide  the  reader  with 
a feel  for  the  radar  errors  encountered  in  an  operational  environment. 

Thirdly,  the  results  of  injecting  the  smoothed  Palapa  profile  into  the 
simulation  are  compared  to  the  actual  data.  In  addition,  the  validity  of  this 
simulation  technique  is  discussed. 

4.1  QUALITATIVE  DISCUSSION  OF  THE  DATA 

Excluding  the  Radar  Signal  Strength  (RSS) , there  are  six  basic 
target  parameters  that  the  Ku-Band  Radar  tracks  during  a rendezvous:  range, 

range  rate,  roll  and  pitch  angles  and  inertial  line  of  sight  (ILOS)  roll  rate 
and  pitch  rate.  Figure  4.1-1  shows  the  range  and  range  rate  data  for  the 

entire  rendezvous  which  was  approximately  9000  seconds  in  duration.  Figure 

4.1—2  gives  a similar  plot  for  the  roll  and  pitch  angle  data,  and  Figure  4.1-3 
gives  the  data  for  ILOS  roll  and  pitch  rate.  Some  general  qualitative 
observations  about  these  data  follow. 

The  range  and  range  rate  data  of  Figure  4.1-1  looks  very  well 
behaved  (at  least  on  the  scale  shown  in  the  figure).  It  will  be  shown  in  the 
next  section  that  the  random  component  of  these  data  are  well  within 
specification  for  these  time  intervals,  corresponding  to  three  different  range 
tracker  bandwidths.  Also,  observe  that  the  glitches  in  the  data  in  the 
intervals  0 to  400  seconds  and  2500  to  3000  seconds  are  not  caused  by  the 
radar,  but  instead  are  missing  data  due  to  data  link  drop-out  or  some  other 
communication  link  problem. 
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FIGURE  4.1-1  KU-BAND  RADAR  RANGE  AND  RANGE  RATE  PROFILES 
FOR  THE  RENDEZVOUS  WITH  THE  PALAPA  SATELLITE 
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FIGURE  4.1-3  KU-BAND  RADAR  ILOS  PITCH  AND  ROLL  RATE  PROFILES 
FOR  THE  RENDEZVOUS  WITH  THE  PALAPA  SATELLITE 


Except  for  a few  time  intervals,  the  roll  and  pitch  angle  data  is 
very  near  zero  for  the  entire  rendezvous.  This  just  means  that  the  shuttle 
and  the  target  are  coming  together  along  the  -Z  axis  of  the  Shuttle  Body 
Coordinate  System.  The  most  prominent  features  in  these  data  is  the  large 

angular  change  in  the  data  over  the  time  interval  2200  seconds  to  3200 
seconds.  This  corresponds  to  an  intentional  change  in  the  Orbiter' s attitude 
and  preparation  for  what  is  known  as  a TI  burn.  This  injects  the  Orbiter  into 
the  final  phase  of  the  rendezvous.  Also  notice  that  there  is  some  nonzero 
angular  positions  in  the  time  after  5500  seconds.  During  this  time,  the 
Orbiter  is  performing  several  small  "hops"  to  move  toward  the  target.  In 
summary,  the  data  is  well-behaved  and,  as  shown  in  the  next  section,  the 
random  component  is  well  within  specification  for  both  the  roll  and  pitch 
angle  in  all  three  bandwidth  intervals. 

The  ILOS  roll  and  pitch  rate  data  of  Figure  4.1-3  has  some 
interesting  features.  First,  the  glitch  in  the  data  over  the  interval  2500  to 
3000  seconds  is  caused  by  data  link  drop-out  as  in  the  range  and  range  rate 
case.  The  hump  in  the  roll  rate  data  from  2000  to  3500  seconds  is  associated 
with  the  TI  burn  maneuver,  but  the  mechanism  producing  it  cannot  be  stated  for 
certain.  It  could  be  caused  by  true  target  inertial  angle  rate  or,  it  could 
be  that  the  body  rate  during  the  maneuver  was  not  compensated  perfectly. 
Similar  comments  apply  to  the  pitch  rate  data  over  this  time  interval. 

The  next  significant  feature  that  can  be  picked  up  from  these 
data  are  the  bandwidth  switch  points,  especially  in  the  roll  rate  data.  These 
switch  points  are  marked  by  a noticeable  step  increase  in  the  "random" 
component  of  the  data.  The  first  switch  point  (which  is  the  hardest  to  see  on 
the  scale  of  the  data)  occurs  at  range  23,030  feet  and  approximately  6000 
seconds.  The  second  switch  point  is  quite  prominent  and  occurs  at  a 11,510 
feet  and  approximately  6500  seconds.  For  a long  time,  this  increase  in  the 
random  component  was  solely  due  to  the  increase  in  tracker  noise  bandwidth 
when  the  bandwith  is  switched.  However,  based  on  the  analysis  of  the  S0RTE 
test  data,  it  is  now  felt  that  a significant  part  is  due  to  very  slight 
inertial  angle  accelerations  and  the  angle  rate  biases  induced  by  these 
accelerations.  Also  observe  that  these  angle  rates  can  also  be  produced  by 
beam  wander  on  the  target,  especially  for  ranges  less  than  1000  feet. 
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Another  feature  of  the  data  is  that  the  envelope  of  the  random 
component  in  roll  and  pitch  rate  appears  to  grow  from  time  6500  seconds  to 
9500  seconds  as  the  range  decreases  into  100  feet.  Figure  4.1-4  gives  an 
expanded  view  of  this  envelope  for  roll  and  pitch  rates.  This  observation 
supports  the  statements  of  the  preceding  paragraph.  If  the  fluctuation  in  the 
data  were  caused  by  thermal  noise,  then  the  random  component  would  certainly 
not  grow  with  decreasing  range  and  increasing  target  signal  strength.  On  the 
other  hand,  problems  with  actual  inertial  cross  line-of-sight  movement 
(producing  angle  acceleration)  would  increase  with  decreasing  range,  and 
problems  with  beam  wander  on  the  target  would  also  increase  with  decreasing 
range.  Neither  of  these  problems  can  be  controlled  with  adjustments  in  the 
angle  rate  tracking  loop  parameters. 

Figure  4.1-5  gives  an  even  more  expanded  view  of  the  roll  rate 
data  for  the  time  interval  8000  to  8100  seconds.  A qualitative  observation 
about  this  data  is  that  it  appears  to  have  a less  random  or  more  deterministic 
character  to  it.  It  is  more  oscillatory  in  nature.  (Spectral  analysis  of  the 
data  would  verify  this  statement.) 

The  final  observation  concerns  the  pitch  rate  data.  The 
significant  bias  seen  in  the  data  is  due  to  the  orbital  rate.  That  is,  the 
shuttle  orbits  the  earth  approximately  every  90  minutes.  This  produces  a rate 
of  0.067  degrees  per  second  and  corresponds  perfectly  to  the  pitch  rate  bias. 
This  is  reasonable  since  pitch  is  the  angular  movement  in  the  plane  of  the 
orbit  due  to  the  attitude  of  the  shuttle  during  the  rendezvous. 

4.2  SOME  SIMPLE  QPANTITATIVE  DATA  ANALYSIS 

To  perform  an  accurate  quantitative  analysis  of  the  Ku— Band  Radar 
requires  accurate  reference  data.  That  is,  data  generated  by  an  independent 
sensor  or  set  of  sensors  whose  measurement  accuracies  are  as  good  or  better 
than  the  Ku-Band  Radar.  The  purpose  of  the  S0RTE  program  was  to  provide  such 
a reference  and,  from  this  data,  develop  some  quantitative  estimates  of  radar 
performance.  However,  the  S0RTE  program  experiments  could  not  exactly 
duplicate  space  flight  conditions.  Hence,  a quantitative  analysis  of  the 
Palapa  flight  data  was  undertaken  using  a psuedo-ref erence . The  psuedo 


4-6 


.ISO 


.100  H 


g .050  -j 

0 

n 

2 .000- 

d 

P 

* -.050- 

1 ■ 

g -.100- 


-.150-1 

60 


TIME  SECONDS 


FIGURE  4.1-4  EXPANDED  VIEW  OF  ROLL  AND  PITCH  RATE  PROFILES 
FOR  THE  PALAPA  RENDEZVOUS 
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FIGURE  4.1-5  EXPANDED  VIEW  OF  ROLL  RATE  DATA  FOR  THE  PALAPA 

RENDEZVOUS  ILLUSTRATING  THE  FINE  STRUCTURE  OF  THE  DATA 
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reference  generation  and  the  dangers  associated  with  it  are  discussed  in  the 
next  subsection.  Results  of  the  data  analysis  are  provided  in  the  subsection 
following  the  reference  discussion. 

4.2.1  Reference  Data  Generation 


Assumptions.  Generation  of  the  reference  data  set  was 
accomplished  by  making  the  following  assumptions.  First,  it  is  assumed  that 
the  average  of  the  radar  parameter  estimates  over  short  intervals  (10-50 
seconds)  are  bias-free  and  represent  the  target's  true  parameter  average  in 
that  interval.  There  is  one  significant  drawback  in  this  assumption: 
prolonged  range  and  angle  acceleration  produce  significant  biases  in  range, 
range  rate,  angle  and  angle  rate.  To  alleviate  this  problem  to  some  extent, 
an  analysis  of  the  parameter  bias  error  was  ignored  in  the  present  exercise. 

The  second  assumption  is  that  the  fluctuations  in  the  data  over 
small  intervals  is  due  to  radar  thermal  or  quantization  noise.  Hence,  these 
features  were  eliminated  when  forming  the  reference.  The  danger  in  doing  this 
was  not  discovered  until  after  the  fact,  during  SORTE  data  analysis.  These 
so-called  random  fluctuations,  especially  in  the  angle  rates,  may  be  induced 
by  the  shuttle  - Palapa  rendezvous  dynamics.  In  the  case  of  the  angle  rate, 
for  example,  significant  short-term  angle  rate  bias  could  be  induced  by  slight 
angle  accelerations  dun  to  flight  control  adjustments  by  the  shuttle  pilot* 
These  short-term  biases  on  a larger  time  scale  appear  to  have  a random  nature 
and  were  removed  for  the  data  analysis  reported  below.  It  is  now  believed 
that  the  discrepancy  between  the  simulation  angle  rate  and  the  flight  angle 
rate  data  is  due  to  removing  true  fluctuations  in  the  angle  rate  data. 

Method.  Ths  basic  method  for  developing  a data  reference  was  to 
smooth  the  radar  flight  data  using  a short-term  averaging  technique.  The 
technique  was  moving  window  averaging  and  can  be  represented  by  the  following 
expression: 
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(N-l)/2 

(4-1)  PR(n)  - X P(n+j)/N 

j - -(N-D/2 

where  P is  the  nth  reference  value  for  the  parameter  P 

R 

P(n)  is  the  nth  radar  estimate  for  the  parameter  P 
N is  the  length  of  the  window  (it  is  taken  as  odd  in  this 
analysis) . 

The  value  of  N used  for  range,  range  rate,  and  roll  and  pitch  angle  was  13 
samples  (at  1 second  per  sample),  and  a value  of  51  samples  was  used  for  ILOS 
roll  and  pitch  rate.  The  larger  value  for  the  angle  rate  was  to  suppress  the 
more  severe  fluctuations  in  that  data.  Figures  4.2-1  and  4.2-2  compare  the 
smoothed  and  unsmoothed  range  and  range  rate  data  for  a window  of  length  13. 
Figure  4.2-3  compares  the  smoothed  an  unsmoothed  pitch  angle  data.  The 
“steps'*  in  the  unsmoothed  pitch  angle  data  is  due  to  0.1  degree  quantization 
of  the  roll  and  pitch  angle  data  prior  to  transmission  over  the  MDM  to  the 
shuttle  general  purpose  computer  (GPC) . These  "steps"  are  eliminated  in  the 
smoothed  data,  as  they  should  be. 

Figure  4.2-4  gives  the  smoothed  and  unsmoothed  1L0S  roll  rate. 
In  this  case,  a window  of  length  51  was  used  to  heavily  smooth  the  "noisy” 
angle  rate.  As  discussed  above,  this  was  probably  a mistake,  since  these 
fluctuations  may  have  been  induced  by  actual  shuttle  motion  and/ or  beam 
wander.  However,  the  validity  of  this  statement  cannot  be  established  without 
a true  reference. 

4.2.2  Data  Analysis  Results 

Table  4.2-1  summarizes  the  results  of  the  Palapa  rendezvous  radar 
data  analysis.  This  analysis  computes  the  standard  deviation  of  the  random 

component  only.  Furthermore,  the  analysis  is  done  for  three  distinct  time 
intervals  corresponding  to  the  three  different  tracking  bandwidths.  (It  is  a 
fact  that  the  range  and  angle  trackers  both  have  three  different  bandwidth 
values  and  that  these  values  are  switched  at  the  same  points  in  range.  Also, 
the  bandwidth  values  of  both  trackers  increase  with  decreasing  range 
intervals . ) 
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FIGURE  4.2-2  SMOOTHED  AND  UNSMOOTHED  KD  MDM  RANGE  RATE  DATA. 

A 13  SAMPLE  WINDOW  WAS  USED  FOR  SMOOTHING. 
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3 SMOOTHED  AND  UNSMOOTHED  KU  MDM  PITCH  ANGLE  DATA 
A 13  SAMPLE  WINDOW  WAS  USED  FOR  SMOOTHING. 
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FIGURE  4.2-4  SMOOTHED  AND  UNSMOOTHED  KU  MDM  ILOS  ROLL  RATE  DATA 
A 51  SAMPLE  WINDOW  WAS  USED  FOR  SMOOTHING. 


TABLE  4.2-1  SUMMARY  OF  RANDOM  COMPONENT  ANALYSIS  OF  THE  KU-BAND  RADAR 
DATA  FROM  THE  PALAPA  SATELLITE  RENDEZVOUS  OF  MISSION  51A 


TIME  INTERVAL, SEC 


4855  - 5890 


5890  - 6530 


6530  - 6993 


RANGE  INTERVAL, FT 


43520  - 23040 


23040  - 11520 


11520  - 5760 


9 

9 

9 

' SPECIFICATION  ' 
' STD  DEV  ' 

» i 

9 

STD  DEV  ' 

9 

9 

STD  DEV 

9 

STD  DEV 

1 

9 

9 

9 

1 

* Range, Ft 

9 

9 1 

t 1 

' 26.7  Ft* 

t » 

9 

« 

20.45 

9 

9 

» 

10.97 

9 

5.3 

"T 

9 

9 

1 

' Range  Rate, Ft 

9 

* 0.333  Ft/Sec  ' 

9 1 

0.119  * 

r 

0.088 

1 

0.076 

9 

/ 

' Roll  Angle, Deg 

9 

f 0.153  deg 

9 9 

0.037  * 

9 

0.026 

9 

0.031 

i 

9 

' Pitch  Angle, Deg 
1 

1 0.153  deg 

9 9 

0.034 

9 

0.056 

t 

0.052 

9 

V 

' ILOS  Roll  Rate, 

f 2.7  E-3  deg/  * 

8.9  E-4  * 

2.9  E-3  ' 

4.7  E-3 

# 

* Deg/Sec 

9 

* sec  ’ 

9 I 

9 

9 

9 

9 

9 

9 

’ ILOS  Pitch  Rate, 

’ 2.7  E-3  deg/  1 

1.4  E-3  • 

4.4  E-3  • 

6.8  E-3 

9 

* Deg/Sec 

9 

f sec  * 

9 9 

9 

9 

9 

9 

9 

9 

*The  three  sigma  range  specification  is  1 percent  of  range  for  ranges 

greater  than  8000  feet. 


The  data  of  Table  4.2-1  shows  that  range,  range  rate  and  angle 
are  well  within  their  respective  specifications  for  all  three  range 
intervals.  On  the  other  hand,  the  angle  rate  data  is  within  specification  for 
the  narrowest  bandwidth,  but  is  out  of  specification  for  the  other 
bandwldths.  Please  observe  that  these  data  can  neither  be  considered  as 

best-case  or  worst-case  random  component  analysis.  Short-term  range 
accelerations  will  induce  short-term  bias  in  the  range  and  range  rate  that 
have  been  removed  with  the  present  smoothing  technique.  Now,  these  short-term 
biases  can  add  to  the  standard  deviation  of  the  random  component.  However,  a 
calculation  of  range  bias  generated  by  typical  acceleration  shows  that  this 
problem  does  not  add  significantly  to  the  range  data.  Hence,  the  range  data 
analysis  of  Table  4.2-1  is  an  accurate  reflection  of  the  radar  range 
performance  in  flight. 
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On  the  other  hand,  if  there  is  appreciable  change  in  range 
acceleration,  e.g.,  greater  than  10  feet/sec/sec,  the  bias  profile  of  the 
range  rate  data  will  be  affected  significantly.  A changing  range  acceleration 
over  a given  bandwidth  interval  produces  a changing  range  rate  bias  over  the 
corresponding  interval  (as  shown  in  the  SORTE  data).  This  changing  bias  could 
add  significantly  to  the  random  component,  putting  it  out  of  specification. 
However,  in  the  range  interval  of  most  importance,  e.g.,  ranges  less  than  5 

nautical  miles,  the  deceleration  is  of  very  small  magnitude.  Hence,  the  range 
rate  data  analysis  of  Table  4.2—1  is  an  accurate  reflection  of  radar 
performance  under  space  flight  rendezvous  conditions. 

Angle  acceleration  will  also  induce  bias  in  the  angle  and  angle 
rate  data.  Hence,  a varying  bias  due  to  a varying  angle  accelertaion  could 
induce  addition  error  in  the  random  component.  Calculation  of  this  error  in 
Section  3.5  for  the  angle  tracker  shows  that  the  bias,  under  heavy  angle 

acceleration,  does  not  influence  the  random  component  significantly.  Thus, 
the  angle  data  analysis  of  Table  4.2-1  gives  representative  performance  in  a 
space  operations  environment.  Observe  that  the  angle  data  standard  deviation 
is  better  than  specification  by  a factor  of  5. 

At  close  range,  it  is  hard  to  decide  whether  the  fluctuations 

seen  in  the  radar  angle  rate  data  are  caused  by  true  target  shuttle  motion,  or 

beam  wander,  or  by  radar  noise.  If  the  randomness  is  based  on  radar  noise, 
then  the  data  of  Table  4.2-1  is  representative  of  radar  performance  and  is  out 
of  specification.  If  the  fluctuations  in  the  data  are  non-noise  related,  as 
the  SORTE  data  indicates,  then  the  data  of  Table  4.2-1  is  a worst-case  result, 
and  it  maybe  that  the  angle  rate  is  really  within  specification  once  the 
proper  reference  is  applied.' 

4.3  SIMULATION  RESULTS 


4.3.1  Reference  Generation 


To  generate  simulation  data  for  the  Palapa  Satellite  rendezvous, 
a reference  flight  trajectory  had  to  be  developed.  This  development  can  be 
described  as  follows. 
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The  required  inputs  to  the  simulation  are  the  target's  position 
and  velocity  vectors  in  shuttle  body  coordinates  and  the  shuttle  angular 
velocity  vector,  W^,  in  shuttle  body  coordinates.  The  target's  position  and 
velocity  vectors  can  be  obtained  from  the  smoothed  range,  range  rate,  and  roll 
angle  and  pitch  angle  data  described  in  Section  4.2.1.  To  obtain  the  shuttle 
angular  velocity  vector  requires  some  additional  thought. 


The  radar  data  can  provide  us  with  two  of  the  three  components  of 
the  shuttle  body  angular  velocity  vector  components  in  body  coordinates. 
These  are  the  X-component  and  the  Y-component.  The  Z-component  representing 
vehicle  cannot  be  obtained  from  the  data  and  is  assumed  zero.  The  X-component 
is  determined  by  computing  the  roll  rate  from  first  differences  of  the  roll 
angle  data  and  subtracting  the  smooth  ILOS  roll  rate  value.  The  Y-component 
is  determined  in  a similar  fashion  using  the  smoothed  pitch  angle  and  smoothed 
ILOS  pitch  rate  information.  Mathematically,  this  can  be  expressed  as 


(4-2) 


where 


EWB^N)  - (SRANG(N)-SRANG(N-l))/ AT-SRRTE(N) 

EWB2(N)  - (SPANG(N)-SPANG(N-l))/ AT-SPRTE(N) 

EWB^,EWB2  “ X-  and  Y-  component  of  the  shuttle  body  angular 

velocity  vector 


SRANG(N) 
SPANG (N) 
SRRTE(N) 
SPRTE(N) 
AT 


■ Nth  value  of  smoothed  roll  angle 

■ Nth  value  of  smoothed  pitch  angle 

■ Nth  value  of  smoothed  roll  rate 

■ Nth  value  of  smoothed  pitch  rate 
* Sampling  period  (1  second) 


4.3.2  Simulation  Performance  Against  Palapa  Reference 

Table  4.3-1  summarizes  the  results  of  injecting  the  Palapa 
reference  data  into  the  Ku-Band  Radar  simulation  program  and  computing 
statistics  over  the  same  range  intervals  as  in  the  flight  data  analysis  of 
Section  4.2.  The  simulation  outputs  were  differenced  with  their  corresponding 
reference  data,  and  the  mean  and  standard  deviation  were  computed.  Comparing 
this  data  against  the  specification  yields  the  following  observations.  The 
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range  standard  deviations  are  within  specification,  while  the  mean  is  not. 
However,  the  reason  the  mean  is  not  in  specification  is  due  to  artificially 
setting  a bias  in  the  program  code.  This  bias  value  should  probably  be 
changed.  The  range  rate  data  is  within  the  mean  and  standard  deviation 
specification  for  all  cases.  The  same  is  true  for  roll  angle  and  pitch 
angle.  However,  the  ILOS  roll  and  pitch  rate  standard  deviations  are  slightly 
out-of-specification  in  all  three  range  intervals.  The  reason  for  this  will  be 
drawn  into  focus  in  the  next  section  where  the  simulation  and  flight 
difference  data  statistics  are  compared. 


TABLE  4.3-1  PERFORMANCE  OF  THE  KU  BAND  RADAR  SIMULATION  MODEL  USING  THE 
PALAPA  SATELLITE  RENDEZVOUS  OF  MISSION  51A  AS  THE  INPUT 
TRAJECTORY 


TIME  INTERVAL, SEC 

4855  - 5890 

5890 

- 

6530 

6530 

- 6993 

RANGE  INTERVAL, FT 

43520  - 23040 

23040  - 

11520 

11520  - 5760 

1 

’ STD 

V 

f 

STD 

t 

' STD 

MEAN  ’ DEV 

f 

MEAN 

1 

« 

DEV 

MEAN 

• DEV 

t 

Range , Ft 

♦ 

t 

99.2  ’ 8.57 

t 

99.2 

f 

t 

f 

t 

5.37 

99.6 

» 

t 

' 3.1 

t 

Range  Rate, Ft/Sec 

-0.04  ' 0.06 

f 

0.0 

t 

f 

0.044 

-0.04 

’ 0.055 
* 

Roll  Angle, Deg 

0.015  • 0.044 

t 

0.029 

t 

f 

0.034 

-0.023 

' 0.054 

t 

Pitch  Angle, Deg 

0.066  ' 0.036 

f 

0.064 

f 

t 

0.041 

0.059 

1 

• 0.042 
» 

ILOS  Roll  Rate, 

3.59  • 1.02  E-4 

3.11 

f 

8.12  E-4 

' 2.25 

’1.86  E-3 

Deg/ Sec 

E-4  * 

• 

E-4 

t 

I 

' E-4 

J 

t 

f 

ILOS  Pitch  Rate, 

-1.22  ’4.24  E-3 

-1.01 

1 

4.10  E-3 

’ -8.36 

•3.26  E-3 

Deg / Sec 

E-3  • 

E-3 

t 

t 

1 E-4 

f 

f 

t 
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4.3.3  Comparison  with  Flight  Data  Performance 

The  purpose  of  this  subsection  is  to  compare  the  flight 

difference  data  to  the  simulation  difference  data.  First,  the  statistics  of 
these  two  data  sets  are  compared.  The  range  standard  deviations  compare  quite 
well.  The  simulation  seems  to  give  more  optimistic  estimates  here.  However, 
the  simulation  shows  a decreasing  trend  in  sigma  as  the  absolute  range 
decreases,  just  as  the  flight  data  does.  The  simulation  range  rate  standard 
deviation  compares  well  with  the  corresponding  flight  data.  Again,  the 

simulation  shows  more  optimistic  performance  than  the  flight  data  and  the 
comparison  becomes  closer  at  close  range.  The  differences  in  the  range  rate 
performance  are  not  serious  enough  to  question  the  fidelity  of  the  simulation 
in  this  area.  The  roll  and  pitch  angle  standard  deviations  for  the  flight  and 
simulation  data  are  both  excellent  for  all  three  range  intervals. 

A comparison  of  the  angle  rate  data  statistics  shows  some 
inconsistency  from  range  interval-to-range  interval.  In  both  roll  and  pitch 
rate,  the  flight  data  showed  the  random  component  progressively  getting  worse 
as  the  range  decreases.  The  simulation  data  on  the  other  hand  seems  to 
fluctuate  as  the  range  decreases.  This  seems  confusing!  Let's  try  to  make 

some  sense  of  it  by  considering  the  closest  range  interval.  In  this  case, 
roll  rate  flight  data  is  2.5  times  worse  than  the  simulation,  and  the  pitch 
rate  flight  data  is  3 times  worse  than  the  simulation  data.  As  discussed 

earlier,  it  is  felt  that  the  source  of  this  error  was  use  of  the  wrong 
reference  for  the  flight  data  analysis.  That  is,  the  reference  was  wrong 
because  the  apparent  randomness  in  the  angle  rate  was  removed  with  heavy 
smoothing  to  form  the  reference.  Based  on  the  analysis  of  the  SORTE  angle 

rate  data,  it  is  now  felt  this  "randomness'*  is,  in  fact,  part  of  the 
rendezvous  dynamics  or,  at  very  close  range  (less  than  2000  feet),  beam  wander 
on  the  target.  Another  fact  that  heavily  supports  this  conclusion,  is  that  a 
comparison  of  the  SORTE  flight  data  and  corresponding  simulation  data  showed 
excellent  agreement  (see  Figures  3.6-8  and  3.6-9).  In  this  case  there  was  a 
very  accurate  reference  to  inject  into  the  simulation.  It  is  recommended  that 
significantly  less  smoothing  be  used  in  the  generation  of  the  angle  range  data 
reference. 
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Another  method  of  analysis  is  to  compare  the  difference  data 
profiles  of  the  flight  and  simulation  data.  Figures  4.3-1  and  4.3-2  makes 
this  comparison  for  range  rate  and  roll  rate  in  the  time  interval  6500  to  7000 
feet  (or  range  interval  11500  to  5700  feet).  The  reason  for  the  discontinuous 
jump  of  0.12  feet  /sec  in  the  simulation  range  rate  data  is  not  known  at  the 
present.  Otherwise,  the  data  confirms  the  discussion  given  above. 
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FIGURE  4.3-1  A COMPARISON  OF  THE  KU-BAND  RADAR  AND  THE  SIMULATION  RANGE 
RATE  DIFFERENCE  DATA  FOR  THE  PALAPA  SATELLITE  RENDEZVOUS 
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FIGURE  4.3-2  A COMPARISON  OF  THE  KU-BAND  RADAR  AND  THE  SIMULATION  ILOS 

ROLL  RATE  DIFFERENCE  DATA  FOR  THE  PALAPA  SATELLITE  RENDEZVOUS 
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APPENDIX  A 


SOURCE  CODE  LISTING  OF  BASELINE  PROGRAM 


This  appendix  is  a listing  of  the  baseline  program  which  was 
obtained  from  JSC  at  the  beginning  of  the  contract.  The  program  is  available 
on  the  Building  44  VAX  and  resides  in  the  KUBAND. HOWARD  directory.  The  name 
of  the  source  program  is  HACSIM. 
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•V 


COMMON  /TARGET/ I TARG.SRCS 

COMMON  /ACTDAT/R . ARDOT , SPANG . SRANG . SPRTE , SRRTE.AL , BT , SALE . SBTA . 

1 ER(3) , EV(3) , ERTO(3) , A2RATE , ELRATE , AZRTE , ELRTE 

COMMON  /TERM/ I TERM 

COMMON  /OUTPUT/MSWF , MTF , MSF , SSRNG , SSRDOT . SSPANG , SSRANG . SSPRTE . 

2 SSRRTE . SSRSS , MADVF , MRDVF , MARDVF . MRRDVF 

3 .SSALP.SSBET 

COMMON  /SYSDAT/TS, DUM2 (14) 

C TEST  DATA  FROM  WS32TDATA1 

CHARACTER *9  FPRO(18) 

CHARACTER *32  IXT , IYT(22) , LPRO( 18) 

DATA  I XT/ ’TIME  SECONDS* 7 
DATA  IYT(1 )/’RANGE  FEET* 7 
DATA  IYT(2)/’RANGE  RATE  FT/SEC* 7 
DATA  IYT(3)/’ROLL  ANGLE  DEG$7 
DATA  IYT(4)/‘PITCH  ANGLE  DEG$ 7 
DATA  IYT(5)/’ROLL  RATE  DEG/SECS 7 
DATA  IYT(6)/'PITCH  RATE  DEG/SEC* 7 
DATA  1YT(7)/’ALPHA  DEG$7 
DATA  IYT (8)/’BETA  DEG$ ’ / 

DATA  I YT(9)/ ' AZ  RATE  DEG/SEC*’/ 

DATA  IYT( 10)/’ EL  RATE  DEG/SECS 7 
DATA  IYT (11)/’  X (NORTH)  FEET* 7 
DATA  IYT (12)/’  Y (EAST)  FEET* 7 
DATA  IYT( 13)/'— Z (ALTITUDE)  FEET* 7 
DATA  I YT( 14)/ ’ ELEVATION  ANGLE  DEG* 7 
DATA  IYT ( 1 5)/’DELTA  RANGE  FEET* 7 
DATA  IYT (16)/’ DELTA  RANGE  RATE  FT/SEC* 7 
DATA  IYT ( 1 7)/ ’DELTA  ROLL  ANGLE  DEG* 7 
DATA  IYT( 1 8)/’DELTA  PITCH  ANGLE  DEG* ’ / 

DATA  IYT ( 1 9)/’DELTA  ROLL  RATE  DEG/SEC*7 
DATA  IYT(20)/’DELTA  PITCH  RATE  DEG/SECS7 
DATA  IYT(21 )/’DELTA  ALPHA  DEG*'/ 

DATA  IYT(22)/' DELTA  BETA  DEG*'/ 

DATA  LPRO( 1 )/’  SIMULATION  PROFILE  HJ146*'/ 

DATA  LPRO(2)/’  SIMULATION  PROFILE  HL146*'/ 

DATA  LPRO(3)/*  SIMULATION  PROFILE  HL246*'/ 

DATA  LPRO(4)/'  SIMULATION  PROFILE  HL346*'/ 

DATA  LPRO(5)/'  SIMULATION  PROFILE  HL446*'/ 

DATA  LPRO(6)/’  SIMULATION  PROFILE  HL546*'/ 

DATA  LPRO(7)/’  SIMULATION  PROFILE  BJ146*'/ 

DATA  LPRO(8)/'  SIMULATION  PROFILE  BL146*'/ 

DATA  LPRO(9)/’  SIMULATION  PROFILE  BL246*'/ 

DATA  LPRO( 10)/ ' SIMULATION  PROFILE  BL346*’/ 

DATA  LPRO( 11)/'  SIMULATION  PROFILE  BL446*'/ 

DATA  LPRO( 12)/'  SIMULATION  PROFILE  BL546*’/ 

DATA  LPRO(13)/'  SIMULATION  PROFILE  C6P48*'/ 

DATA  LPRO( 14)/'  SIMULATION  PROFILE  C6M48*’/ 

DATA  LPR0(15)/'  SIMULATION  PROFILE  C6P30*’/ 

DATA  LPRO(16)/’  SIMULATION  PROFILE  C6M30*’/ 
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DATA  LPRO(17)/'  SIMULATION  PROFILE  CLP16S’/ 
DATA  LPRO(18)/’  SIMULATION  PROFILE  CLM16$’/ 
DIMENSION  RID(120) 

DATA  FPR0(1)/’HJ146. JSC ’/ 

DATA  FPR0(2)/’HL146 .BIN’/ 

DATA  FPRO(3)/’HL246 .BIN’/ 

DATA  FPR0(4)/’HL346.BIN’/ 

DATA  FPR0(5)/’HL446 .BIN ’/ 

DATA  FPRO(6)/’HL546 .BIN ’/ 

OATA  FPRO(7)/’BJ146.BIN’/ 

DATA  FPRO(8)/’BL146.BIN’/ 

DATA  FPR0(9)/’BL246.BIN’/ 

DATA  FPRO(10)/’BL346.BIN’/ 

DATA  FPRO( 1 1 )/’BL446 .BIN ’/ 

DATA  FPR0(12)/*BL546.B1N’/ 

DATA  FPRO( 13)/ 'C6P48.BIN ’/ 

DATA  FPRO( 14)/’C6M48 .BIN V 
DATA  FPRO( 15)/ ’C6P30.BIN ’/ 

DATA  FPRO( 16)/ ’C6M30.BIN ’/ 

DATA  FPRO( 17)/ ’CLP16.BIN ’/ 

DATA  FPRO( 18)/ ’CLM16.BIN ’/ 

CHARACTER *9  UNIT7 
BYTE  IC( 120) 

COMMON  /TMR/X , Y . Z , VX , VY , VZ , 

1 DLP(3) ,DEL(3) ,DUE(3) , 

2 DSU(3) .THAZL1 .THEL1  .THAZU1 
COMMON  /INPUT/RO(3) ,VO(3) ,EWB(3) 

DIMENSION  TP(2001 ) ,0(2001 ,22) 

WRITE  (6.*)’1  : TEK’ 

WRITE  (6, •) *2  : VT125’ 

WRITE  (6.*)’3  : VT240’ 

WRITE  (6,») *4  : PC’ 

READ  (5. •) ITERM 

WRITE( 6,.) ’PROFILE  NUMBER  PROFILE’ 

DO  L-1.18 

WRITE(6.200)L, LPRO(L) 

FORMAT (7X. I2.9X.A32) 

ENODO 

WRITE(6.*) 'INPUT  PROFILE  NUMBER’ 
READ(5,.)ITAPE 

WRITE(6 , •)  ’ENTER  NAME  OF  BINARY  INPUT.  FILE’ 
READ(5, 1001 )UNIT7 
FORMAT (A24) 

UNIT7-FPRO(ITAPE) 

OP EN(UNIT-4,F0RfcN’ UNFORMATTED’ .STATUS- ’OLD’ , 
2 FILE-UNIT7) 


150 


READ (4) IC 

WRITE(6,150)(IC(I), 1—1 ,30) 

FORMAT (60A2) 

IFTRK— 0 

WRITE(6, •) ’ INPUT  1 IF  YOU  WANT  TO  FILTER  USING  TRACK  FLAG’ 
READ(5.*) IFTRK 

WRITE(6 , • ) ’ INPUT  RSC  IN  SQUARE  METERS’ 

READ  (5,.)RCSM 
SRCS-RCSM*3 . 28»3 . 28 
SRCS— SQRT(SRCS) 

.»  W{?ITE(  6 . . ) ’ SRCS-’ , SRCS 
' TOUT-0  < 1 * 

:thazlv30i. 

THEL1-30. 

THAZU1-0. 

DLP(1)— 0.2347 
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C DATA 
1 

100 


99 

94 

68 


DLP(2)-0.05 
DLP(3)— 9.748 
DEL(1)— 0.192738 
DEL(2)— 0.055573 
DEL(3)— 3.299135 
DUE(1)«0.88 
DUE(2)— 0.55 
DUE  (3)— 0.39988 
DSU(  1 )»1 . 67 
DSU(2)-0.73 
DSU(3)— 5.46 

WRITE(6,») ' INPUT  1 FOR  SCREEN  OUTPUT’ 

READ(5 . »)TOUT 
J— 0 

READ(4,END-99)T.X,Y,Z.VX.VY.VZ 
READ(4, END-99) T1 .X , Y.2 . VX . VY . VZ 
TS-T1-T 

WRITE(6 , *)  ’ TS-  \TS 
CONTINUE 

READ ( 4 , END— 99 ) T , X , Y , Z , VX . VY , VZ 
IN  METERS 
CALL  TMR2KU 
1 F (TOUT . EQ. 1 )THEN 

WRI  TE( 6 , 1 00 ) T . SSRNG . SSSRRDOT . SSPANG , SRANG , SSPRTE . SRRTE . SALF . SBTA . 

AZRAT E , E LR AT  E , AZRT  E . E LRT  E 
FORMAT ( ’ ’ ,2F9. 1 ,9F9.3) 

END  IF 
CALL  EXEC 

IF(IFTRK. EQ. 1 .AND.MTF. EQ.0)GO  TO  1 
J-J+1 

IF(J . EO.2001 )GO  TO  99 

TP(J)-T 

D(  J , 1 )— SSRNG 

D(  J ,2)— SSRDOT 

D(J, 4)— SSPANG 

D(J ,3)— SSRANG 

D(J,5)— SSRRTE 

D(J .6)— SSPRTE 

D(  J ,7)— SSALP 

D(  J ,8)— SSBET 

D(  J ,9)— AZRTE 

D(J.10)-ELRTE 

D( J , 1 1 )-X 

D(J , 12)— Y 

D(  J . 13)— Z 

D(J , 14)— ATAND(— Z/(X*X+Y»Y)) 

D ( J . 1 5 )-SSRNG— R 
D ( J . 1 6 )— SSRDOT— ARDOT 
D ( J , 1 7 ) -SSRANG— SR ANG 
D ( J . 1 8 )— SSPANG-SPANG 
D( J . 1 9 )-SSRRTE-SRTE 
D ( J . 20 )-SSPRTE-SPRTE 
D(J .21 )— SSALP— SALF 
D(J ,22)-SSBET— SBTA 
GO  TO  1 
CONTINUE 
IXD-0 
CONTINUE 

1WRITE(6,») ’RCS  IN  METERS-’ .RCSM 
WRITE(6, •) ’PARA  AXES  TITLE’ 

DO  1-1 .22 

WRITE(6,68)I , IYT(I) 

FORMAT ( 1 X , I 4 , 1 0X , A32 ) 

ENDDO 
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WRITE(6,*) ’ INPUT  IXD.IYD  IXD-0  FOR  TIME* 

READ(5.*)IXD,IYD 

CALL  SORT(TP.D,J,ITAPE, IXD.IYD) 

GO  TO  94 
END 

SUBROUTINE  SORT(T,D, J, ITAPE, IXD, IYD) 
DIMENSION  D(2001 ,22) ,X(2001) ,Y(2001).T(2001) 
CHARACTER* 32  IXT , IYT(22) , LPRO( 18) 

DIMENSION  ITILT(8) , IXL(8) , IYL(8) 

DATA  IXT/’TIME  SECONDSS’/ 

DATA  IYT(1 )/’ RANGE  FEET$ ’/ 

DATA  IYT(2)/’RANCE  RATE  FT/SEC$’/ 

DATA  IYT (3)/’ROLL  ANGLE  DEG$'/ 

DATA  IYT(4)/’PITCH  ANGLE  DEG$ ’ / 

DATA  IYT(5)/'R0LL  RATE  DEG/SEC$’/ 

OATA  IYT(6)/’PITCH  RATE  DEG/SECS’/ 

DATA  IYT(7)/’ALPHA  DEG$ ’ / 

DATA  IYT(8)/’BETA  DEG$’/ 

DATA  IYT(9)/'AZ  RATE  DEG/SEC$V 
DATA  IYT(10)/’EL  RATE  DEG/SECS ’/ 

DATA  IYT( 11)/'  X (NORTH)  FEET$'/ 

DATA  IYT (12)/'  Y (EAST)  FEET$‘/ 

DATA  IYT(13)/’-Z  (ALTITUDE)  FEET$’/ 

DATA  IYT (14)/’  ELEVATION  ANGLE  DEG$’/ 

DATA  IYT( 15)/’DELTA  RANGE  FEET$*/ 

DATA  IYT( 16)/ ’DELTA  RANGE  RATE  FT/SEC$’/ 
DATA  IYT( 17)/ ’DELTA  ROLL  ANGLE  DEG$’/ 

DATA  IYT( 18)/ ’DELTA  PITCH  ANGLE  DEG$’/ 

DATA  IYT(19)/’DELTA  ROLL  RATE  DEG/SECS’/ 
DATA  IYT(20)/’ DELTA  PITCH  RATE  DEG/SEC$’/ 
DATA  IYT(21)/’DELTA  ALPHA  DEG$’/ 

DATA  IYT (22)/ ’DELTA  BETA  DEG$’/ 

DATA  LPRO( 1 )/ ’ SIMULATION  PROFILE  HJ146$’/ 

DATA  LPRO(2)/’  SIMULATION  PROFILE  HL146$’/ 

DATA  LPRO(3)/’  SIMULATION  PROFILE  HL246S’/ 

DATA  LPR0(4)/’  SIMULATION  PROFILE  HL346SV 

DATA  LPRO(5)/‘  SIMULATION  PROFILE  HL446S’/ 

DATA  LPRO(6)/’  SIMULATION  PROFILE  HL546$’/ 

DATA  LPRO(7)/’  SIMULATION  PROFILE  BJ146S’/ 

DATA  LPRO(8)/’  SIMULATION  PROFILE  BL146S’/ 

DATA  LPRO(9)/’  SIMULATION  PROFILE  BL246S’/ 

DATA  LPRO( 10)/ ’ SIMULATION  PROFILE  BL346S’/ 

DATA  LPRO(1 1 )/’  SIMULATION  PROFILE  BL446$’/ 

Data  LPR0(12)/’  SIMULATION  PROFILE  BL546S’/ 

DATA  LPRO( 13)/’  SIMULATION  PROFILE  C6P48S’/ 

DATA  LPRO( 14)/’  SIMULATION  PROFILE  C6M48S’/ 

DATA  LPRO( 15)/’  SIMULATION  PROFILE  C6P30$’/ 

DATA  LPRO( 16)/’  SIMULATION  PROFILE  C6M30$’/ 

DATA  LPRO(17)/’  SIMULATION  PROFILE  CLP16$’/ 

DATA  LPRO(18)/’  SIMULATION  PROFILE  CLM16$’/ 

JPRO-ITAPE 

CALL  FIXIT(ITILT, LPRO( JPRO)) 

IF( IXD. EQ.0)THEN 
DO  1-1. J 
X(I)-T( I) 

Y( I )— 0( I , IYD) 

ENDDO 

CALL  FIXIT(IXL.IXT) 

CALL  FIXIT( IYL, IYT( IYD) ) 

ELSE 

DO  1-1, J 

X( I )— D( I , IXD) 

Y(  I )-0(  I , IYO) 

ENDDO 
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CALL  FIXIT(IXL.IYT(IXD)) 

CALL  FIXIT(IYL.IYT(IYD)) 

END  IF 

CALL  PLOTIT( ITILT,IXL,IYL,X,Y,J) 

RETURN 

END 

SUBROUTINE  FIXIT( IOUT , IN) 

DIMENSION  10UT(8) 

CHARACTER *4  ITEMP(8) 

CHARACTER. 32  IN 
ITEMP(1)«(IN(1 :4)) 

ITEMP(2)-(IN(5:8)) 

ITEMP(3)-(IN(9:12)) 

ITEMP(4)«(IN(13:16)) 

ITEMP(5)-(IN(17:20)) 

ITEMP(6)-(IN(21 :24) ) 

ITEMP(7)-(IN(25:28)) 

ITEMP(8)-(IN(29:32)) 

ENC0DE(32,999.1OUT)(ITEMP(I),l-1 .8) 

999  FORMAT (8A4) 

RETURN 

END 

SUBROUTINE  PLOTIT( ITI LT , IXL. IYL.X . Y . J ) 

COMMON  /TERM/ 1 TERM 

DIMENSION  IT1LT(8).IXL(8),IYL(8) 

DIMENSION  X(1),Y(1) 

BYTE  CR(2) 

COMMON/TMR/A,B,C,D, E, F,G(3),AH(3),AI(3),AJ(3) .THAZL1 .THEL1 , THA2U1 

CR(1)-27 

CR(2)«12 

XMAX-X(I) 

XMIN-X(I) 

YMAX-Y(I) 

YMIN-Y(I) 

DO  1-1 ,J 

IF(X(I).GT. XMAX)  XMAX-X(I) 

IF(X( I ) . LT . XMIN)  XMIN-X(I) 

IF(Y( I ) .GT. YMAX)  YMAX-Y(I) 

IF(Y(I) .LT.YMIN)  YMIN-Y(I) 

END  DO 

IF(XMAX . EO.XMIN)XMAX— XMIN.1 . 1 
IF(YMAX.EO.YMIN)YMAX-YMIN«1 .1 
IF  (ITERM.EQ.1)  CALL  TEKALL(41 14,480,0, 1 .0) 

IF  (ITERM.EQ.2)  CALL  REGIS  (1,0) 

IF  (ITERM.EQ.3)  CALL  PVT240 
CALL  BGNPL(-I) 

CALL  FLATBD 
CALL  PAGE( 1 4 . ,18.) 

CALL  HEIGHT( .3) 

CALL  TITLE( ITI LT, 100, IXL, 100 , IYL, 100, 9 .0, 13. 5) 

1100-100 

CALL  MESSAG( ' LOWER  AZIMUTH-S ‘ , 1 100 , 1 .7, 13. ) 

CALL  REALNO(THAZL1 .2. ’ABUT’ , 'ABUT’) 

CALL  MESSAG( 1 UPPER  AZIMUTH-S *,1 100 , 1 .7 . 12.5) 

CALL  REALNO(THAZU1 .2. 'ABUT' . 'ABUT' ) 

CALL  MESSAG(’ ELEVATIONS’  ,1100,1.7,12.) 

CALL  REALNO(THEL1 ,2, ’ABUT’ , ’ABUT’) 

CALL  BLNK1(1 .5,7.5,11 .9,13.5,4) 

CALL  HEADIN(ITILT,— 100,— 8,4) 

CALL  HEADIN( ’ LOWER  AZIMUTH-S’ . 100,4,4) 

CALL  REALNO(THAZL1 ,2, ’ABUT’ , ’ABUT’ ) 

CALL  HEAD1N( ’UPPER  AZIMUTH-S’ . 100,4,4) 

CALL  REALNO(THAZU1 . 2 , ’ ABUT ’ , ’ ABUT ’ ) 

CALL  HEADIN(’ELEVATION-S’ ,100,4.4) 
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CALL  REALN0(THEL1 .2, 'ABUT' , ’ABUT’ ) 

CALL  YAXANG(0.) 

CALL  GRAP(XMIN,  ’SCALE’  ,XMAX,YMIN,  ’SCALE’  .YMAX) 

CALL  CURVECX.Y.J.e) 

KK-J/30 
K-0 

DO  1-1 ,KK 
K-30+K 

CALL  RLINT(K,X(K) ,Y(K)) 

ENDDO 

CALL  GRID(I.I) 

CALL  HEIGHT (.1) 

CALL  RESET( ’HEIGHT’) 

FORMAT ( ’+’ ,2A1 ) 

CALL  DONEPL 
C MICKEY  MOUSE  FIX 
IMb^l 

IF(IMM.EO.0)THEN 
REWIND  (5) 

READ(5, 192)IC 
192  FORMAT(AI) 

WRITE(6,888)CR 
END  IF 
RETURN 
END 

SUBROUTINE  TMR2KU 
C •*  MOOED  JWG  2/8/85 

C •• 

C *•  INPUT  VIA  COMMON  VIA  X,Y,Z,VX,VY,VZ 
C ••  OUTPUT  VIA  COUPON  /ACTDAT/ 

C *» 

C • WHITE  SAMOS  TO  KU-BANO  RADAR  PARAMETER  CONVERSION  ••• 


C •••••••  COMMENTARY 

C 

C 

C ••  PURPOSE  •• 


C THIS  SOFTWARE  TAKES  THE  POSITION  AND  VELOCITY  OF  A TARGET  REFERENCED 
C TO  THE  PEARL  SITE  SURVEY  CAP  AND  CALCULATES  THE  VALUES  OF  THE  KU-BAND 
C RADAR  PARAMETERS  AS  SEEN  AT  THE  KU-BAND  RADAR  GIMBAL  AXES  INTERSECTION. 
C iHe.SE  CALCULATIONS  INVOLVE  CuufiDiNATE  ROTATIONS  THROUGH  A THREE— AXIS 
C POSITIONER  AND  FOUR  TRANSLATIONS  FROM  THE  PEARL  CAP  TO  THE  RADAR  GIMBAL 
C AXES  INTERSECTION. 

C 

C THESE  CALCULATIONS  ARE  TO  BE  DONE  BY  WSMR  DATA  REDUCTION  USING  THE  WSMR 
C RANGE  REFERENCE  ESTIMATIONS  OF  TARGET  LOCATION  WITH  TIME.  COMPARISON 
C CAN  BE  MADE  DIRECTLY  WITH  THE  KU-BAND  OUTPUTS  FOR  THE  SAME  TIME  VALUES. 
C 

C • • INPUTS  * CONSTANTS  •* 

C 

C WSMR  PROVIDED  INPUTS: 

C WSMR  WILL  PROVIDE  TARGET  POSITION  - X.  Y.  Z - AND  VELOCITY  - VX,  VY. 

C VZ  AS  INPUTS  TO  THIS  PROGRAM. 

C UNITS  ARE  FEET  ANO  FEET/SECOND. 

C THE  COORDINATE  SYSTEM  IS: 

C ORIGIN  - PEARL  SURVEY  CAP 

C X-AXIS  IS  POSITIVE  TOWARD  THE  NORTH 

C Y-AXIS  IS  POSITIVE  TOWARD  THE  EAST 

C NEGATIVE  Z-AXIS  IS  UPWARD  ALONG  THE  LOCAL  VERTICAL. 

C 

C CONSTANTS  PROVIDED  BY  SIMULATION  TEST  TAPE: 


C 

C 

C 

C 

C 

C 


888 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 


FOR  ANY  GIVEN  TEST  THE  FOLLOWING  PARAMETERS  WILL  BE  DEFINED  ON  THE 
SIMULATION  MAGNETIC  DATA  TAPE  AND  WILL  REMAIN  CONSTANT  FOR  THAT  TEST: 
DSU(I)  1-1,3  IS  THE  LOCATION  OF  THE  KU-BAND  RADAR  GI^AL  AXES  IN 
UPPER  AZIMUTH  COORDINATES. 

THAZL1  IS  THE  LOWER  AZIMUTH  AXIS  ROTATION  ANGLE  IN  DEGREES. 

THEL1  IS  THE  ELEVATION  AXIS  ROTATION  ANGLE  IN  DEGREES. 

THAZU1  IS  THE  UPPER  AZIMUTH  AXIS  ROTATION  ANGLE  IN  DEGREES. 


ONE  TIME  INPUT  CONSTANTS: 

THE  FOLLOWING  PARAMETERS  WILL  BE  MEASURED  AFTER  INSTALLATION  OF  THE 
ANTENNA  PEDESTAL  AT  THE  PEARL  SITE.  THEIR  VALUES  SHOULD  NOT  CHANGE. 
THEY  ARE  CURRENTLY  DEFINED  AS  ZERO  IN  THIS  SOFTWARE. 

DLP(I)  1-1,3  LOCATION  OF  THE  LOWER  AZIMUTH  ORIGIN  IN  PEARL 
COORDINATES. 

DEL(I)  1-1,3  LOCATION  OF  THE  ELEVATION  ORIGIN  IN  LOWER  AZIMUTH 
COORDINATES. 

DUE(I)  1-1,3  LOCATION  OF  THE  UPPER  AZIMUTH  ORIGIN  IN  ELEVATION 
COORDINATES. 


**  SOFTWARE  OUTPUTS  •• 

THIS  SOFTWARE  PRODUCES  THE  FOLLOWING  OUTPUTS  REFERENCED  TO  THE 
RADAR  GIMBAL  AXES  INTERSECTION. 


R - RANGE  (FT) 

ARDOT  - RANGE  RATE  (FT/SEC) 

SRANG  - ROLL  ANGLE  (DEG) 

SPANG  - PITCH  ANGLE  (DEG) 

SRRTE  - INERTIAL  ROLL  RATE  (DEG/SEC) 
SPRTE  - INERTIAL  PITCH  RATE  (DEG/SEC) 
SALF  « ALPHA  ANGLE  (DEG) 

SBTA  - BETA  ANGLE  (DEG) 

AZRTE  - AZIMUTH  ANGLE  RATE  (DEG/SEC) 
ELRTE  - ELEVATION  ANGLE  RATE  (DEG/SEC) 


••  EXAMPLE  •• 

AN  EXAMPLE  CASE  IS  INCLUDED  IN  THE  CODE.  IF  THIS  SOURCE  IS  COMPILED. 
LINKED,  AND  EXECUTED,  OUTPUTS  WILL  GO  TO  UNIT  6.  THEIR  VALUES  SHOULD 


BE* 

R * 43760.6016 
SRANG  - 25.2644920 
SRRTE  - -. 92681 8550E-01 
SALF  - -36.1578255 
AZRTE  - . 302744657E— 01 


ARDOT  - -9.87364578 
SPANG  - 28.2407990 
SPRTE  - . 688237743E-02 
SBTA  - 9.27430439 
ELRTE  - -.105446391 


COMMON  /TMR/X , Y , Z , VX , VY , VZ , 

1 DLP(3) ,DEL(3) , DUE(3) , 

2 DSU(3) , THAZL1 ,THEL1 , THAZU1 
C0M40N  /INPUT/RO(3),VO(3),EWB(3) 

COMMON  /ACTDAT/R , ARDOT . SPANG , SRANG , SPRTE , SRRTE . AL . BT , SALF . SBTA . 
1 ER ( 3 ) , EV ( 3 ) , ERTO ( 3 ) , AZR AT  E , E LRATE , AZRT E, ELRTE 
DIMENSION  DLP(3) ,DEL(3) ,DUE(3) ,DSU(3) 

DIMENSION  AZL(3,3) , ELV(3,3) ,AZU(3,3) 

DIMENSION  DPT (3) , DLT(3) ,DET(3) ,DUT(3) ,DST(3) 

DIMENSION  DLAZ(3),DELV(3).DAZU(3) 

DIMENSION  VPT (3) , VLAZ(3) , VELV(3) , VST (3) 

DATA  DEGRAD/57. 275/, PI/3. 14159/ 

THE  EWB  PARAMETERS  ARE  ALWAYS  DEFINED  AS  0.0 
EWB(  1 )— 0. 0 
EWB(2)— 0.0 
EWB(3)— 0.0 

EXAMPLE  CASE  VALUES: 
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X-39417.2812 
Y-16164.0078 
Z— 9999 . 6S820 
VX— 41 .1736259 
VY-73. 6755753 
VZ- . 1 66666671 E-02 
THAZL2-45.0 
THEL2— 45.0 
THAZU2-0.0 


••  INPUTS  •• 

WSMR  WILL  NORMALLY  PROVIDE  X,Y,Z.VX,VY.VZ.  REF  IS  PEARL  SURVEY  POINT. 

THIS  IS  PROVIDED  VIA  COMMON  TMR  BLOCK 
DPT(1)-X 
DPT(2)-Y 
DPT(3)-Z 
VPT(1)-VX 
VPT(2)-VY 
VPT(3)-VZ 


•*  CONSTANTS  *• 

DLP(I);  DEL(I);  AND  DUE(I)  WILL  BE  PROVIDED  ONE  TIME  AFTER  INSTALLATION 
OF  THE  ANTENNA  PEDESTAL 
THIS  IS  PROVIDED  VIA  COMMON  TMR  BLOCK 
DLP(1 )-0.0 
DLP(2)-0-0 
DLP(3)-0.0 
OEL(1)-0.0 
DEL(2)-0.0 
OEL(3)-0.0 
DUE(1)-0.0 
DUE(2)-0.0 
DUE(3)-0.0 


••  CONSTANTS  FROM  SIMULATION  DATA  TAPE  •• 
THIS  IS  PROVIDED  VIA  COMMON  TMR  BLOCK 
DSU(1)-0.0 
DSU(2)-0.0 
DSU(3)«0.0 
THAZL1-0.0 
THEL1-0.0 
THAZU1-0.0 

EXAMPLE  ANGLE  VALUES  ARE  EQUATED  HERE. 
THAZL1-THAZL2 
THEL1-THEL2 
THAZU1-THAZU2 
CONVERT  TO  RADIANS 

THAZL-THAZL1/DEGRAD 
THEL-THEL1 /DEGRAD 
THAZU-THAZU 1 /DEGRAD 

C SET  UP  THE  ROTATIONAL  MATRICES 
CALL  AZGEN(AZL.THAZL) 

CALL  ELGEN(ELV.THEL) 

CALL  AZGEN ( AZU , THAZU ) 

C CONVERT  TARGET  IN  PEARL  TO  TARGET  AT  GIMBALS 
DO  11  1-1 .3 

11  DLT(I)«OPT(I)-OLP(I) 

CALL  MULT31 (AZL.DLT.DLAZ) 

DO  21  1-1  ,3 

21  DET( I )-OLAZ( I )-DEL( I ) 
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31 


CALL  MULT31 ( ELV ,DET , DELV) 

DO  31  1-1 ,3 
OUT ( I )— DELV( I )— DUE( I ) 

CALL  MULT31 (AZU ,DUT ,DAZU) 

DO  41  1-1  ,3 
41  DST(I )— DAZU( I )— DSU( I ) 

C THESE  ARE  THE  THREE  TARGET  COORDINATES  IN  RADAR  GIMBAL  REFERENCE. 
RO(1 )-OST( 1 ) 

RO(2)-DST(2) 

RO(3)-OST(3) 

C CONVERT  TO  VELOCITIES  REFERENCED  TO  GIMBALS 
CALL  MULT31 (AZL, VPT.VLAZ) 

CALL  MULT31 (ELV, VLAZ.VELV) 

CALL  MULT31 (AZU.VELV.VST) 

C THESE  ARE  VELOCITIES  IN  GIMBAL  REFERENCE. 

VO( 1 )— VST ( 1 ) 

VO(2)-VST(2) 

VO(3)-VST(3) 

RO(I)  VO(I)  1-1,3  SHUTTLE  BODY  POS  AND  VEL  VECTOR 

CALCULATE  THE  KU-BAND  RADAR  PARAMETERS  BASED  ON  THE  INPUTS. 
C23-COSD ( 23 . ) 

S23— S I ND ( 23 . ) 

X1-RO(2)*C23-RO(3)*S23 
Y1— RO(2) *S23— RO(3)*C23 
21— RO(1) 

RO( 1 )— XI 
RO(2)-Y1 
RO(3)-Z1 

VX-VO ( 2 ) -C23-VO ( 3 ) * S23 
VY— VO  ( 2 ) * S23-VO  ( 3 ) «C23 
VZ— VO(  1 ) 

VO(1)-VX 
VO(2)-VY 
VO(3)-VZ 
CALL  ACT 

SRRTE-SRRTE* (DEGRAD/1 000 . ) 

SPRTE-SPRTE* (DEGRAD/1000 . ) 

SALF-AL*DEGRAD 
SBTA-BT  * DEGRAD 
AZRT E-AZRAT  E * DEGRAD 
ELRTE-ELRATE*DEGRAD 
THE  EXAMPLE  CASE  RESULTS  ARE: 

WRITE(6 , • )R , ARDOT 
WR I T E ( 6 , * ) SR ANG , SPANG 
WRITE(6, *)SRRTE,SPRTE 
WRITE(6 , • )SALF ,SBTA 
WRITE(6 , * )AZRTE, ELRTE 
RETURN 
END 

SUBROUTINE  AZGEN ( AZ , ANGAZ ) 

C THIS  SUBROUTINE  PRODUCES  A 3X3  MATRIX,  AZ.  FOR 
C AN  AZIMUTH  TABLE  ROTATION  OF  ANGAZ  RADIANS. 

DIMENSION  AZ(3.3) 

DO  10  1-1 ,3 
DO  10  J-1 ,3 
10  AZ(I ,J)-0.0 

AZ(1 ,1)-COS( ANGAZ) 

AZ(1 ,2)-SIN(ANGAZ) 

AZ(2, 1 )— SIN(ANGAZ) 

AZ(2,2)-COS( ANGAZ) 

AZ(3,3)*1 .0 
RETURN 
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END 

SUBROUTINE  ELGEN( EL, ANGEL) 
DIMENSION  EL(3,3) 

DO  10  1-1,3 
DO  10  J-1,3 
10  EL(I,J)-0.0 

EL(1 , 1 )—COS( ANGEL) 

EL(1 ,3)— SIN(ANGEL) 
EL(2.2)-1.0 
EL(3, 1 )-SIN(ANGEL) 
EL(3.3)-C0S( ANGEL) 

RETURN 
END 

SUBROUTINE  ACT 


* THIS  SUBROUTINE  INITIALIZES  THE  ANGLE  TRACKING  LOOPS,  THE  • 

* RANGE  TRACKING  LOOP.  AND  THE  VELOCITY  PROCESSOR  STEADY  • 

* STATE  CONDITIONS  ARE  ASSUMED.  * 


SUBROUTINE  ACT 

COMMON  / ACTDAT/R , ARDOT , SPANG , SRANG . SPRTE, SRRTE , AL . BT , SALF . SBTA 
2 . ER(3) , EV(3) , ERTO(3) ,AZRATE,ELRATE, AZRTE, ELRTE 
COMMON  /INPUT/  ERT(3) . EVT(3) . EWB(3) , DUM( 18) 

COMMON  /SYSDAT/TSAM , DR ( 3 ) , CP . SP . PS I . PSB I AS , DUM2 ( 7 ) , TRB ( 3 , 3 ) 
DIMENSION  FLTWID(3),RI(10) 

DIMENSION  TX1 (3.3) ,TX2(3 ,3) ,TX3(3,3) ,TBL(3.3) 

DATA  PI/3. 141592653/ 

DATA  I ONE/0/ 

IF( IONE. EQ.0)CALL  DATA 
IONE-1 

STEP  1-1:  COMPUTE  INITIAL  INNER  AND  OUTER  GIMBAL  POSITIONS. 

(NOTE:  TRANSFORM  CONSISTS  OF  TRANSLATION  PLUS  ROTATION.) 

PERFORM  TRANSLATION  SHIFT  TO  RADAR  FRAME  ORIGIN. 

DO  1 1-1  .3 

1 ERTO( I )— ERT ( I )— DR( I ) 

TRANSFORM  TARGET  POSITION  FROM  BODY  TO  RADAR  FRAME. 

CALL  MULT31 (TRB . ERTO, ER) 

TRANSFORM  TARGET  VELOCITY  FROM  BOOY  TO  RADAR  FRAME. 

CALL  MULT31 (TRB, EVT.EV) 

SQ-SQRT(ER(2)»ER(2)+ER(3)*ER(3) ) 

COMPUTE  INNER(BETA)  GIMBAL  POSITION  BT. 

IF(ER(1 ) . EO. 0.0. AND. SO. EQ.0.0)  STOP 
BT— ATAN2(ER(1 ) ,SO) 

ER2— ER(2) 

ER3— ER(3) 

COMPUTE  OUTER(ALPHA)  GIMBAL  POSITION  AL. 

IF(ER2. EO. 0.0. AND. ER3. EQ.0.0)  GO  TO  8 
AL— ATAN2(ER2. ER3) 

GO  TO  9 

8 IF(ER(1 ) .GT.0.0)  AL-PI/2. 

IF(ER(1 ) . LT.0.0)  AL— PI/2. 

IF(ER(1). EQ.0.0)  STOP 

STEP  1-2:  COMPUTE  INITIAL  TARGET  INERTIAL  LOS  AZIMUTH  AND 
ELEVATION  RATES. 

PRELIMINARY  TRIGONOMETRIC  COMPUTATIONS. 

9 CA— COS(AL) 

SA— SIN(AL) 

CB— COS(BT) 


00015100 

00015110 

00015120 

00015130 

00015140 

00015150 

00015160 

00015170 

00015180 


00015210 

00015250 


00015560 

00015570 

00015580 

00015590 

00015600 

00015610 

00015640 

00015650 

00015660 

00015670 

00015680 

00015690 

00015700 

00015710 

00015720 

00015730 

00015740 

00015750 

00015760 

00015770 

00015780 

00015790 

00015800 

00015810 

00015820 

00015830 

00015840 

00015850 

00015860 

00015870 
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SB-SIN(BT)  00015880 

C TRANSFORM  BODY  ANGULAR  VELOCITY  VECTOR  FROM  BODY  TO  OUTER  00015890 

C GIMBAL(G)  REFERENCE  FRAME.  00015900 

WGX«CP*EWB(1)+SP*EWB(2)  00015910 

WGY=CA« (-SP*EWB(1 )+CP«EWB(2))+SA*EWB(3)  00015920 

WGZ— S A . ( -SP • EWB ( 1 ) +CP  * EWB ( 2 ) ) +C  A * EWB ( 3 ) 00015930 

C COMPUTE  THE  RANGE  TO  TARGET.  00015940 

R=SQRT(ER(1).ER(1)+ER(2)*ER(2)+ER(3).ER(3))  00015950 

YZR“SQRT(ER(2)*ER(2)+ER(3)*ER(3) ) 

C COMPUTE  RANGE  RATE  TO  TARGET 

ARD0T-(ER(1)»EV(1)+ER(2)«EV(2)+ER(3)*EV(3))/R 
C COMPUTE  INITIAL  TARGET  INERTIAL  LOS  AZIMUTH  RATE(AZRATE) . 00015960 

VGY-CA*EV(2)+SA*EV(3)  00015970 

AZRATE“VGY/R+ ( CB  *WGX-SB  * WGZ ) 000159 

C COMPUTE  INITIAL  TARGET  INERTIAL  LOS  ELEVATION  RATE(ELRATE) . 00015990 

ELRATE— (CB*EV(1 )-SB»(-SA*EV(2)+CA*EV(3)))/R+WGY  00016000 

C 00026710 

C • STEP  1:  UPDATE  ROUGH  RANGE  RATE  ESTIMATE  * 00026720 

C * ...  00026730 

C 00025530 

C • • * 00025540 

C • STEP  1:  UPDATE  ANTENNA  LOS-TO-BODY  TRANSFORMATION  (NOTE:  TRANS-  « 00025550 

C * FORMATION  INCLUDES  G1MBAL  BIAS  ERRORS  AND  RADAR  YAW  * 00025560 

C » ANGLE  ERROR  WRT  BODY  FRAME).  * 00025570 

C 00025580 

CALL  GAMMA(TX1 (BT+BTBIAS) ) 00025590 

CALL  THETA(TX2,— (AL+ALBIAS) ) 00025600 

CALL  MULT33(TX2 ,TX1 , TX3)  00025610 

CALL  PHI (TX2 PSI ) 00025620 

CALL  MULT33(TX2 , TX3 , TBL)  00025630 

C 00025640 

C 00026140 

C • STEP  6:  TRANSFORM  TARGET  ANGLES  AND  INERTIAL  ANGLE  RATES  TO  * 00026150 

C * BODY  FRAME  FOR  USE  IN  DISPLAYS  AND  G AND  N.  « 00026160 

C 00026170 

C NOTE:  TRANSFORMATION  TBL  INCLUDES  GIMBAL  BIAS  ERRORS  AND  RADAR  YAW  00026180 
C ANGLE  ERROR  WRT  BODY  FRAME.  00026190 

C UPDATE  TARGET  INERTIAL  PITCH  RATE  IN  ORBITER  BODY  COORDINATES  00026200 

C FOR  DISPLAY.  00026210 

SPRTE— 1 000 . » ( TB  L ( 2 . 1 ) . AZRATE+TB  L ( 2 , 2 ) * ELRATE)  00026220 

C UPDATE  TARGET  INERTIAL  ROLL  RATE  IN  ORBITER  BODY  COORDINATES  00026230 

C FOR  DISPLAY.  00026240 

SRRTE— 1000,.(TBL(1 , 1 )*AZRATE+TBL(1 ,2)*ELRATE)  00026250 

C UPDATE  ANTENNA  PITCH  ANGLE  IN  ORBITER  BODY  COORDINATES  FOR  DISPLAY.  00026260 
SPANG— ASIN( TBL (1 .3) )«57 .29576  00026270 

C UPDATE  ANTENNA  IN  ORBITER  BODY  COORDINATES  FOR  DISPLAY.  00026280 

IF(TBL(2,3) .EQ. 0.0. AND. TBL (3, 3) .EQ.O.0)  GO  TO  5 00026290 

SRANG— ATAN2 ( -TB  L ( 2 , 3 ) . TB  L ( 3 , 3 ) ) • 57 . 29576  00026300 

GO  TO  7 00026310 

5 IF(TBL(1 ,3) .GT. 0.0)  SRANG— 90.0  00026320 

IF(TBL( 1 .3) . LT.0.0)  SRANG-90.0  00026330 

IF(TBL( 1 ,3) . EQ.0.0)  STOP  00026340 

C RESOLVE  POSSIBLE  ANGLE  AMBIGUITIES,  VIZ. . -90. <SPANG<90.  AND  00026350 

C — 1 80 . <SRANG<1 80 . 00026360 

7 I F ( SPANG . LE . 90 . ) GO  TO  10  00026370 

SPANG— (180. -ABS ( SPANG ) ) • ( SPANG/ABS ( SPANG ) ) 00026380 

SRANG»( 1 80. -ABS ( SRANG ))•( SRANG/ ABS( SRANG))  00026390 

10  CONTINUE  00026400 

RETURN  00026510 

END  00026520 

C 00029600 

C 00029610 

C 00029620 

C • THIS  SUBROUTINE  INITIALIZES  ALL  DATA  REQUIRED  BY  THE  SEARCH,  * 00029630 
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• ACQUISITION.  AND  TRACK  SUBPROGRAMS. 


ORIGINAL  9^ 

Of  prr-ti  QUALITY 


* 


* THIS  SUBROUTINE  INITIALIZES  ALL  DATA  REOUIRED  BY  THE  SEARCH,  * 

• ACQUISITION,  AND  TRACK  SUBPROGRAMS.  • 


SUBROUTINE  DATA 
REAL  IDUM1 

COMMON  /RTDAT/IDUM1 (2) , RB I AS , DUM1 (9) 

COMMON  /SYSDAT/TSAM , DR  ( 3 ) . CP , SP , PS  I . PSB I AS , A LB  I AS . BTB I AS . GP , GA , 
2 TGTS I G , GPS , G AS . TRB ( 3 , 3 ) 

COMMON  /NO I S E/NS 1 , NS2,NN( 10) , GAUSS ( 320 ) 

DIMENSION  A(3f3).B(3.3).C(3,3) 

REAL  LT , KTS 


* SYSTEM  PARAMETERS  * 


PI-3.1415926 
PI  I— PI/180 . 

RADAR  FRAME  YAW  ANGLE  IN  BODY  COORDINATES  (DEGREES). 

PS I— PI  1*67.0 
CP-COS(PSI) 

SP— S I N ( PS I ) 

RADAR  LOCATION  OFFSET  FROM  ORBITER  C.G.  IN  BODY  COORD.  (FEET) 
*«•*  VALUES  MODIFIED  MAR  24  83  PER  FM8  MEMO  ************ 

DR( 1 )-45. 738 
DR(2)-1 1.130 
DR (3)— —5 . 79 

RANGE  BIAS  ERROR  IS  COMPUTED  IN  SUBROUTINE  RTRACK  AS 
FUNCTION  OF  RANGE 
ALPHA  GIM8AL  BIAS. 

ALB I AS— 0 . 0 
BETA  GIMBAL  BIAS. 

BTB1AS— 0. 0 

RADAR  PLATFORM  ORIENTATION  ERRORS  WITH  RESPECT  TO  BODY  FRAME. 

YAW  ANGLE  ERROR. 

PSB I AS— P 11*0.1 

ROLL  ANGLE  ERROR. 

RLB I AS— P 11*0.25 
PITCH  ANGLE  ERROR. 

PTBIAS-PI 1*0.25 


00029640 

00029650 

00029660 

00029670 

00029610 

00029620 

00029630 

00029640 

00029650 

00029660 

00029670 

00029680 

00029685 

00029690 

00029700 

00029710 

00029720 

00029725 

00029730 

00029740 

00029750 

00029760 

00029770 

00029780 

00029790 

00029800 

00029820 

00029830 

90029840 

00029850 

00029860 

00029870 


00029920 

00029930 

00029940 

00029950 

00029952 

00029954 

00029956 

00029958 

90629369 

00029962 

00029964 

00029966 

00029968 

00029970 


NBIAS-0  FOR  N0  BIAS  AND  RADAR  AT  ORGIN 


NBIAS— 1 

IF(NBIAS . NE.0)GO  TO  700 

01  FORMAT ( * ALL  ANGLE  BIAS  SET  TO  ZERO  RADAR  AT  ORGIN* ) 

DO  4 1-1,3 
4 DR(  I )— 0.0 

PS  I— 0.0 
PSB IAS-0.0 
RLBIAS— 0.0 
PTB IAS-0.0 

700  CONTINUE 

00029972 

COMPUTE  MATRIX  OF  TRANSFORMATION  FROM  BODY  FRAME  TO  RADAR  FRAME.  00029974 
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CALL  PHI (B.PSI+PSBIAS) 

00029976 

CALL  THETA(A.RLBIAS) 

00029978 

CALL  MULT33(A,B,C) 

00029980 

CALL  GAWMA(A.PTBIAS) 

00029982 

CALL  MULT33(A ,C , TRB) 

00029984 

c 

00029990 

c 

• SYSTEM  SAMPLE  INTERVAL  • 

00030000 

c 

00030010 

c 

00030030 

c 

00030040 

c 

• COMPUTE  SNR  CONSTANT  • 

00030050 

c 

00030060 

c 

EQUIVALENT  ONE-SIDED  NOISE  POWER  SPECTRAL  DENSITY  (MW/KHZ) 

00030070 

KTS— 137.5 

00030080 

KTS-10. ••(0. 1*KTS) 

00030090 

c 

SYSTEM  LOSSES  ON  TRANSMIT  (DB) . 

00030106 

LT-2.5 

00030110 

LT«10.**(0. 1*LT) 

00030120 

c 

ONE-WAY  ANTENNA  GAIN  (DB) . 

00030130 

G-37.7 

00030140 

G— 10. »»(0. 1*G) 

00030150 

ALMBDA-0 . 070845 

00030160 

c 

CONSTANT  FOR  PASSIVE  TRACKING  SNR  COMPUTATION. 

00030170 

GP— 4 . • (G**2) • ( ALMBDA»*2)/( (4.»PI)»»3*LT  »KTS) 

00030180 

c 

BEACON  PARAMETER  (DBM) 

00030190 

BCN-44 . 0 

00030200 

BCN-10. »»(0. 1*BCN) 

00030210 

c 

CONSTANT  FOR  ACTIVE  TRACKING  SNR  COMPUTATION. 

00030220 

GA-4. *G*ALMBDA**2*BCN/((4. *PI)»»2*KTS) 

00030230 

c' 

CONSTANT  FOR  PASSIVE  MODE  VIDEO  SNR  COMPUTATION  (DB) . 

00030240 

GPS-183 . 9 

00030250 

c 

CONSTANT  FOR  ACTIVE  MODE  VIDEO  SNR  COMPUTATION  (DB). 

00030260 

GAS-146.9 

00030270 

c 

00030280 

c 

00030290 

c 

• RANDOM  NUMBER  GENERATOR  SEEDS  * 

00030300 

c 

00030310 

NS 1-48 

00030320 

NS2-135 

00030330 

NN(l)«0 

00030340 

c 

INITIALIZE  NOISE  SEOUENCE. 

00030350 

DO  2 1-1 ,320 

00030360 

2 GAUSS ( I ) -ANORM ( NS 1 , NS2 ) 

00030370 

IF(  I TEST . EQ. 2)GO  T06341 

I TEST-2 

c 

WRITE(6 , 592) 

592  FORMAT ( 1 HI . ’ RANDOM  NUMBER  INITIALIZATION*) 

c 

WRITE(6 , 593) (GAUSS ( I ) , 1-1 ,320) 

593  FORMAT (8F8. 4) 

c 

WRITE(6 . 592) 

6341  CONTINUE 

C 

00030380 

c 

00030390 

c 

• DEFINE  TARGET  PARAMETERS  • 

00030400 

c 

00030410 

c 

TARGET  SEARCH  CROSS-SECTION  ( FIXED  TEMPORARILY). 

00030420 

TGTSIG— 10 . 0 

00030430 

RETURN 

00030440 

END 

00030450 

SUBROUTINE  SET IT 

COMMON  /TARGET/I TARG.SRCS 

COMMON  /LEN1/ANGOFF 

COMMON  /SATDAT/RADAR(3),KTAR,R(70,3) ,SIG(70) .ROLD. 
1 ICLOSE, ICOLD, JHOT(60) 
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2 


2 

3 

2 


COMMON  /CNTL/IPWR, IMODE, ITXP, IASM. I SRCHC , I SRCHG , IAZS. IELS, ISLR, 
EDRNG , EDPA , EDRA 

COMMON  /ICNTL/IOLDPW . IOLDMD , 10LDSM , ISHOLD , KMSCLK . KWMUP , KSNCLK , 

KSNMAX , KACCLK , MTP , MZ 1 , MZ0 . MSS .MTKINT . MR NO , MS AM , MPRF , 
MBKTRK , MBTSUM . MBT ( 8 ) 

COMMON  /OUTPUT/MSWF . MTF . MSF , SRNG , SROOT , SPANG . SRANG , SPRTE . 

SRRTE , SRSS , MADVF . MRDVF , MARDVF , MRRDVF 


COMMON  /INPUT/ERTO(3),EVTO(3).EWB(3).TBT(3,3).TBTD(3,3) 
COMMON  /ATDAT/DUM1 (10), PREF , RREF 
COMMON  /SYSDAT /TS , DUM2 (14) 

COMMON  /CGMAIN/RO(3) ,V0(3) ,A0(3) 

COMMON  /DSCRM/DUM3(6) , SIGBAR.SNRD.SIGDB 
COMMON  / AGCDAT / AGCO , AGCODB , SNRDT , SNRDTD 
ITARG  - 0 POINT  TARGET  RCS  OF  POINT  TARGET 

SRCS  IS  VARIABLE  NAME  OF  RCS  VALUE 
SRCS  - 3.27  IS  IMSQ  TARGET. 


SRCS-3.27 


DO  1-1,3 
DO  J-1,3 
EW8( I )— 0. 

TBT ( I , J )— 0 

IF(I.EO.J)TBT(I,J)-1. 

TBTD(I,J)-0. 

ENDDO 
ENODO 
KOLD— 1 
CALL  SYS I NT 
IPWR-3 
I MODE-2 
IASM-1 
ITXP— 1 
ISRCH— 0 
IAZS— 0 
IELS— 0 
ISLR— 0 
I SRCHG— 0 
EDRNG— 500 . 0 
EDRA— 0 . 0 
EDPA— 0 . 0 

PI  1-3. 14159265/180. 
EDPA-EDPA»PI I 
EDRA=EDRA»PI I 
MTF— 0 
MTP— 1 
MTP— 1 
RETURN 
END 


* THIS  FUNCTION  GENERATES  A RANDOM  NUMBER  FROM  A GAUSSIAN  PDF  • 

• WITH  ZERO  MEAN  AND  UNIT  VARIANCE.  . 


FUNCTION  ANORM(K1.K2) 

YI-RNDU(KI) 

Y2— RNDU(K2) 

TP  I -6. 283 1852 

ANOR»^SQRT(-2. *ALOG(Y1 ) ) *COS(TPI «Y2) 

RETURN 

END 


00030820 

00030830 

00030840 

00030850 

00030860 

00030870 

00030880 

00030890 

00030900 

00030910 

00030920 

00030930 

00030940 

00030950 

00030960 

00025230 

00025240 
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C *•••. 00025250 

C * THIS  SUBROUTINE  UPDATES  A2  AND  EL  INERTIAL  LOS  RATES,  THE  • 00025260 

C • ALPHA  AND  BETA  GIMBAL  RATES.  THE  ALPHA  AND  BETA  GIMBAL  • 00025270 

C • POSITIONS,  AND  THE  TARGET  PITCH  AND  ROLL  ANGLES  FOR  THE  • 00025280 

C • DISPLAY.  • 00025290 

C 00025300 

C 00025310 

C 00025320 

SUBROUTINE  ATRACK  00025330 

REAL  I NTT , I AZDSC . I ELDSC  00025335 

COfcMON  /CNTL/IPWR, I MODE. IDUMC(7) ,DUMC(3)  00025350 

COMMON  /INPUT/DUM(6) , EWB(3) , DUM2( 18)  00025360 

COMMON  /OUTPUT /II DUM ( 3 ) , D 1 DUM ( 2 ) , SPANG , SRANG , SPRTE , SRRTE , SRSS , 00025370 

2 IDUM1 (4) , SSALP , SSBET  00025380 

COMMON  /ICNTL/I2DUM( 14) ,MRNG .MSAM.MPRF , IDUM2( 11)  00025390 

COMMON  /SYSDAT/TSAM,DR(3) ,CP , SP ,PS1 , PSBIAS, ALBIAS.BTB1AS , 00025400 

2 DUM4(5)  00025410 

COMMON  /ATDAT/CA , SA , CB , SB , A2RATE , ELRATE , ALRATE , BTRATE . AL , BT , 00025420 

2 DUM3(4)  00025430 

COMMON  /DSCRM/AZD I SC , ELD I SC , DUM1 (7)  00025440 

DIMENSION  ATI ( 10 .2) , AT2( 10 ,2) ,TX1 (3,3) ,TX2(3,3) ,TX3(3.3) ,TBL(3, 3 >00025450 
DIMENSION  TDC(3) 

DATA  ATI/9.1 . 5529E— 3 ,2 . 0106E— 4 , 6*3 . 9750E— 3 , 1 . 5529E— 3 . 00025460 

2 3*2 . 01 06E-4/ , AT2/9*6 . 5907E-3 . 2 . 3725E-3 , 00025470 

3 6.1. 0546 E— 2 , 6 . 5907E-3 , 3*2 . 3725E-3/  00025480 

DATA  TDC/0. 051 221 18, 0.1 1951 61 .0.2561557/ 

C DEFINITION:  AT1«KEO«(WN..2)/(4. .DIFFERENCE  PATTERN  SLOPE)  WHERE  00025490 

C WN  IS  NATURAL  FREQUENCY  OF  THE  LOOP.  00025500 

C DEFINITION:  AT2-KEO.TAU  WHERE  TAU  IS  PROPORTIONAL  TO  STEP  RESPONSE  00025510 

C CONVERGENCE  TIME.  00025520 

C 00026700 

TCON-TSAM/TDC ( MPRF ) 

C 00026710 

C * STEP  1 : UPDATE  ROUGH  RANGE  RATE  ESTIMATE  • 00026720 

C ..... * 00026730 

C 00025530 

C 00025540 

C » STEP  1 : UPDATE  ANTENNA  LOS-TO-BODY  TRANSFORMATION  (NOTE:  TRANS-  • 00025550 

C * FORMATION  INCLUDES  GIMBAL  BIAS  ERRORS  AND  RADAR  YAW  . 00025560 

C * ANGLE  ERROR  WRT  BODY  FRAME).  • 00025570 

C 00025580 

CALL  GAMMA(TX1 .-(BT+BTBIAS) ) 00025590 

CALL  THETA(TX2,-(AL+ALBIAS))  00025600 

CALL  MULT33(TX2,TX1 ,TX3)  00025610 

CALL  PHI (TX2.-PSI ) 00025620 

CALL  MULT33( TX2 , TX3 , TBL)  00025630 

C 00025640 

C 00025650 

C » STEP  2:  UPDATE  ESTIMATED  TARGET  INERTIAL  AZIMUTH  AND  ELEVATION  • 00025660 

C . RATES  IN  ANTENNA  LOS  FRAME.  * 00025670 

C ..................................................................  00025680 

C 00025690 

C OUANTIZE  THE  ANGLE  DISCRIMINANTS  TO  3/16  DB.  00025700 

I AZDSC* I NTT ( 5 . 333333* AZD I SC.TCON+0 . 5 )/TCON 

IELDSC*INTT(5.333333»ELDISC»TCON+0.5)/TCON  00025720 

I F(  I ELDSC . GT . 255) I ELDSC-255 
I F ( I AZDSC . GT . 255 ) I AZDSC-255 
I F ( I ELDSC . LT . -256 ) I E LDSC— 256 
I F ( I AZDSC . LT  .-256)  I AZDSC— 256 

ADSO0 .0431.1  AZDSC  00025730 

EDSO0. 043 1*1  ELDSC  00025740 

C UPDATE  ESTIMATED  TARGET  INERTIAL  AZIMUTH  RATE.  00025790 

AZRAT  E*AZRAT  E+TSAM*  AT 1 (MRNG, IMODE)»ADSC  00025800 

C UPDATE  ESTIMATED  TARGET  INERTIAL  ELEVATION  RATE.  00025810 
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ELRATE«ELRATE+TSAM»AT1 (MRNG, IMOOE)*EDSC 


• STEP  3:  UPDATE  INNER  AND  OUTER  GIMBAL  RATES.  • 


COMPUTE  REQUIRED  COMPONENTS  OF  ORBITER  ANGULAR  VELOCITY  VECTOR  IN 
OUTER  GIMBAL  FRAME. 

WGX^P«EWB(1)+SP*EWB(2) 

WGY-CA*(-SP*EWB(1 )4CP*EWB(2))+SA.EWB(3) 

WGZ— SA»(-SP*EWB(1)+CP»EWB(2))+CA«EWB(3) 

OUTER  GIMBAL  RATE. 

IF(ABS(CB) . LT. 1 .0E-6)  GO  TO  2 

ALRATE«(AZRATE+AT2(MRNG. I MOD E ) • ADSC+WGZ  * SB ) /CB-WGX 
GO  TO  4 
2 ALRATE-0. 

4 CONTINUE 
INNER  GIMBAL  RATE. 

BTRAT  E« ( E LRAT E+AT 2 ( MRNG , I MODE ) * EDSC ) -WGY 


• STEP  4:  UPDATE  INNER  AND  OUTER  GIMBAL  POSITIONS.  * 


OUTER  GIMBAL  POSITION  (ALPHA  ANGLE) 
AL«AL+TSAM*ALRATE 
INNER  GIMBAL  POSITION  (BETA  ANGLE) 
BT-8T+TSAM.BTRATE 

ADD  ALPHA  AND  BETA  TO  OUTPUT  IN  DEG 
SSALP-AL*57. 29576 
SSBET-BT.57. 29576 


• STEP  6:  TRANSFORM  TARGET  ANGLES  AND  INERTIAL  ANGLE  RATES  TO  • 

• BODY  FRAME  FOR  USE  IN  DISPLAYS  AND  G AW)  N. 


NOTE:  TRANSFORMATION  TBL  INCLUDES  GIMBAL  BIAS  ERRORS  AND  RADAR  YAW 
ANGLE  ERROR  WRT  BOOY  FRAME. 

UPDATE  TARGET  INERTIAL  PITCH  RATE  IN  ORBITER  BOOY  COORDINATES 
FOR  DISPLAY. 

SPRTE— 1 006 . « ( TBL(2 , 1 ) »AZRATE+TBL(2 . 2 ) *ELRATE) 

UPDATE  TARGET  INERTIAL  ROLL  RATE  IN  ORBITER  BODY  COORDINATES 
FOR  DISPLAY. 

SRRTE— 1000.»(TBL(1 , 1 ) *AZRATE+TBL( 1 ,2)»ELRATE) 

UPDATE  ANTENNA  PITCH  ANGLE  IN  ORBITER  BODY  COORDINATES  DISPLAY 
SPANG— ASIN(TBL(1  .3))*57. 29576 
UPDATE  ANTENNA  IN  ORBITER  BODY  COORDINATES  FOR  DISPLAY. 

IF(TBL(2,3) . EQ.0.0.AND. TBL(3,3) .EQ.0.0)  GO  TO  5 
SR ANG— AT AN2  ( -TB L ( 2 , 3 ) . TB  L ( 3 . 3 ) ) • 57 . 29576 
GO  TO  7 

5 IF(TBL(1  , 31 .GT.0.0)  SRANG— 90.0 
IF(TBL(1  ,3) . LT . 0. 0)  SRANG-90.0 
IF(TBL(1 ,3). EQ.0.0)  STOP 

RESOLVE  POSSIBLE  ANGLE  AMBIGUITIES.  VIZ..  -90 . <SPANG<90 . AND 
—1 80 . <SRANG<1 80 . 

7 I F ( SPANG . LE . 90 . ) GO  TO  10 

SPANG— ( 1 80 . -ABS( SPANG)  ) * ( SPANG/ABS ( SPANG)  ) 

SRANG-  (180.  -ABS  ( SRANG  ) ) * ( SRANG/ABS  ( SRANG  ) ) 

10  CONTINUE 

NOTE:  DEBUGGING  PRINT  STATEMENTS. 

WRITE(6 ,899) 

899  FORMAT ( / • ATRACK  D EBUGGG I NG  DATA ’ ) 

WR I T E ( 6 , 900  ) ALRAT E , BTRAT E . AZRATE . E LRATE . SRRTE . SPRT E 
WRITE(6 . 901 ) TBL(1.1).TBL(1,2).TBL(2,1).TBL(2.2) 

#RITE(6,902)  AZD I SC , ELD I SC , ADSC , EDSC 
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00025930 

00025940 
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0*0025970 

00025980 

00025990 

00026000 

00026010 

00026020 
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00026040 

00026050 
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00026130 


00026140 

00026150 

00026160 

00026170 

00026180 

00026190 

00026200 

00026210 

00026220 

00026230 

00026240 

00026250 

00026260 

00026270 

00026280 

00026290 

00026300 

00026310 

00026320 

00026330 

00026340 

00026350 

00026360 

00026370 

00026380 

00026390 

00026400 

00026410 

00026420 

00026430 

00026440 

00026450 

00026460 

00026470 
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900  FORMAT ( r ALR , BTR , AZR , ELR . SRR . SPR* * t 6F10 . 2) 

901  FORMAT ( ' TBL  2X2  -’.4F10.4) 

902  FORMAT ( * A2D , ELD , AD , ED  - * .4F10 . 4) 

RETURN 

END 

C 

C 

C • THIS  SUBROUTINE  IMPLEMENTS  THE  BREAK-TRACK  ALGORITHM  * 

C 

c 

c 

SUBROUTINE  BRKTRK 

REAL  I VMAX , THRSHC , THRSHO . IVDISC , INTT , IODISC 
COMMON  /ICNTL/IDUM2( 17) , MBKTRK . MBTSUM . MBT ( 8 ) 

COMMON  /DSCRM/DUM(3),VDISC,DUM1 .ODISC .DUM2(3) 

DATA  I VMAX. THRSHC, THRSHO/51 . .14. .-11 ./ 

C 

c «.*»*»»'******.*******«»*•********»****»**»*•*»*»» 

C * STEP  1:  DETERMINE  STATUS  OF  L-H  DISCRETE  (FTH)  • 

C 

c 

C STEP  1-1:  QUANTIZE  THE  VELOCITY  DISCRIMINANT  TO  3/16  DB  STEPS. 

I VDISOINTT(VDISC*5. 333333+0. 5) 

C 

C STEP  1-2:  DETERMINE  STATUS  OF  L-H  DISCRETE. 

IFTH-0 

1F(ABS(  IVDISC)  .GE.IVMAX)  IFTH-1 
C 

C 

C * STEP  2:  DETERMINE  STATUS  OF  ON-TARGET  DISCRETE  (OT)  * 

C 

C STEP  2-1:  QUANTIZE  THE  O-DISCRIMINANT  TO  3/16  DB  STEPS. 

I OD I SO  I NTT  ( OD I SC  * 5 . 333333+0 . 5 ) 

C 

C STEP  2-2:  DETERMINE  STATUS  OF  ON-TARGET  DISCRIMINANT. 

1OT-0 

IF(IODISC.GE. THRSHC)  IOT-1 
C 

c *»»»*•••»»••»•****»•***«»**»***»»*****•**«*•******»*****»•**«***» 

C » STEP  3:  DETERMINE  STATUS  OF  ADJACENT  ON-TARGET  DISCRETE  (AOT)  • 

IAOT-0 

IF(IODISC.LE. THRSHO)  IAOT-1 
C 

C *•»..************«**••*•*»*»•»***•.«»******•»*****•••********•*» 

C • STEP  4:  COMBINE  ABOVE  DISCRETES  TO  DETERMINE  STATUS  OF  O NO-  • 

C • TARGET©  DISCRETE  (NOT ARG) . 

C 

C DEFINITION:  THE  NO-TARGET  DISCRETE  IS  HIGH  (OR  1 ) IF  THE  DISCRETES 
C FTH.  OT.  AND  AOT  ARE  ALL  LOW  (OR  0). 

NOTARG-O— IFTH)*(1-I0T)*(1-IA0T) 

C 

C 

C • STEP  5:  DETERMINE  STATUS  OF  BREAK-TRACK  FLAG  (MBKTRK)  * 

C •*»****••»»*»**••*•*•**•*•»•**»*****•*••*•*«••»•••****•»» 

C DEFINITION:  BREAK-TRACK  SHALL  BE  DECLARED  IF  NOTAR0 1 FOR  AT 
C LEAST  5 OF  THE  MOST  RECENT  8 DATA  CYCLES. 

C 

C STEP  5-1:  UPDATE  MOVING  W1ND0W-0F-8  SUM  (MBTSUM). 

MBTSUM-MBTSUM+(  NOT  ARG-MBT  ( 1 ) ) 

C 

C STEP  5-2:  UPDATE  STORAGE  REGISTERS. 

DO  10  1-1 .7 
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00024780 
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00024810 

00024820 
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00024850 
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00024900 

00024910 
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10  MBT(I)-MBT(I+1)  00025120 

MBT(8)-NOTARG  00025130 

C 000251 40 

C STEP  5-3:  DETERMINE  STATUS  OF  BREAK-TRACK  FLAG  ( 1 -BREAK-TRACK ) . 00025150 

MBKTRK-MBTSUM/5  00025160 

C 00025170 

C NOTE:  DEBUGGING  PRINT  STATEMENTS.  00025180 

C WRITE(6.900)  IODISC , THRSHO , THRSHC , IVDISC , IVMAX.MBTSUM  00025190 

900  FORMATC  OD.THO.THC.VD.THV.SUM  ,618)  00025200 

RETURN  00025210 

END  00025220 

C 00008520 

C 00008530 

C 00008540 

C • THIS  SUBROUTINE  CONTAINS  THE  CFAR  DETECTION  MODEL  • 00008550 

C 00008560 

C 00008570 

C 00008580 

SUBROUTINE  CFAR  00008590 

COMMON  /CNTL/IPWR , I MODE, ITXP, I ASM. IDUMC(S) , EDRNG , DUMC ( 2 ) 00008600 

COMMON  /OUTPUT/MSWF ,MTF,MSF,DUM1 (7) , IDUM1 (4)  00008610 

COMMON  /ICNTL/IDUM2(8) , KACCLK , MTP , IDUM3(4) .MRNG .MSAM.MPRF  00008620 

COMMON  /TGTDAT/NT , DUM3 ( 500 ) , RO  ( 3 ) , ROU ( 3 ) . CGRNGE . CGVEL  00008630 

COMMON  /DETDAT/S1GMA.CGANG  00008640 

DIMENSION  RI(6),PW(6),NP(6).FW(3),TPRI(3),TS(2),P(41)  00008650 

DATA  NR I , NSRCH/6 . 37  / ,C .ALMDA/983 . 5. 0. 070845/. RI/2552. , 5772 . . 00008660 

2 11544. .23089. ,43747. ,57722. /.PW/0. 122.4. 15,8.3. 16 . 6,33. 2 .66 . 4/.  00008670 

3 NP/1 ,2,4,8, 16,32/, FY(/7. 7215, 3. 3090. 0.2969/, TS/0. 122, 2. 075/,  00008680 

4 TPRI/143.5,334.7.3731 . 1/  00008690 

DATA  P/6.0.0, .001 , .003,2.-004,  .008..012, .015, .043, .053, .076, . 107,00008700 

2 .147. . 193, .244, .312. .363,-444, .514. .590. .644. .706. .765, .815,-861  .00008710 

3 .882. .918. .937, .955. .966,-976. .980. .989. .991 . .997, .996/  00008720 

PI-3.14159265  . 00008730 

C 00008740 

C 00008750 

C • STEP  1 : SET  INTERNAL  CONTROLS  BASED  UPON  SYSTEM  OPERATING  MODE  • 00008760 

C 00008770 

C 00008780 

C STEP  1-1  : GPC  MOOES  OR  AUTO/MANUAL  MODES”  00008790 

IF(IASM.GE.3)  GO  TO  15  00008800 

C 00008810 

C STEP  1-2:  SET  INTERNAL  CONTROLS  FOR  APPROPRIATE  MOOE.  00008820 

C 60668536 

C CONTROL  SETTINGS  FOR  GPC  MOOES.  00008840 

C 00008850 

C DETERMINE  RANGE  INTERVAL.  00008860 

DO  5 1-1, NR I 00008870 

MRNG— I 00008880 

IF(RI(I) .GT.EDRNG)  GO  TO  10  00008890 

5 CONTINUE  00008900 

C 00008910 

C SET  SAMPLE  RATE  00008920 

10  MS AM-2  00008930 

C 00008940 

C DETERMINE  PRF  00008950 

MPRF-1  00008960 

IF(EDRNG.GE.RI (6))  MPRF-2  00008970 

GO  TO  20  00008980 

C 00008990 

C CONTROL  SETTINGS  FOR  AUTO/MANUAL  MOOES.  00009000 

C 00009010 

C SET  RAHGE  INTERVAL.  00009020 

15  MRNG— 6 00009030 

C 00009040 
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C SET  SAMPLE  RATE.  00009050 

MS AM-2  00009060 

C 00009070 

C SET  PRF.  00009080 

MPRF-1  00009090 

C 00009100 

C 00009110 

C • STEP  2:  COMPUTE  NOMINAL  SNR  AT  VIDEO  FILTER  OUTPUT  • 00009120 

C 00009130 

20  SNR-SNRV (SI GMA , CGRNGE ) 00009140 

C 00009150 

C 00009160 

C * STEP  3:  IF  NOT  SCANNING  ADD  BEAMSHAPE  LOSS  TO  SNRV  • 00009170 

C 00009180 

C 00009190 

C STEP  3-1:  CHECK  SCAN  FLAG.  00009200 

IF(MSF.EQ.I)  GO  TO  25  00009210 

C 00009220 

C STEP  3-2:  COMPUTE  BEAMSHAPE  LOSS  BASED  UPON  C.C.  POSITION  OFF  00009230 

C BORESIGHT.  00009240 

BETA2«SPAT(CGANG)**2  00009250 

C 00009260 

C STEP  3-3:  ADD  BEAMSHAPE  LOSS  TO  NOMINAL  SNRV.  I.E.  COMPUTE  ACTUAL  00009270 

C SNRV . 00009280 

SNR«SNR*BETA2  00009290 

C 00009300 

C 00009310 

C * STEP  4:  COMPUTE  NET  PROCESSOR  GAIN  AND  COMBINE  WITH  SNRV  TO  FORM  * 00009320 

C * SNRD . • 00009330 

C 00009340 

C 00009350 

C STEP  4-1  : COMPUTE  RANGE  GATE  LOSS  (RGL)  DIFFERS  FOR  GPC  AND  00009360 

C AUTO/MANUAL  MODES.  00009370 

C 00009380 

C COMPUTE  EQUIVALENT  RANGE  OF  XMIT  PULSEWIDTH.  00009390 

25  CTD2*C*PW(MRNG)/2 . 00009400 

C 00009410 

C DETERMINE  OPERATING  MODE  00009420 

IF(IASM.GE.3)  GO  TO  30  00009430 

C 00009440 

C COMPUTE  RGL  FOR  GPC  MODES.  00009450 

DEL-ABS ( EDRNG-CGRNGE)/CTD2  ' 00009460 

IF(DEL.GE. 1 .5)  RGL-0.0  00009470 

IF(DEL.GE.0. 5 .AND.DEL. LT. 1 .5)  RGL«. 6666666* (1 .5— DEL)»*2  00009480 

IF(DEL. LT.0.5)  RGL-. 6666666  0000949 0 

GO  TO  35  00009500 

C 00009510 

C COMPUTE  RGL  FOR  AUTO/MANUAL  MODES  00009520 

30  DE  L-ABS ( CGRNGE ) /CTD2  00009530 

DELI-DEL-INT(DEL)  00009540 

IF(DEL. LE. 1 .0)  RGL-DEL*DEL  00009550 

IF(DEL.GT . 1 .0. AND.DEL.LT. 4. 5. AND. DELI .LT.0.5)  00009560 

2 RGL«(1 .0-DEL1 )**2  00009570 

IF(DEL.GT. 1 .0. AND.DEL.LT. 4. 5. AND. DELI .GE.0.5)  00009580 

2 RGL-OEL1*DEL1  00009590 

C 00009600 

C STEP  4-2:  COMPUTE  NET  PRESUM  GAIN  SAME  FOR  ALL  PASSIVE  ANTENNA  00009610 

C STEERING  MODES.  00009620 

C 00009630 

C COMPUTE  DOPPLER  FREOUENCY  ASSOCIATED  WITH  TARGET  RADIAL  VELOCITY  00009640 

35  FDOP— 2 . *CGVEL/ALMDA« 1 .0E-06  00009650 

C 00009660 

C COMPUTE  ARGUMENT  ASSOCIATED  WITH  TARGET  VELOCITY  00009670 

ARG-P1*FD0P*TS(MSAM)  00009680 
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ooooo  oo  ooo  oo  ooooo  no  no  nnnnnn  on  oo  no  on  ooooo  on 


COMPUTE  NET  PRESUM  GAIN 
PSG-SUM ( ARG . NP ( MRNG ) ) 

STEP  4-3:  COMPUTE  NET  DOPPLER  FILTER  GAIN  SAME  FOR  ALL  PASSIVE 

ANTENNA  STEERING  MODES. 

COMPUTE  NUMBER  OF  DOPPLER  FILTER  NEAREST  TARGET. 

MF I L-MOO  ( I NT  (CGVEL/FW(  MPRF)+320 . 5 ) , 32 ) 

COMPUTE  ARGUMENT  ASSOCIATED  WITH  TARGET  DOPPLER 
ARG-PI • ( FLOAT  (MF  I L)/32  .+FDOP*TPRI  (MPRF)  ) 

COMPUTE  NET  DOPPLER  FILTER  GAIN 
DFG— SUM(ARG, 16) 

STEP  4-4:  COMPUTE  NET  PROCESSOR  GAIN. 

NPG— RGL*PSG*DFG 

STEP  4-5:  COMPUTE  SNR  AT  DOPPLER  FILTER  OUTPUT 
SNR— SNR*NPG 


• STEP  5:  DETERMINE  PROBABILITY  OF  DETECTION  BASED  UPON  SNR  * 

STEP  5-1:  DETERMINE  INDEX  TO  ACCESS  APPROPRIATE  CURVE 
I F( I ASM. GE. 3)  GO  TO  40 
NCRV-1 
GO  TO  45 
40  NCRV-3 

ADJUST  INDEX  FOR  SCANNING 
45  NCR  V— NCR  V+MS  F 

STEP  5-2:  CONVERT  SNR  TO  DB. 

If ( SNR . LE . 1 . 0E— 08 ) GO  TO  50 
SNR-10. *ALOG10(SNR) 

GO  TO  55 
50  SNR— 100. 

STEP  5-3:  SNR  OUTSIDE  (0  DB,  +20  DB)  INTERVAL"  IF  SO,  SET 

OUTCOME  APPROPRIATELY  AND  SKIP  REMAINING  STEPS. 

IF  SNRD  <0.  DB  DECLARE  A MISS. 

55  I F ( SNR . LE . 0 . ) GO  TO  60 

IF  SNRD  >20.  DB  DECLARE  A HIT. 

I F ( SNR . GT . 20 . ) GO  TO  65 

STEP  5-4:  COMPUTE  INDEX  FOR  LOOKUP  TABLE  AND  FACTORS  FOR  LINEAR 
INTERPOLATION. 

SCALE— (SNR+0. )*2.+1 .0000001 
I SNR— I NT ( SCALE) 

REMAIN-SCALE-FLOAT( ISNR) 

STEP  5-5:  DETERMINE  PD  USING  TABLE  AND  LINEAR  (IN  DB)  INTERPOLATION. 
PROS— P(  ISNR)+REMAIN*(P(  ISNR+1  )-P(  ISNR) ) 


* STEP  6:  DETERMINE  OUTCOME  OF  DETECTION  ATTEMPT  * 


X— RNDU ( NSRCH ) 


00009690 

00009700 

00009710 

00009720 

00009730 

00009740 

00009750 

00009760 

00009770 

00009780 

00009790 

00009800 

00009810 

00009820 

00009830 

00009840 

00009850 

00009860 

00009870 

00009880 

00009890 

00009900 

00009910 

00009920 

00009930 

00009940 

00009950 

00009960 

00009970 

00009980 

00009990 

00010000 

00010010 

00010020 

00010030 

00010040 

00010050 

00010060 

00010070 

00010080 

00010090 

00010100 

00010110 

00010120 

00010130 

00010140 

00010150 

00010160 

00010170 

00010180 

00010190 

00010200 

00010210 

00010220 

00010230 

00010240 

00010250 

00010260 

00010270 

00010280 

00010290 

00010300 

00010310 

00010320 
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IF(X.LE.PROB)  GO  TO  65 
C 

C 

C * STEP  7:  SET  CONTROLS  BASED  UPON  OUTCOME  OF  DETECTION  ATTEMPT  * 
C 

c 

c STEP  7-1:  IF  NO  DETECTION  SET  TARGET  PRESENT  FLAG  LOW. 

60  MTP-0 
RETURN 
C 

C STEP  7-2:  IF  DETECTION  SUCCESSFUL  SET  TARGET  PRESENT  FLAG 

C HIGH  AND  INITIALIZE  ACQUISITION  CLOCK. 

65  MTP-1 

KACCLK-0 

RETURN 

END 

C 

C 

C 

C * THIS  SUBROUTINE  UPDATES  ALL  RADAR  INTERNAL  CONTROLS.  • 

C 

c 

C 

SUBROUTINE  CNTRLS 

REAL  I NTT  , NF I L , I RNG , I ROOT 

COMMON  /CNTL/IPWR , I MODE, IDUMC(7) , DUMC(3) 

COMMON  /OUTPUT / I DUM0 ( 3 ) , SRNG , SRDOT , DUM2 ( 5 ) , IDUM(4) 

COMMON  / ICNTL/ I 1 DUM ( 1 4 ) , MRNG * MSAM , MPR F , I DUM 1(10) ,MPFOLD 
COMMON  /RTDAT/ I RDOT , I RNG , RB I AS , VEST (4) ,MDF(5) 

DIMENSION  RI(10).FW(3) 

C RI (4)  CHANGED  TO  2560  FROM  2552 

DATA  RI/120. ,240. ,780. ,2560. ,5772. ,11544. ,23089. ,43747. , 

2 57722 . , 1 . 8228E+6/ 

DATA  FW/7 .7215,3. 3090 . 0 . 2969/ , NRI/1 0/ 

C 

C **************************************** 

C * STEP  1:  SET  RANGE  INTERVAL  PARAMETER  • 

XRNG— IRNG*0 . 31 25 
DO  60  1-1 , NR I 

I F ( XRNG . LE . R I ( I ) ) GO  TO  70 
60  CONTINUE 
70  MRNG- 1 

IF(MRNG.GT.NRI)  STOP 
C 

C •**•*•••**••*•»»•**••••*«**•••*•••*•• 

C * STEP  2:  SET  SAMPLE  RATE  PARAMETER  • 

C **•**•****.*»**•****.•*••**«**•**.»*• 

IF(IMODE.GE.2)  GO  TO  74 
IF(MRNG.GT .9)  GO  TO  72 
MSAM-1 
GO  TO  80 
72  MSAJyM2 

. GO  TO  80 

74  IF(MRNG.GT.4)  GO  TO  76 

MSAkM 
GO  TO  80 
76  MS  AM-2 

C 

C *••******»••*•***»•*•****•*** 

C • STEP  3:  SET  PRF  PARAMETER  * 

C ***************************** 

c 

c STEP  3-1:  DETERMINE  IF  IN  ACTIVE  OR  PASSIVE  MODE. 


00028690 

00028700 

00028710 

00028720 

00028730 

00028740 

00028750 

00028760 

00028770 

00028780 

00028790 

00028800 

00028810 

00028820 

00028830 

00028840 

00028850 

00028860 

00028870 

00028880 

00028890 

00028900 

00028910 

00028920 

00028930 
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80 

C 

C 


1F( I MODE. GE. 2)  GO  TO  84 

STEP  3-2:  DETERMINE  CORRECT  PRF  FOR  GIVEN  OPERATING  MODE. 
IF(MRNG.GT .9)  GO  TO  82 
MPRF-1 
GO  TO  90 
82  MPRF-3 

GO  TO  90 

84  IF(MRNG.GT.9)  GO  TO  86 

MPRF-1 
GO  TO  90 
MPRF-2 
CONTINUE 

STEP  3-3:  IF  PRF  HAS  CHANGED  FROM  PREVIOUS  DATA  CYCLE.  THEN 
RESET  THE  5 DOPPLER  TRACKING  FILTERS  ACCORDINGLY. 
IF(MPFOLD. EQ.MPRF)  GO  TO  96 
NFI L— INTT  ( (— SRDOT/FW(MPRF)  )+0.5)+31998 . 

XX— AMOD(NFI  L.32. ) 

MDF(1 )«INT(XX) 

DO  95  1-1.4 

95  MOF ( 1+1 )-MOD(MDF(1  )+I .32) 

96  MPFOLD— MPRF 

NOTE:  DEBUGGING  PRINT  STATEMENTS. 

WRITE(6 .999)  MPRF. MPFOLD .MOF(1 ) 

999  FORMAT ( * MPRF  .MPFOLD. MDF1  -\3I8) 

RETURN 
END 


86 

90 

C 

C 

C 


C 

C 

C 

C 

c 

c 

c 

c 


* THIS  SUBROUTINE  PERFORMS  THE  TARGET  DETECTION  FUNCTION  FOR  ACTIVE 

* AND  PASSIVE  MODES  AND  ALL  ANTENNA  STEERING  MODES. 


SUBROUTINE  DETECT 

COMMON  /CNTL/IPWR,  I MODE.  ITXP,  I ASM.  IDUMC(5)  . EDRNG . DUMC  ( 2 ) 
COMMON  /ICNTL/IDUM2(9)  ,MTP,  IDUM3(  17) 

COMMON  /SYSDAT/DUM2  (12).  TGTS I G , GPS . GAS 

COMMON  /TGTDAT/NT , DUM3(500)  fRO(3)  fROu(3)  .CGRNGE.CGVEL 

COMMON  /DETDAT/SIGMA.CGANG 


• STEP  1: 


COMPUTE  TARGET  PARAMETERS  WRT  RADAR 

• ****•***********'******••****••***••• 


STEP  1-1:  TRANSFORM  TARGET  C.G.  POSITION  AND  VELOCITY  TO  LOS  FRAME. 
CALL  TRNSFM 
CALL  PVTRAN 
C 

C STEP  1-2:  COMPUTE  TARGET  C.G.  ANGLE  OFF-BORESIGHT  (NON-SCANNING). 
CCCCCCCCCCCCCCCCCCCCCCC  MOD  MAR  24  1983  CCCCCCCCCCCCCCCCCCCCCC 
CGANG— ACOS ( — ROU ( 3 ) ) 


C 

C 

C 

C 

C 

C 

C 

C 


STEP  1-3:  DETERMINE  TARGET  CROSS-SECTION. 
SIGMA-TGTSIG 


• STEP  2:  PRELIMINARY  DETECTION  MODE  DETERMINATION  * 


STEP  2-1 : DETERMINE  WHETHER  ACTIVE  OR  PASSIVE. 


00028940 

00028950 

00028960 

00028970 

00028980 

00028990 

00029000 

00029010 

00029020 

00029030 

00029040 

00029050 

00029060 

00029070 

00029080 

00029090 

00029100 

00029110 

00029115 

00029120 

00029130 

00029140 

00029150 

00029160 

00029170 

00029180 

00029190 

00029200 

00029210 

00006680 

00006690 

•*00006700 

*00006710 

*00006720 

*00006730 

00006740 

00006750 

00006760 

00006770 

00006780 

00006790 

00006800 

00006810 

00006820 

00006830 

00006840 

00006850 

00006860 

00006870 

00006880 

00006890 

00006900 

00006910 

00006920 

00006930 

00006940 

00006950 

00006960 

00006970 

00006980 

00006990 

00007000 

00007010 
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IF(IMODE.EQ.I)  60  TO  5 00007020 

C 00007030 

C STEP  2-2:  GPC  MODES  OR  AUTO/MANUAL  MODES"  00007040 

I F( IASM.GE. 3)  GO  TO  10  00007050 

GO  TO  15  00007060 

C 00007070 

C * 00007080 

C • STEP  3:  ACTIVE  MODE  DETECTION  PROCESS  * 00007090 

C 00007100 

C 00007110 

5 CALL  SINGLE  00007120 

RETURN  00007130 

C 00007140 

C 00007150 

C • STEP  4:  PASSIVE  AUTO/MANUAL  MODE  DETECTION  PROCESS  • 00007160 

C 00007170 

C 00007180 

C STEP  4-1:  CHECK  SHORT  RANGE  FIRST  CALL  SINGLE-HIT  DETECTION  00007190 

C MODEL.  00007200 

10  CALL  SINGLE  00007210 

C 00007220 

C STEP  4-2:  CHECK  FOR  SUCCESS  IN  SINGLE-HIT  DETECTION  IF  NOT  SUC  0000723 0 

C CESSFUL,  THEN  TRY  LONG  RANGE  SEARCH.  00007240 

I F(MTP . EO. 0)  CALL  CFAR  00007250 

RETURN  00007260 

C 0000727 0 

C 00007280 

C • STEP  5:  PASSIVE  GPC  MODES  DETECTION  PROCESS  • 00007290 

C ...............................................  00007300 

C 00007310 

C STEP  5-1:  CHECK  DESIGNATED  RANGE.  00007320 

15  I F ( EDRNG . GT . 2552 . ) GO  TO  20  00007330 

C 00007340 

C STEP  5-2:  IF  DESIGNATED  RANGE  < 0.42  NM  USE  SINGLE-HIT  00007350 

C DETECTION  MODEL.  00007360 

CALL  SINGLE  00007370 

RETURN  00007380 

C 00007390 

C STEP  5-3:  IF  DESIGNATED  RANGE  > 0.42  NM  USE  CFAR  DETECTION  MODEL . 00007400 

20  CALL  CFAR  00007410 

RETURN  00007420 

END  00007430 

C 00022710 

C 00022720 

C 00022730 

C * THIS  SUBROUTINE  ADDS  THE  EQUIVALENT  NOISE  TO  THE  ANGLE,  RANGE,  • 00022740 

C * VELOCITY  AND  ON-TARGET  DISCRIMINANT  COMPONENTS  AND  THEN  COM-  * 00022750 

C • PUTES  THE  ANGLE,  RANGE,  VELOCITY,  AND  ON-TARGET  DISCRIMINANTS.  • 00022760 

C 00022770 

C 00022780 

C 00022790 

SUBROUTINE  DISCRM  00022800 

REAL  LATE, MEAN  00022805 

COMMON  /OUTPUT /MSWF , MTF , MSF , SRNG , SRDOT , SPANG , SRANG , SPRTE , 

2 SRRT  E , SRSS , MADVF , MRDVF , MARDVF , MRRDVF 

COMMON  /CNTL/IPWR, I MODE. ITXP, IASM, IDUMC(5) ,DUMC(3)  00022810 

COtMON  /ICNTL/I3DUM( 14) ,MRNG ,MSAM,MPRF, IDUM4( 10)  00022820 

COtMON  -/SYSDAT /TSAM , DR ( 3 ) , CP , SP , PS I .PSBIAS.ALBIAS.BTBIAS.GP.GA.  00022830 

2 DUMS(3)  00022840 

COtMON  /TGTDAT/NT ,DUM5(506) .CGRNGE.CGVEL  00022850 

COtMON  /DSCRM/AZD I SC , ELD I SC , RD I SC , VD I SC , RRTE , OD I SC , S IGBR 1 , SNRD , 00022860 

2 SIGDB  00022870 

COtMON  /S1GDAT/SPAZ, SMAZ.SPEL.SMEL, EARLY. LATE. DF1 ,DF5.  00022880 

2 DF2.DF4.SIGBAR  00022890 
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ORIGINAL  PASS  53 

OF  POOR  QUALITY 


COMMON  /NOISE/NS1  ,NS2 ,NN( 10)  .GAUSS (320)  00022900 

COMMON  / AGCDAT / AGCO . AGCODB , SNRDT , SNRDTD  000229 1 0 

DIMENSION  NFREQ(2) , PDIA(2),PDIR(2),PDIV(2),PS(10,2) ,BN(2),PT(3)  00022920 

• TDC (3) 

DATA  NFREQ/1  ,5/, BN/9772. 4,616. 6/, PS/9*  1 . ,2.  .5*1 . ,2.  .4.  .8.  ,8.  , 1 6 . /00022930 


C 

C 

c 

c 


2 .PDIA.PDIR  .PDIV/1  .4142.3. 1623,2.0.4.4721  .2.8284.6.3246/, 

3 PT/42658.  ,3125.  .195.3/, ONV/. 04 166666/ 

DATA  TDC/0.051221 18,0. 1195161  ,0.2561557/ 


C 

C 

C 

C 

C 

C 

c 


NOTE:  DEBUGGING  PRINT  STATEMENTS. 

WR I TE( 6 , 900)  SPAZ . SMAZ . SPEL , SMEL .EARLY . LATE 
WRITE(6.901)  DF1 .DF5.DF2 .DF4.SIGBAR 

900  FORMAT ( * SPZ.SMZ.SPL.SML.E.L  -’.6F10.2) 

901  FORMAT ( * DF1 .DF5 .DF2.DF4 ,SIG  -• .5F10.2) 


* STEP  1 : COMPUTE  CONSTANT  USED  IN  SIGNAL  SCALING  AND  COMPUTATION 

* OF  NOISE  STATISTICS. 


00022940 

00022950 

00022970 

00022980 

00022990 

00023000 

00023010 

00023020 

00023030 

00023040 

00023050 

00023060 

00023070 


TCON- ( T SAM/ TDC (MPRF) )** . 5 


C 00023080 

C STEP  1-1:  COMPUTE  CONSTANT  (NOTE:  IT  IS  DIFFERENT  FOR  ACTIVE  AND  00023090 

C PASSIVE  MODES).  00023100 

I F ( I MODE. EQ.2)  GO  TO  5 00023120 

C NOTE:  THIS  IS  THE  CONSTANT  USED  IN  ACTIVE  MODE.  00023130 

YY-GA*PS(MRNG,  IMODE)/(CGRNGE**2*BN(MSAM) ) 00023140 

S1«YY/FLOAT(NFREQ( IMODE) ) 00023150 

GO  TO  10  00023160 

C NOTE:  THIS  IS  THE  CONSTANT  USED  IN  PASSIVE  MODE.  00023170 

CCCCCCCCCCCCCCCCCCCCCCCCCC  MODS  2-15-83  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C 

5 CONTINUE 

PTFIX-PT(ITXP) 

IF(SRNG. LT . 640. )PTFIX— 4.2 
ISTS7-0 

IF(ISTS7.EQ.1)PTFIX«4.2 


YY-GP*PS(MRNG. IMODE) *PTFIX  /(CGRNGE**4*BN(MSAM) ) 
S1-YY/FLOAT(NFREQ( IMODE) ) 

C 

C .STEP  1-2:  COMPUTE  PEAK  SIGNAL  POWER  TO  AVERAGE  THERMAL  NOISE  POWER 
C AT  DOPPLER  FILTER  OUTPUT. 

10  SNRDT  -YY  * S I GBAR 
C WRITE (6, 221 )YY,SIGBAR 

C 221  FORMAT( ’YY.SIGBAR  .F14.5) 

SNRDTD- 1 0 . • A LOG 1 0 ( SNRDT ) 

SIGDB— 10 . *ALOG10(SIGBAR) 

S I GBR 1 -SI GBAR 

C222  WRITE(6 ,990)  SNRDTC5 , S I GDB 

990  FORMAT ( * SNRDTD. SIGDB  -’ ,2F1 4. 2) 

C 

C STEP  1-3:  COMPUTE  PEAK  SIGNAL  POWER  TO  TOTAL  (THERMAL  PLUS 
C QUANTIZATION)  NOISE  POWER  AT  THE  DOPPLER  FILTER  OUTPUT. 

CALL  SATNSE(SNF) 

XX— SNF*AGCO 
XX— XX/ ( XX+QNV ) 

SI-SI *XX 
YY— YY*XX 
SNRD-YY  * S I GBAR 
SNRD- 1 0 . * ALOG 1 0 ( SNRD ) 

C 

C STEP  1-4:  UPDATE  NOISE  SEQUENCE. 


00023180 

00023190 

06023206 

00023210 

00023220 

00023230 


00023240 

00023250 

00023260 

00023262 

00023264 

00023270 

00023280 

00023290 

00023292 

00023294 

00023296 

00023300 

00023310 

00023320 

00023330 

00023340 

00023350 
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oo  ooo  ooo  oooooooo  oo  ooo  ooo  oo  oooooooo 


NN(l)«M0D(NN(1)+1  ,320)+1 
DO  15  I-2J0 

15  NN(  I )-MOD(NN(  1-1  )+29 . 320 )+1 
ID1-NN(1) 

GAUSS ( ID1 )«AN0RM(NS1 ,NS2) 


• STEP  2:  COMPUTE  ANGLE  DISCRIMINANT  (INCLUDES  NOISE)  • 


STEP  2-1:  CHECK  ANTENNA  STEERING  MODE  SKIP  STEP  2 IF  IN 

GPC-DES  OR  MANUAL. 

;CCCCCCCCCCCCCCCCCC  MOD  FEB  16  1983  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
IF(IASM. EQ.2.0R. I ASM. EQ.4)  GO  TO  20 

STEP  2-2:  COMPUTE  ANGLE  DISCRIMINANT  COMPONENT  SCALE  FACTOR. 
ASCALE-S1 *PDIA( IMODE) 

STEP  2-3:  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  ANGLE 
DISCRIMINANT  COMPONENTS. 

MEAN-PDIA(  IMODE) 

VARPAZ-SQRT  ( 2 . *S1  *SPAZ+1  . ) 

VARMAZ-SORT  ( 2 . *S1  *SMAZ+1  . ) 

VARPEL«SQRT(2.*S1*SPEL+1 .) 

VARMEL-SORT(2.*S1*SMEL+1 . ) 

STEP  2-4:  ADD  EQUIVALENT  NOISE  TO  ANGLE  DISCRIMINANT  COMPONENT 
SIGNALS. 

ID6-NN(6) 

SPAZ-ABS( ASCALE*SPAZ+MEAN+VARPAZ*GAUSS( ID1 ) ) 

SMAZ-ABS ( ASC A L E * SMAZ+MEAN+VARMAZ  * GAUSS ( ID6) ) 

ID2*NN(2) 

ID7«NN(7) 

SP  E L*ABS ( ASCA  L E * SP  E L4MEAN+VARP  E L * GAUSS ( I D2 ) ) 

SMEL«ABS ( ASCALE • SMEL4MEAN+VARMEL* GAUSS ( I D7 ) ) 

STEP  2-5:  COMPUTE  AZ  AND  EL  DISCRIMINANT  COMPONENTS. 

AZD I SC- 1 0 . • A LOG 1 0 ( SPAZ/SMAZ ) 

ELDISC-10 . *ALOG10(SPEL/SMEL) 

AZDISO0. 

ELDISC-0. 


• STEP  3:  COMPUTE  RANGE  DISCRIMINANT  (INCLUDES  NOISE)  * 


STEP  3-1:  COMPUTE  RANGE  DISCRIMINANT  COMPONENT  SCALE  FACTOR. 

20  RSCALE-S1*PD1R( IMODE) 

STEP  3-2:  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  RANGE 
DISCRIMINANT. 

MEAN-PDIR( IMODE) 

VARELY«SORT(2.*S1*EARLY+1 . )*TCON 
VARLTE-SQRT(2.*S1*LATE+1 .)*TCON 

STEP  3-3:  ADD  EQUIVALENT  NOISE  TO  RANGE  DISCRIMINANT  COMPONENT 
SIGNALS. 

ID3-NN(3) 

ID8-NN(8) 

EAR LY-ABS ( RSCA LE • EAR LY4MEAN+VAR E LY *G AUSS ( ID3)  ) 

LAT  E-ABS  ( RSC  A LE  * LAT  E4MEAN+V  AR  LT  E • GAUSS  ( 1D8) ) 

STEP  3-4:  COMPUTE  RANGE  DISCRIMINANT. 

RDISO10.*ALOG10(  LATE/EARLY) 


00023360 

00023370 

00023380 

00023390 

00023400 

00023410 

00023420 

00023430 

00023440 

00023450 

00023460 

00023470 

00023480 

00023490 

00023500 

00023510 

00023520 

00023530 

00023540 

00023550 

00023560 

00023570 

00023560 

00023590 

00023600 

00023610 

00023620 

00023630 

00023640 

00023650 

00023660 

00023670 

00023680 

00023690 

00023700 

00023710 

00023720 

00023730 


00023740 

00023750 

00023760 

00023770 

00023780 

00023790 

00023800 

00023810 

00023820 

00023830 

00023840 

00023850 

00023860 

00023870 

00023880 

00023890 

00023900 

00023910 

00023920 

00023930 

00023940 

00023950 

00023960 
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oooooooo  oooooo  oooo  oo  oooooooo  no  ooo  ooo  oooooo 


• STEP  4:  COMPUTE  VELOCITY  DISCRIMINANT  (INCLUDES  NOISE)  * 


STEP  4-1:  COMPUTE  VELOCITY  DISCRIMINANT  COMPONENT  SCALE  FACTOR. 
VSCALE-S1 *PDIV( IMODE) 

STEP  4-2:  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  VELOCITY 
DISCRIMINANT  COMPONENTS. 

MEAN-PDIV(IMOOE) 

VARDF2*SQRT(2 . *S1 ♦DF2+1 . ) 

VARDF4-SORT ( 2 . *S1 *DF4+1 . ) 

STEP  4-3:  ADD  EQUIVALENT  NOISE  TO  VELOCITY  DISCRIMINANT 
COMPONENT  SIGNALS. 

ID4-NN(4) 

ID9«NN(9) 

DF2-ABS(VSCALE*DF24MEAN+VARDF2*GAUSS(  ID4)  ) 

DF4-ABS  ( VSCALE*DF44MEAN+VARDF4*GAUSS  ( I D9  ) ) 

STEP  4-4:  COMPUTE  VELOCITY  DISCRIMINANT. 
VDISO10.*ALOG10(DF2/DF4) 


• STEP  5:  COMPUTE  ON-TARGET  DISCRIMINANT  USED  FOR  BREAK-  • 

* TRACK  AND  VELOCITY  DATA  INVALID  DETERMINATION  • 


STEP  5-1:  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  OUTER  DOPPLER 
FILTER  SIGNALS. 

VARDF1-SQRT (2. *S1 *0F1+1 . ) 

VARDF5—SORT (2 . *S1 *DF5+1 . ) 

STEP  5-2:  ADD  EQUIVALENT  NOISE  TO  OUTER  DOPPLER  FILTER  SIGNALS. 
ID5-NN(5) 

ID10«NN(10) 

DF1*ABS(VSCALE*DFl-fMEAN+VARDF1  *GAUSS(  IDS)  ) 
DF5«ABS(VSCALE*DF54MEAN+VARDF5*GAUSS(  ID10) ) 

STEP  5-3:  COMPUTE  ON-TARGET  DISCRIMINANT. 

NOTE:  THE  FACTOR  OF  S0RT(2.)  IS  DUE  TO  THE  METHOO  OF 
NORMALIZATION  OF  DISCRIMINANT  COMPONENTS. 

ODISOI 0 . *ALOG1 0(  ( EARLY+LATE)  *SQRT (2 . )/(DF1+DF5)  ) 

NOTE:  DEBUGGING  PRINT  STATEMENTS. 

WRITE(6 , 902)  AZDISC t ELDISC .RDISC . VDISC ,ODISC 
WRITE(6,903)  SNRD , S I GDB , S I GBAR 
WR ITE( 6 , 904)  SPAZ , SMAZ , SPEL , SMEL , EARLY, LATE 
WRITE(6 , 905)  DF1 .DF5.DF2 ,DF4,SIGBAR 

902  FORMAT (/ * AZD.ELD ,RD, VD.OD  *',5F14.6) 

903  FORMAT  ( ' SNRD,  SI  GDB,  SI  GBAR  -\3F14.6) 

904  FORMAT ( ' SPZ,SMZ,SPL,SML.E,L+NOISE  -\6F10.2) 

905  FORMAT ( ’ DF1  ,DF5  ,DF2  ,DF4  .SIG+NOISE  -*  ,5F10.2) 

RETURN 

END 


• THIS  FUNCTION  COMPUTES  THE  DOPPLER  FILTER  OUTPUT  AMPLITUDE  • 

* AND  PHASE  FOR  AN  INPUT  SIGNAL  OF  FREQUENCY  X. 


00023970 
00023980 
00023990 
00024000 
00024010 
00024020 
00024030 
00024040 
00024050 
00024060 
00024070 
00024080 
00024090 
00024100 
00024110 
00024120 
00024130 
00024140 
00024150 
000241 60 
00024170 
00024180 
00024190 
00024200 
00024210 
00024220 
00024230 
00024240 
00024250 
00024260 
00024270 
00024280 
00024290 
00024300 
00024310 
00024320 
00024330 
00024340 
00024350 
00024360 
00024370 
00024380 
OW024390 
00024400 
00024410 
00024420 
00024430 
00024440 
00024450 
00024460 
00024470 
00024480 
00024490 
00024500 
00024510 
00024520 
00031150 
00031160 
00031170 
00031180 
00031190 
00031200 
00031210 
00031220 
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COMPLEX  FUNCTION  DOPFIL(X)  00031230 

COMPLEX  OENOM , NUMER  00031240 

DENONM  .-CEXP(CMPLX(0.  ,X))  00031250 

DENOfcM6.*DENOM  00031260 

C CHECK  FOR  DENOMINATOR  EQUAL  TO  ZERO.  00031270 

XX-CABS(DENOM)  00031280 

IF(XX.GT. 1 .0E-06)  GO  TO  10  00031290 

DOPFIL-0 .0.0.0)  00031300 

RETURN  00031310 

10  NUMER-1 .-CEXP(CMPLX(0. ,16.*X))  00031320 

DOPFI L-NUMER/DENOM  00031330 

RETURN  00031340 

END  00031350 

C 00030650 

C 00030660 

C .... 00030670 

C • THIS  FUNCTION  GIVES  THE  ANTENNA  DIFFERENCE  PATTERN  WEIGTHING  OF  • 00030680 

C . THE  RADAR  SIGNAL  FOR  THE  GIVEN  ANGLE( IN  RADIANS)  OFF  BORESIGHT.  . 00030690 

C • NOTE:  THIS  PATTERN  IS  THE  DERIVATIVE  OF  THE  SUM  PATTERN  • 00030700 

C 00030710 

C 00030720 

C 00030730 

FUNCTION  DP AT ( X ) 00030740 

I F(ABS(X) .GT . 1 . E— 4)  GO  TO  10  00030750 

DPAT— 0 . 6228.X  00030760 

RETURN  00030770 

10  Y-93.80.X  00030780 

DPAT-1 . 1465*(Y»COS(Y)-SIN(Y))/(Y.Y)  00030790 

RETURN  00030800 

END  00030810 

C 00003000 

C 00003010 

C $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003020 
C $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003030 
C $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003040 
C $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003050 
C $$  $$00003060 

C $$  $$00003070 

C $$  PREPARE  TO  RECEIVE  THE  PRODUCT  YOU'VE  BEEN  WAITING  FOR  . . . $$00003080 

C $$  $$00003090 

C $$  THE  ACTUAL  SES  SPACE  SHUTTLE  RADAR  SIMULATION  OOO  $$00003100 

C $$  $$00003110 

C $$  $$00003120 

C $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003 1 30 
C $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003 1 40 
C $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003 1 50 
C $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003 1 60 
C 00003170 

C 00003180 

C 00003190 

C 00003200 

C 00003210 

C 00003220 

C ........................................................  00003230 

C * EXECUTIVE  PROGRAM:  INTERFACE  WITH  PARENT  SIMULATION  • 00003240 

C 00003250 

C 00003260 

C 00003270 

SUBROUTINE  EXEC  00003280 

COMMON  /CNTL/IPWR, I MODE. ITXP, IASM, IDUMC(5) ,DUMC(3)  00003290 

COMMON  /0UTPUT/MSWF,MTF,MSF,DUM(7) , IDUM2(4)  00003300 

COMMON  /ICNTL/IOLDPW, IOLDMD, IOLDSM. ISHOLD.KMSCLK.KWMUP. IDUM1 (3) , 00003310 
2 MTP, IDUM5( 17)  00003320 

DATA  DAT I NT/ 1 .0/  00003330 
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KWMUP-1  00003340 

C 00003350 

C 00003360 

C . STEP  0:  INITIALIZE  ALL  TARGET  AND  SYSTEM  DATA  • 00003370 

C 00003380 

IF(DATINT.NE. 1 .0)  GO  TO  1 00003390 

CALL  SET IT 

CALL  DATA  00003400 

C CALL  SYSINT  00003410 

IOLDPW-IPWR  00003420 

DAT I NT-0.0  00003430 

1 1 1-1  00003440 

IF(II.EO.I)  GO  TO  30  00003450 

C 00003460 

C 00003470 

C • STEP  1 : CHECK  SYSTEM  POWER  SWITCH  * 00003480 

C .....................................  00003490 

IP(IPWR.GT.I)  GO  TO  5 00003500 

C IF  POWER  OFF  INITIALIZE  ALL  SYSTEM  FLAGS  AND  CLOCKS.  00003510 

KMSCLK-0  00003520 

CALL  SYSINT  00003530 

RETURN  00003540 

C IF  POWER  ON  UPOATE  MASTER  CLOCK  AND  DETERMINE  OPERATING  MODE.  00003550 

5 KMSCLK— KMSCLK+1  00003560 

C 00003570 

C 00003580 

C • STEP  2:  CHECK  SYSTEM  MODE  SWITCH  • 00003590 

C ....................................  00003600 

I F ( IMOOE.LT .3)  GO  TO  7 00003610 

C IF  SYSTEM  IN  COMM( IMODE-3)  INITIALIZE  ALL  SYSTEM  FLAGS.  00003620 

CALL  SYSINT  00003630 

RETURN  00003640 

C IF  SYSTEM  IN  RADAR  MODE  CHECK  FOR  CHANGE  IN  MODE  (I.E.  ACTIVE-TO  00003650 

C -PASSIVE  OR  PASSIVE-TO-ACTIVE).  00003660 

7 I F ( IMOOE.EQ. IOLDMD)  GO  TO  10  00003670 

C IF  RADAR  MOOE  CHANGE  RESET  SYSTEM  TO  SEARCH.  00003680 

CALL  SYSINT  00003690 

C UPDATE  STATUS  OF  IOLDMD.  00003700 

10  IOLDMD— I MOOE  00003710 

C 00003720 

C 00003730 

C * STEP  3:  DETERMINE  WHETHER  SYSTEM  IN  STANDBY  • 00003740 

C .............................................  00003750 

I F ( I PWR . GT . 2 ) GO  TO  15  00003760 

CALL  SYSINT  00003770 

RETURN  00003780 

C 00003790 

C ..................................................  00003800 

C • STEP  4:  DETERMINE  WHETHER  WARMUP  PERIOD  EXCEEDED  * 00003810 

C 00003820 

15  IF(KMSCLK.GT.KWMUP)  GO  TO  20  00003830 

C IF  NOT  EXCEEDED  INITIALIZE  ALL  SYSTEM  FLAGS  AND  RETURN.  00003840 

CALL  SYSINT  00003850 

RETURN  00003860 

C IF  EXCEEDED  CONTINUE  SYSTEM  OPERATING  MOOE  DETERMINATION.  00003870 

C 00003880 

C 00003890 

C • STEP  5:  DETERMINE  IF  THERE  HAS  BEEN  AN  ANTENNA  STEERING  MOOE  • 00003900 

C • CHANGE  . 00003910 

C 00003920 

20  IF( IASM. EQ. IOLDSM)  GO  TO  25  00003930 

C IF  CHANGE  HAS  OCCURRED  RESET  ALL  FLAGS  ANO  GO  TO  NEW  MOOE.  00003940 

CALL  SYSINT  00003950 

25  IOLDSbNIASM  00003960 
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c 00003970 

C 00003980 

C • STEP  5:  DETERMINE  WHETHER  SYSTEM  IS  IN  SEARCH  AND  ACQUISITION  • 00003990 

C • OR  TRACK  MODE.  * 00004000 

C ..............................................................  00004010 

I F (MTF . EQ . 1 . OR . MTP . EQ . 1 ) GO  TO  30  00004020 

C IP  TRACK  FLAG  DOWN  GO  TO  SEARCH  MODE.  00004030 

CALL  SEARCH  00004040 

RETURN  00004050 

C IF  TRACK  FLAG  IS  UP  GO  TO  TRACK  MODE.  00004060 

30  CALL  TRACK  00004070 

RETURN  00004080 

END  00004090 

C 00032440 

C 00032450 

C 00032460 

C • THIS  SUBROUTINE  GENERATES  A (3X3)  MATRIX  TGA  THAT  PRODUCES  • 00032470 

C * A ROTATION  OF  GA  RADIANS  ABOUT  THE  Y-AXIS.  • 00032480 

C 00032490 

C 00032500 

C 00032510 

SUBROUTINE  GAMMA(TGA.GA)  00032520 

DIMENSION  TGA(3,3)  00032530 

DO  10  1-1,3  00032540 

DO  10  J-1,3  00032550 

10  TGA( I , J )-0 . 0 00032560 

TGA(2,2)-1 . 0 00032570 

TGA ( 1 . 1 ) -COS ( GA ) 00032580 

TGA(1 ,3)— SIN(GA)  00032590 

TGA(3,3)-TGA(1 , 1 ) 00032600 

TGA(3, 1 )— TGA( 1 ,3)  00032610 

RETURN  00032620 

END  00032630 

C 00031360 

C 00031370 

C 00031380 

C • THIS  FUNCTION  CHECKS  FOR  NEGATIVE  ARGUMENT  FOR  I NT  FUNCTION  • 00031390 

C * AND  CORRECTS  THE  QUANTIZATION  PROCEDURE.  • 00031400 

C 00031410 

C 00031420 

C _ 00031430 

REAL  FUNCTION  I NTT (Y)  00031440 

X-Y  00031450 

IF(X.LT.0.0)  X-X-1 .0  00031460 

INTT-AINT(X)  00031470 

RETURN  00031480 

END  00031490 

C 00031880 

C 00031890 

C 00031900 

C * THIS  SUBROUTINE  MULTIPLIES  THE  (3X3)  MATRIX  A AND  THE  (3X1)  * 00031910 

C • VECTOR  B TO  OBTAIN  THE  (3X1)  VECTOR  C.  • 00031920 

C ••••• 00031930 

C 00031940 

C 00031950 

SUBROUTINE  MULT31 (A,B,C)  00031960 

DIMENSION  A(3,3).B(3).C(3)  00031970 

DO  10  1-1,3  00031980 

C(I)-0.0  00031990 

DO  10  J-1,3  00032000 

10  C(I)  - C(1 )+A( I , J)*B( J)  00032010 

RETURN  00032020 

END  00032030 

C 00031710 


A-30 


c 00031720 

C 00031730 

C * THIS  SUBROUTINE  MULTIPLIES  THE  (3X3)  MATRIX  A AND  THE  (3X3)  * 00031740 

C • MATRIX  B TO  OBTAIN  THE  (3X3)  MATRIX  C.  . 00031750 

C 00031760 

C 00031770 

C 00031780 

SUBROUTINE  MULT33(A,B,C)  00031790 

DIMENSION  A(3,3) , B(3,3).  C(3.3)  00031800 

DO  10  1-1.3  00031810 

DO  10  J-1 ,3  00031820 

C(I,J)-0.0  00031830 

DO  10  K-1 ,3  00031840 

10  C(I.J)  - C(I,J)+A(I,K)*B(K.J)  00031850 

RETURN  00031860 

END  00031870 

C 00032240 

C 00032250 

C 00032260 

C • THIS  SUBROUTINE  GENERATES  A (3X3)  MATRIX  TPH  THAT  PRODUCES  • 00032270 

C * A ROTATION  OF  PH  RADIANS  ABOUT  THE  2-AXIS.  • 00032280 

C 00032290 

C 00032300 

C 00032310 

SUBROUTINE  PHI (TPH, PH)  00032320 

DIMENSION  TPH (3, 3)  00032330 

DO  10  1-1 ,3  00032340 

DO  10  J-1, 3 00032350 

10  TPH ( I, J)— 0.0  00032360 

TPH(3,3)-1.  00032370 

TPH( 1 , 1 )— COS(PH)  00032380 

TPH(2,2)« TPH(1 , 1 ) 00032390 

TPH(1  ,2)-SIN(PH)  00032400 

TPH(2, 1 )— TPH(  1 ,2)  00032410 

RETURN  00032420 

END  00032430 

C 00031500 

C 00031510 

C 00031520 

C • THIS  SUBROUTINE  GENERATES  A (3X3)  MATRIX  TPHD  THAT  REPRESENTS  * 00031530 

C • THE  DERIVATIVE  OF  A MATRIX  THAT  REPRESENTS  UNIFORM  ROTATION  • 00031540 

C • ABOUT  THE  Z— AXIS , THE  ROTATION  SPEED  IS  W AND  THE  ANGLE  AT  . 00031550 

C • WHICH  THE  DERIV.  IS  TAKEN  IS  PH.  . 00031560 

C 00031570 

C 00031580 

C 00031590 

SUBROUTINE  PHID(TPHD,PH.W)  00031600 

DIMENSION  TPHD(3,3)  00031610 

DO  10  1-1,3  00031620 

TPHD(3, I)-0.0  00031630 

10  TPHD(I ,3)— 0.0  00031640 

TPHD( 1 , 1 )— W.SIN(PH)  00031650 

TPHD (2, 2)— TPHD ( 1,1)  00031660 

TPHD(l ,2)-W«COS(PH)  00031670 

TPHD(2, 1 )— TPHD(1 ,2)  00031680 

RETURN  00031690 

END  00031700 

C 00010980 

C 00010990 

C 00011000 

C • THIS  SUBROUTINE  UPDATES  THE  POSITION  OF  THE  ANTENNA  GUuBALS  • 00011010 

C 00011020 

C 00011030 

C 00011040 
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SUBROUTINE  POINT  00011050 

COMMON  /0UTPUT/IDUM1 (3) ,DUM4(2) , SPANG, SRANG,DUM5(3) . IDUM2(4)  00011060 

COMMON  /SYSDAT/TS,DUM(3) ,CG , SG ,DUM2(9)  00011070 

COMMON  /ATDAT/DUM1 ( 4 ) , SAURTE . SBTRTE . DUM3 ( 2 ) . AL . BT . PREF . RREF . 00011080 

2 AREF.BREF  00011090 

DATA  AK/2.0/.TAU/1 .414/, Pl/3. 141592653/  00011100 

C 00011110 

C .................... 00011120 

C • STEP  1:  PRELIMINARY  COMPUTATIONS  • 00011130 

C 00011140 

CR-COS ( -RREF ) 000111 50 

SR-SIN(-RREF)  00011160 

CP-COS(-PREF)  00011170 

SP-SIN(-PREF)  00011180 

C 00011190 

C 00011200 

C » STEP  2:  COMPUTE  ANTENNA  REFERENCE  ROLL/PITCH  ANGLES  IN  THE  * 00011210 

C * RADAR  FRAME.  • 00011220 

C * 00011230 

XX-CG.SP-SG.SR.CP  00011240 

YY«SG*SP+CG*SR*CP  00011250 

Z2-CR.CP  00011260 

I F(YY . EQ. 0 . 0 .AND . ZZ . EO.0 . 0)  GO  TO  1 00011270 

AREF-ATAN2 ( YY , ZZ ) 000 1 1 280 

GO  TO  2 00011290 

1 IF(XX .GT .0.0)  AREF— PI/2.  00011300 

IF(XX. LT.0.0)  AREF-PI/2.  00011310 

2 BREF-ASIN(XX)  00011320 

C 00011330 

C .........................................................  00011340 

C » STEP  3:  UPDATE  OUTER  (ALPHA)  GIMBAL  RATE  AND  POSITION  • 00011350 

C .........................................................  00011360 

C COMPUTE  ALPHA  LOOP  POSITION  ERROR.  00011370 

ERRA-AREF-AL  00011380 

C UPDATE  SMOOTHED  ALPHA  GIMBAL  RATE  ESTIMATE.  00011390 

SALRTE-SALRTE+TS.AK.ERRA  00011400 

C UPDATE  ALPHA  GIMBAL  RATE.  00011410 

A LRAT  E**AK  • T AU  * ERRA+SA  LRT  E 0001 1 420 

C CHECK  FOR  ALPHA  GIMBAL  RATE  LIMITING.  00011430 

I F(ABS( ALRATE) .GT . 56 . ) ALRATE-56 . .ALRATE/ABS(ALRATE)  00011440 

C UPDATE  ALPHA  GIWBAL  POSITION.  00011450 

AL-AL+TS.ALRATE  0001 1 460 

C 00011470 

C ........................................................  00011480 

C * STEP  4:  UPDATE  INNER  (BETA)  GIMBAL  RATE  AND  POSITION  • 00011490 

C 00011500 

C COMPUTE  BETA  LOOP  POSITION  ERROR.  00011510 

ERRB-BREF-BT  000 1 1 520 

C UPDATE  SMOOTHED  BETA  GlfcBAL  RATE  ESTIMATE.  00011530 

SBTRTE-SBTRTE+TS.AK.ERRB  0001 1540 

C UPDATE  BETA  GIMBAL  RATE.  00011550 

BTRATE-AK.TAU.ERRB+SBTRTE  00011560 

C CHECK  FOR  BETA  GIMBAL  RATE  LIMITING.  00011570 

IF(ABS(BTRATE) .GT.56. ) BTR ATE-56 . • BTRATE/ABS ( 8TRATE ) 00011580 

C UPDATE  BETA  GIMBAL  POSITION.  00011590 

BT-BT+TS.BTRATE  0001 1 600 

C 00011610 

C 00011620 

C • STEP  5 : ANTENNA  IN  OBSCURATION  REGION"  * 00011630 

C 00011640 

C CALL  SCNWRN  00011650 

C 00011660 

C 00011670 

C * STEP  6:  COMPUTE  ANTENNA  ROLL/PITCH  ANGLES  IN  THE  BODY  FRAME  • 00011680 


A-32 


C 00011690 

CA-COS(AL)  00011700 

SA-SIN(AL)  00011710 

CB-COS(BT)  00011720 

SB-SIN(BT)  00011730 

XX-CA*SB+SG*SA«CB  00011740 

YY— SG  * SB+CG*  SA  *CB  000 1 1 750 

ZZ-CA.C8  00011760 

I F( YY . EQ . 0 . 0 . AND . ZZ . EO . 0 . 0)  GO  TO  3 00011770 

SRANG— 57. 29576»ATAN2(YY,ZZ)  00011780 

GO  TO  4 00011790 

3 IF(XX.GT.0.0)  SRANG-490.0  00011800 

IF(XX. LT.0.0)  SRANG— 90.0  00011810 

4 SPANG— 57. 29576«ASIN(XX)  00011820 

C RESOLVE  POSSIBLE  ANGLE  AMBIGUITIES.  VIZ.,  -90 . <SPANG<90 . AND  00011830 

C — 1 80 . <SRANG<1 80 . 00011840 

I F ( SPANG . LE . 90 . ) GO  TO  10  00011850 

SPANG— ( 1 80 . -ABS (SPANG) ) • ( SPANG/ABS( SPANG) ) 00011 860 

SRANG- ( 1 80 . -ABS ( SRANG ) ) • ( SRANG/ABS ( SRANG ) ) 00011870 

10  RETURN  00011880 

END  00011890 

C 00018390 

C 00018400 

C 00018410 

C * THIS  SUBROUTINE  COMPUTES  TARGET  C.G.  POSITION  AND  VELOCITY  • 00018420 

C * WRT  ANTENNA  LOS  COORDINATES  AND  INDIVIDUAL  SCATTERER  POSI-  * 00018430 

C • TIONS  AND  VELOCITIES  WRT  ANTENNA  LOS  COORDINATES.  • 00018440 

C 00018450 

C 00018460 

C 00018470 

SUBROUTINE  PVTRAN  00018480 

COMMON  /TEST1/RA(3) 

COMMON  /CNT  L/ 1 PWR , I MODE  000 1 8490 

COMMON  /INPUT/ERT(3) ,EVT(3) ,DUM(21 ) 00018500 

COMMON  /0UTPUT/MSWF.MTF.MSF,DUM0(7),IDUM0(4)  00018510 

COMMON  /ICNTL/IDUM6(9) ,MTP, IDUM7(3) .MTKINT  00018520 

COMMON  /SYSDAT/TSAM,DR(3) , DUM2(  1 1 ) 00018530 

COMMON  /TGTDAT/NT,RAU(3.100),RANGE(100),RADVEL(100),RO(3),  00018540 

2 ROU ( 3 ) , CGRNGE , CGVEL  000 1 8550 

COMMON  /SATDAT/RAOAR(3) ,N20,RT(70,3) ,SIG(70) , ROLD , I CLOSE, ICLOLD  00018560 
COMMON  /X FORMS/TLB (3, 3) ,TLBD(3.3) ,TLT(3.3) ,TLTD(3,3)  00018570 

COMMON  /TARGET/  ITARG.SRCS 

DIMENSION  ROR(3) , ROD (3) ,V1(3).RL(3) , RAD(3) ,RLD(3) ,XRT(3)  00018580 

C .............................................................  00018600 

C * STEP  1:  COMPUTE  TARGET  C.G.  POSITION  IN  ANTENNA  LOS  FRAME  * 00018610 

C 00018620 

C 00018630 

C STEP  1-1:  ADD  RADAR  OFFSET  IN  ORBITER  BODY  FRAME.  00018640 

DO  5 1-1,3  00018650 

5 ROR( I )-ERT( I )— DR( I ) 00018660 

C 00018670 

C STEP  1-2:  TRANSFORM  TARGET  C.G.  POSITION  FROM  BODY  FRAME  TO  00018680 

C ANTENNA  LOS  FRAME.  00018690 

CALL  MULT31 (TLB.ROR.RO)  00018700 

C 00018710 

C STEP  1-3:  COMPUTE  RANGE  OF  TARGET  C.G.  WRT  RADAR.  00018720 

CGRNGE-SQRT(RO(1).RO(1)+RO(2)*RO(2)+RO(3).RO(3))  00018730 

C 00018740 

C STEP  1-4:  COMPUTE  UNIT  VECTOR  IN  DIRECTION  OF  TARGET  C.G.  WRT  00018750 

C ANTENNA  LOS  FRAME.  00018760 

DO  10  1-1.3  00018770 

10  ROU( I )-R0( J ) /CGRNGE  00018780 

C 00018790 

C 00018800 
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* STEP  2:  COMPUTE  TARGET  C.G.  RADIAL  VELOCITY  WRT  ANTENNA  LOS 

• FRAME  (OR  RADAR) . 


STEP  2-1:  COMPUTE  TARGET  C.G.  VELOCITY  COMPONENTS  WRT  ANTENNA 
LOS  FRAME. 

CALL  MULT31 (TLBD ,ROR , VI ) 

CALL  MULT31 (TLB . EVT , ROD) 

DO  15  1-1,3 

15  ROD( I )— ROD( I )+V1 ( I ) 

STEP  2-2:  COMPUTE  TARGET  C.G.  RADIAL  VELOCITY  WRT  ANTENNA  LOS. 
CGVEL-0.0 
DO  20  1-1 ,3 

20  CGVEL-CGVEL+ROD(  I )*ROU(  I ) 


• STEP  3:  COMPUTE  TARGET  SCATTERING  CHARACTERISTICS  - OF 

• ILLUMINATED  POINTS,  THE  POINT  LOCATIONS,  AND  THE 

• RCS  FOR  EACH  POINT. 


STEP  3-1:  IF  IN  ACTIVE  MODE,  SEARCH  MODE,  OR  TRACKER  INITIALIZATION 
ASSUME  SINGLE  SCATTERER  LOCATED  AT  TARGET  FRAME  ORIGIN 


00018810 
00018820 
00018830 
00018840 
00018850 
00018860 
00018870 
00018880 
00018890 
00018900 
00018910 
00018920 
00018930 
00018940 
00018950 
00018980 
00018990 
00019000 
00019010 
0001 9020 
00019030 
00019040 
00019050 
.00019060 
00019070 


ITARG-0  POINT  TARGET 
ITARG-1  spas 
ITARG-2  SMM 

IF( ITARG. EO. 0)  GO  TO  24 
CHECK  CONDITION. 

IF(  IMODE.NE. 1 . AND.MTKINT .NE.0. AND.MTP.NE.0)  GO  TO  30 

IF  ABOVE  CONDITION  TRUE  THEN  SET  PARAMETERS  AS  FOLLOWS  AND  DO 

NOT  CALL  TARGET  MODEL. 

24  NT-1 

SIG(1 )— SRCS 
DO  25  1-1 ,3 

25  RT(1 , I )— 0.0 

STEP  3-2:  COMPUTE  LOCATION  OF  RADAR  IN  TARGET  FRAME. 

30  DO  35  1-1  ,3 
RADAR ( I )— 0 . 0 
DO  35  J-1 ,3 

35  RADAR ( I )«RADAR(  I )— TLT( J , I )*RO(  J ) 

I F ( I T ARG . EQ . 0 ) GO  TO  40 

STEP  3-3:  COMPUTE  TARGET  SCATTERING  CHARACTERISTICS. 

IF(  ITARG . EQ.2)CALL  S 1*4 
IF(  ITARG. EQ. 1 )CALL  SPAS 
NT-N20 

40  DO  70  K— 1 , NT 


♦ STEP  4:  COMPUTE  KTH  SCATTERER  POSITION,  RANGE,  AND  DIRECTION  * 

• VECTOR  WRT  ANTENNA  LOS  FRAME  (OR  RADAR).  * 


STEP  4-1:  COMPUTE  KTH  SCATTERER  POSITION  WRT  ANTENNA  LOS  FRAME. 
DO  45  J-1,3 
RL(J)— 0.0 
DO  45  1-1,3 

45  RL(J)*RL( J)+TLT( J , I)*RT(K, I) 

DO  50  1-1,3 
50  RA(I)-RO(I)+RL(I) 


00019090 

00019100 

00019110 

00019120 

00019130 

00019140 

00019150 

00019160 

00019170 

00019360 

00019370 

00019380 

00019390 

00019400 

00019410 

00019430 

00019440 


00019460 

00019470 

00019480 

00019490 

00019500 

00019510 

00019520 

00019530 

00019540 

00019550 

00019560 

00019570 

00019580 

00019590 

00019620 

00019630 


00019450 


A-34 


C 00019640 

C STEP  4-2:  COMPUTE  RANGE  OF  KTH  SCATTERER  WRT  RADAR.  00019650 

RANGE(K)«SQRT(RA(1)*RA(1)+  RA(2)*RA(2)+RA(3)*RA(3))  00019660 

C 00019670 

C STEP  4-3:  COMPUTE  UNIT  VECTOR  IN  DIRECTION  OF  KTH  SCATTERER  WRT  00019680 

C ANTENNA  LOS  FRAME.  00019690 

DO  55  1-1.3  00019700 

55  RAU(I ,K)-RA(I)/RANGE(K)  00019710 

C 00019720 

C 00019730 

C • STEP  5:  COMPUTE  KTH  SCATTERER  RADIAL  VELOCITY  WRT  RADAR  • 00019740 

C 00019750 

C 00019760 

C STEP  5-1:  COMPUTE  KTH  SCATTERER  VELOCITY  COMPONENTS  WRT  ANTENNA  00019770 

C LOS  FRAME.  00019780 

DO  58  1-1,3  00019790 

58  XRT(I)-RT(K, I)  00019800 

CALL  MULT31 (TLTD.XRT.RLD)  00019810 

DO  60  1-1,3  00019820 

60  RAD ( I )-ROD ( I )+RLD( I ) 00019830 

C 00019840 

C STEP  5-2:  COMPUTE  KTH  SCATTERER  RADIAL  VELOCITY  WRT  TO  RADAR.  00019850 

RADVEL(K)— 0 . 0 00019860 

DO  65  1-1,3  00019870 

65  RADVEL(K)-RADVEL(K)+RAD(I).RAU(I,K)  00019880 

70  CONTINUE  00019890 

C 00019900 

C NOTE:  DEBUGGING  PRINT  STATEMENTS.  00019910 

C WRITE(6,900)  RO(1 ) ,RO(2) ,RO(3) .CGRNGE.CGVEL  00019920 

C WRITE(6.901 ) RAU( 1,1) ,RAU(2 , 1 ) , RAU(3 , 1 ) ,RANGE(1 ) ,RADVEL( 1 ) 00019930 

C WRITE(6,902)  00019940 

C WRITE(6,903) (I,(RT(I,J), J— 1 ,3)  ,SIG(I) , 1—1  ,N20)  00019950 

900  FORMAT(//’  ROI ,R02.R03,CGR,CGV  — ’.5F10.2)  00019960 

901  FORMAT ( * RAU1 .RAU2.RAU3.R.V  .5F10.2)  00019970 

902  FORMAT (’  SPAS  RCS  DATA: ' ./,  00019980 

1 / ,9X, ’I ' ,4X, "R(  I ,1) ’ ,4X, * R( I ,2) ’ ,4X, ’R( I ,3) ' ,9X, ‘SIG(I)' ,/)  00019990 

903  FORMAT( I 10.3F10.2, F15. 1 ) 00020000 

RETURN  00020010 

END  00020020 

C 00030970 

C 00030980 

C ••••••••••* 00030990 

C • THIS  FUNCTION  GENERATES  A RANDOM  NUMBER  FROM  A UNIFORM  00,10  . 00031000 

C » DISTRIBUTION  . 00031010 

C 00031020 

FUNCTION  RNDU( IRAN)  00031030 

DATA  MU/524287/, I ETA/997/  00031040 

I F ( I RAN . EO . 0 ) GO  TO  10  00031050 

I RAN- 1 ETA . I RAN  0003 1 070 

I KEEP— I RAN/MU  00031080 

IRAN-IRAN— IKEEP*MU  00031090 

XRAN-IRAN  00031100 

XRAt^XRAN/MU  00031 1 1 0 

RNDU-XRAN  0003 1120 

10  RETURN  00031130 

END  00031140 

C 00029220 

C 00029230 

C 00029240 

C • THIS  SUBROUTINE  COMPUTES  THE  RADAR  SIGNAL  STRENGTH  AND  UPDATES  • 00029250 

C • THE  AGC  SETTING.  • 00029260 

C 00029270 

C 00029280 

C 00029290 


SUBROUTINE  RSS  00029300 

COMMON  /CNTL/IPWR, IMODE, IDUM1 (7) , DUM1 (3)  00029310 

COMMON  /ICNTL/IDUM2( 14) ,MRNG, IDUM6( 12)  00029320 

COMMON  /OUTPUT/1 DUM7 (3) ,DUM3(6) ,SRSS, IDUM4(4)  00029330 

COMMON  /AGCDAT/AGCO , AGCODB , SNRDT , SNRDTD  00029340 

DIMENSION  PS(10,2)  00029350 

DATA  PS/9* 1 . ,2. ,5*1 . ,2. ,4. ,8. ,8. ,16./* QNV/0 . 041 66666/  00029360 

C 00029370 

C 00029380 

C • STEP  1:  UPDATE  SYSTEM  AGC  • 00029390 

C ...»••  00029400 

C 00029410 

C STEP  1-1 : COMPUTE  AGC  ERROR  AND  CHECK  LIMITS.  00029420 

AGCERR-4. *PS(MRNG. IMODE)/(AGCO» (SNRDT+1 .0)+QNV)  00029430 

I F ( AGCERR . GT . 1 0 . ) AGCERR-10.0  0002944 0 

I F( AGCERR.LT. 0.1)  AGCERR— 0 . 1 00029450 

C 00029460 

C STEP  1-2:  COMPUTE  NEW  AGC  VALUE  AND  CHECK  LIMITS.  00029470 

AGCOAGCERR.AGCO  00029480 

IF(AGCO.GT. 1 .0)  AGCO-1 .0  00029490 

AGCODB— 10 . *ALOG10(AGCO)  00029500 

C 00029510 

C 00029520 

C • STEP  2:  UPDATE  RADAR  SIGNAL  STRENGTH  VALUE  * 00029530 

C ............................ ..................  00029540 

IF(AGCO. LT. 1 . 0E-15)  AGCO-1 .OE-15  00029550 

SRSS-1./AGCO  00029560 

SRSS-10. *ALOG10(SRSS)  00029570 

RETURN  00029580 

END  00029590 

C 00026530 

C 00026540 

C 00026550 

C * THIS  SUBROUTINE  UPDATES  RANGE  AND  RANGE  RATE  ESTIMATES.  • 00026560 

C 00026570 

C 00026580 

C 00026590 

SUBROUTINE  RTRACK  00026600 

REAL  I NTT , IRDISC , IRNG , IRDOT  00026605 

C0M40N  /CNTL/IPWR, IMODE, IDUMC(7),DUMC(3)  00026610 

COMMON  /OUTPUT/IDUM0(3) , SRNG , SRDOT ,DUM2(5) . IDUM(4)  00026620 

COMMON  /ICNTL/I 1DUM( 14) ,MRNG .MSAM.MPRF, IDUM1 (10) ,MPFOLD  00026630 

COMMON  /SYSDAT/TSAM , DUMS (14)  00026640 

COMMON  /RTDAT/IRDOT , IRNG,RBIAS, VEST(4) ,MDF(5)  00026650 

COMMON  /DSCRM/DUM( 2 ) , RDSC , VD I SC , RRT E , OD I SC , DUM3 (3)  00026660 

DIMENSION  RT1 (10,2) ,RT2(10,2) ,TDC(3) ,RGBIAS(2)  00026670 

DATA  RT1/9*0. 125,0.25,4*0. 125,2. ,1 . ,2 . ,2*0.5 ,0.25/,RT2/9*0 . 5 , 00026680 

2 4. 0,4*0. 5, 8. ,8. ,4*16./  00026690 

DATA  TDC/0. 051221 18,0. 1195161 ,0.2561557/ 

DATA  RGB I AS/32 .3,94.7  / 

C 00026700 

C 00026710 

C • STEP  1:  UPDATE  ROUGH  RANGE  RATE  ESTIMATE  • 00026720 

C 00026730 

C 00026740 

C STEP  1-1:  INTEGERIZE  RANGE  DISCRIMINANT  AND  CHECK  FOR  SATURATION.  00026750 
RD I SC-5 . 333333*RDSC  00026760 

TCOtWSAM/TDC  ( MPRF) 

I RD  I SO I NTT ( RD I SC*  TCON+0 . 5 ) /TCON  00026770 

IF( IRDISC. GT  . 127. ) IRDIS0127  . 00026780 

I F( IRDISC. LT .—128. ) IRDISC— 128.  00026790 

C 00026800 

C STEP  1-2:  COMPUTE  ROUGH  RANGE  RATE  PREDICTION  FROM  ALPHA-BETA  00026810 

C TRACKING  EQUATIONS.  00026820 


A-36 


ooooooo  oooooooooo  o ooo  oo  ooo  ooooooo 


C DEFINITION:  RT1 (MRNG, IMODE)  CORRESPONDS  TO  BETA  IN  ALPHA-BETA  TRACK . 00026830 


RR1»IRDISC*RT1 (MRNC , I MODE)  00026840 

IRDOT-IRDOT+INTT(RR1+0.5)  00026850 

00026860 

00026870 

• STEP  2:  UPDATE  RANGE  ESTIMATE  • 00026880 

•••••••*••••••••••,.  00026890 

00026900 

STEP  2-1:  UPDATE  RANGE  ESTIMATE  USING  ALPHA-BETA  TRACKER  EQUATIONS.  00026910 
DEFINITION:  RT2  CORRESPONDS  TO  ALPHA  IN  ALPHA-BETA  TRACKER.  00026920 

R1«IRDISC*RT2(MRNG, IMODE)  00026930 

IRNG-IRNG+IRDOT+INTT(R1+0.5)  00026940 

00026950 

STEP  2-2:  CONVERT  RANGE  ESTIMATE  ( IRNG)  TO  FEET  USING  THE  FACT  THAT  00026960 

THE  LSB  OF  IRNG  REPRESENTS  5/16  FEET.  00026970 

RNG«0.3125»IRNG  00026980 

00026990 

STEP  2-3:  ADD  FIXED  BIAS  TO  FINAL  RANGE  ESTIMATE.  00027000 

SRNG-RNG+RG8IAS(MSAM)  00027010 


FORCE  BREAK  TRACK  IF  RANGE  LESS  THAN  100  FT 


IF(SRNG. LT. 100. )CALL  SYS I NT 


RETURN  00027020 

END  00027030 

00035530 

00035540 

00035550 

* THIS  SUBROUTINE  DETERMINES  WHETHER  THE  SIGNAL  PLUS  NOISE  * 00035560 

• IS  SATURATING  THE  A/D  IF  SO. THEN  THE  SNR  AT  DOPPLER  * 00035570 

* FILTER  OUTPUT  IS  LIMITED  TO  THE  VALUE  THAT  JUST  SATUR-  • 00035580 

• ATES  THE  A/D.  . 00035590 


00035600 
00035610 
00035620 
00035630 
00035640 
00035650 
00035660 
00035670 
00035680 
00035690 
00035700 
00035710 
00035720 
00035730 
00035740 
00035750 
00012670 
00012680 
00012690 

• THIS  SUBROUTINE  CYCLES  THRU  THE  LOGIC  FOR  ANY  SCAN  GENERATION.  . 00012700 


00012710 

00012720 

00012730 

SUBROUTINE  SCAN  00012740 

COMMON  /CNTL/IDUM(4)  , ISRCHC,  ISRCHC,  IDUMC(3)  , EDRNG . DUMC ( 2 ) 00012750 

COMylON  /0UTPUT/MSWF,MTF,MSF,DUM1  (7) , IDUM2(4)  00012760 

COMJON  /ICNTL/IDUM3(6)  , KSNCLK,  IDUM4(2)  ,MTP.  IDUM5(  17)  .MSWTCH,  00012770 

2 KSN , IAROLD , ITROLD  . 00012780 

COMMON  /SYSDAT /TSAM , DUMS (14)  00012790 

COMMON  /TGTDAT/NT,DUM2(503) ,R0U(3) ,DUM3(2)  00012800 

COMMON  /ATDAT/DUM4(8) ,AL,BT,DUM5(2) .AREF.BREF  00012810 


SUBROUTINE  SATNSE(SNF) 

COMMON  /CNTL/IPWR, IMODE 

COMJON  /ICNTL/IDUM( 14) , MRNG 

COMMON  / AGCDAT /AGCO , AGCODB , SNRDT , SNRDTD 

DIMENSION  PS(10,2) 

DATA  PS/9* 10. 0.2. ,5*1. .2. .4. .8. .8. .16./ 
SNF-1 . 

X-AGCO* (SNRDT/(4 . *PS(MRNG , IMODE)  )+1  . 0) 

X-12.25/X 

IF(X.GT.I)  RETURN 

SNF-X 

RETURN 

END 


DIMENSION  T I MI NT (31 ) , ANOINT (31 ) ,RSW( 10) ,TSW( 10)  00012820 

DATA  TIMINT/ .7,1.4, 1.9, 2. 6,3. 4,4. 3, 5. 1.6.. 7.. 8.. 9. 1.10. 4. 11. 8,  00012830 

1 13.3,14.9, 16.9,18.9.21 . 1 ,23.4,25.9,28.6,31 .5.33.5,36.6.39.8,  00012840 

2 43.2,46.8.50.5,54.3.58.4,60.0/  00012850 

DATA  ANGINT/0. ,.7, 1.5. 2.. 2. 7. 3. 6, 4. 4, 5. 2. 6.1 ,7. ,7. 9, 8. 8, 9. 8, 10.9,00012860 

1 11. 9, 13. 0.14. 2, 15. 3, 16. 5, 17. 6. 18. 8, 19. 9, 21. 1,22. 2. 23. 4, 24. 5,  00012870 

2 25.6.26.7,27.8.28.9,30./  00012880 

DATA  TSW/60. 0,54. 3,43. 2. 33.5, 28.6, 21 .1 ,14.9,11 .8, 8. 0.6.0/,  00012890 

2 RSW/48609 . 2 , 55900 . 6 , 62584 .3,71698.6,91142.5,151903.8,  0001 2900 

3 243046.0,394949.8.881041.8.1822845.0/  00012910 

PI  1-1 80. /3. 141592653  00012920 

C 00012930 

C 00012940 

C • STEP  1:  DETERMINE  WHETHER  TO  PERFORM  SCAN  INITIALIZATION(MSF-0)  . 00012950 
C * OR  SCAN  UPDATE(MSF-1 ) . * 00012960 

C 00012970 

IF(MSF.EQ.I)  GO  TO  15  00012980 

C 00012990 

C 00013000 

C • STEP  2:  PERFORM  SCAN  INITIALIZATION  • 00013010 

C 00013020 

C INITIALIZE  ALL  FLAGS.  00013030 

MSF-1  00013040 

C INITIALIZE  RING  MONITORS.  00013050 

1AROLD-0  00013060 

ITROLD-10  00013070 

C INITIALIZE  SCAN  CLOCK.  00013080 

KSNCLK-0  00013090 

C INITIALIZE  SCAN  TIME  PARAMETER.  00013100 

KSN-0  00013110 

C 00013120 

C DETERMINE  SWITCH  POINT  PARAMETER.  00013130 

DO  5 1-1,10  00013140 

IF(EDRNG.LT.RSW(I))  GO  TO  10  00013150 

5 CONTINUE  00013160 

10  MSWTCH— I 00013170 

C 00013180 

C ..............................  00013190 

C * STEP  3:  UPDATE  SCAN  CLOCKS  * 00013200 

C 00013210 

C 00013220 

C STEP  3-1:  UPDATE  SCAN  CLOCK  (TRACKS  TOTAL  ELAPSED  TIME  FROM  SCAN  00013230 

C INITIATION).  00013240 

1 5 KSNC LK-KSNC  LK+ 1 00013250 

T —FLOAT ( KSNC  LK ) * TSAM  00013260 

C 00013270 

C STEP  3-2:  UPDATE  SCAN  TIME  PARAMETER  (USED  TO  DETERMINE  BORESIGHT  00013280 

C POSITION  IN  SCAN  PATTERN).  00013290 

I F(T . LE. TSW(MSWTCH) ) KSN-KSN+1  00013300 

I F(T ,GT . TSW( MSWTCH) ) KSN-KSN-1  00013310 

TSN-FLOAT(KSN) »TSAM  00013320 

C 00013330 

C 00013340 

C • STEP  4:  DETERMINE  ANTENNA  POSITION  TO  NEAREST  SCAN  RING  * 00013350 

C 00013360 

DO  20  1-1 .31  00013370 

IF(TSN. LT.TIMINT(I))  GO  TO  25  00013380 

20  CONTINUE  00013390 

25  IARNG-I  00013400 

C 00013410 

C 00013420 

C • STEP  5:  DETERMINE  TARGET  POSITION  IN  SCAN  PATTERN  (SCAN  • 00013430 

C • RING  NUMBER  FOR  TARGET)  • 00013440 

C ....... .............................................. ......  00013450 


A-38 


c 

00013460 

c 

STEP  5-1:  DETERMINE  TARGET  POSITION  EXACTLY. 

00013470 

ALOLD-AL 

00013480 

BTOLD-BT 

00013490 

AL-AREF 

00013500 

BT-BREF 

00013510 

CALL  TRNSFM 

00013520 

CALL  PVTRAN 

00013530 

AL-ALOLD 

00013540 

BT-BTOLD 

00013550 

c 

00013560 

c 

STEP  5-2:  OET ERMINE  TARGET  SCAN  RING  NUMBER. 

00013570 

c 

00013580 

c 

DETERMINE  TARGET  ANGLE  OFF  SCAN  DESIGNATES  (DEGREES) . 

00013590 

CCCCCCCCCCCCCCCCCCCC  MOO  MAR  24  1983  CCCCCCCCCCCCCCCCCCCCC 

CGANG-ACOS (-ROU ( 3 ) ) «P I I 

00013600 

c 

00013610 

c 

DETERMINE  TARGET  SCAN  RING  NUMBER. 

00013620 

DO  30  1-1 ,31 

00013630 

IF(CGANG. LT.ANGINT(I))  GO  TO  35 

00013640 

30  CONTINUE 

00013650 

35  ITRNG-I 

00013660 

I F(CGANG . GT . 30 . ) ITRNG-32 

00013670 

c 

c 

00013680 

c 

c 

• STEP  6:  DETERMINE  IF  A DETECTION  SHOULD  BE  ATTEMPTED  • 

00013700 

000 1 37 1 0 

c 

00013720 

c 

STEP  6-1:  CHECK  CONDITION. 

00013730 

IF( IARNG. EQ. ITRNG.AND. IAROLD.NE. ITROLD)  CALL  DETECT 

00013740 

c 

00013750 

c 

STEP  6-2:  UPDATE  RING  NUMBER  MONITOR. 

00013760 

IAROLD-IARNG 

00013770 

ITROLD- 1 TRNG 

00013780 

c 

00013790 

c 

00013800 

c 

* STEP  7:  CHECK  FOR  SCAN  TERMINATION  CONDITIONS  • 

00013810 

c 

00013820 

c 

00013830 

c 

STEP  7-1:  CHECK  ALL  POSSIBLE  TERMINATION  CONDITIONS. 

00013840 

c 

00013850 

c 

CONDITION  - 1:  T > 60.  SECONDS” 

00013860 

1 F ( T . GE . 60 . ) GO  TO  40 

00013870 

c 

00013880 

c 

CONDITION  - 2:  NEXT  SCAN  TIME  PARAMETER  < 0.  " 

00013890 

ITEMP— KSN— 1 

00013900 

I F( ITEMP.LT. 0)  GO  TO  40 

00013910 

c 

00013920 

c 

CONDITION  - 3:  DETECT  A TARGET" 

00013930 

IF(MTP. EQ.0)  RETURN 

00013940 

c 

00013950 

c 

STEP  7-2:  PERFORM  SCAN  TERMINATION  STEPS  IF  TERMINATION  COND 

00013960 

c 

ITION  OBTAINED. 

00013970 

40  MSF-0 

00013980 

KSNCLK-0 

00013990 

KSN-0 

00014000 

ISRCHG-0 

00014010 

ISRCHC-0 

00014020 

RETURN 

00014030 

END 

00014040 

c 

00011900 

c 

00d1910 

c 

• THIS  SUBROUTINE  DETERMINES  WHETHER  THE  ANTENNA  IS  IN  THE  OB-  • 

00011920 

c 

00011930 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


• SCURATION  ZONE  AND  SETS  THE  SCAN  WARNING  FLAG  APPROPRIATELY.  • 


SUBROUTINE  SCNWRN 

COMMON  /OUTPUT/MSWF, IDUMO(2) ,DUM0(7) . IDUMOI (4) 

COMMON  /ATDAT/DUM(8) ,A,B,DUMA(4) 

DIMENSION  ICLEAR(36 ,72) 

DATA  I CLEAR  /17*1 , 13*6,6*1 . 18*1 , 12*0.6*1 . 18*1 . 12*6,6*1 . 
18*1,12*0,6*1 .19*1 ,11*0,6*1 ,19*1 ,11*0,6*1 .19*1 .11*0,6*1 . 

19*1 ,11*0,6*1 ,19*1 ,11*0,6*1 ,19*1 ,11*0,6*1 ,20*1 ,10*0,6*1 , 

20*1 .10*0,6*1 .20*1 ,10*0,6*1 ,20*1 ,10*0,6*1 ,20*1.10*0. 

6*1 .20*1 .10*0,6*1 ,19*1 .11*0,6*1 ,18*1 ,12*0,6*1 ,17*1 ,13*0, 

6*1 ,16*1 ,14*0,6*1 ,15*1,15*0,6*1 , 14*1 , 1 6*0, 6*1 , 14*1 , 16*0 . 

6*1,13*1 ,17*0,6*1 ,12*1 .18*0,6*1 ,11*1 ,19*0,6*1,10*1 .20*0,6*1 . 

9*1 ,21*0,6*1 ,9*1,21*0.6*1,8*1 ,22*0,6*1 ,4*1 ,0,3*1 ,22*0.6*1 . 

8 4*1,26*0,6*1 ,4*1 ,26*0,6*1 ,4*1 .26*0,6*1 ,4*1 ,26*0,6*1 ,4*1 .26*0,6*1 

9 4*1 ,26*0,6*1 ,4*1 ,26*0,6*1 ,4*1 ,26*0,6*1 .4*1 .26*0.6*1 ,4*1 ,26*0,6*1 
A 4*1 .26*0,6*1 ,4.1 ,26*0,6*1 .4*1 ,26*0,6*1 .4*1 ,26*0.6*1 .4*1 ,26*0,6*1 
B 4*1 .26*0.6*1 ,4*1 ,26*0,6*1 ,4*1 ,26*0,6*1 ,4*1 ,7*0.2*1,17*0,6*1 . 

C 4.1,7*0,2*1,17*0,6*1,4*1 .6*0.3*1.17*0,6*1 .4*1 .5*0, 4*1 , 17*0 , 6*1 , 
4*1 ,5*0, 6*1 ,15*0,6*1 ,4*1 ,0,12*1 ,13*0,6*1 .19*1,11*0,6*1, 

21*1 ,9*0, 6*1 ,24.1.6*0.6*1 ,26*1 .4*0, 

6*1 ,27*1 ,3*0, 6*1 ,28*1 ,2*0, 6*1 .29*1 .0,6*1 .29*1 .0,6*1 ,28*1 , 

2*0, 6*1 ,27*06. 3*0, 6*1 .26*1 ,4*0, 6*1 ,25*1 .5*0, 6*1 .23*1 .7*0, 6*1 . 
23*1,7*0,6*1 .22*1 .8*0, 6*1 ,19*1,11*0,6*1.18.1 .12*0,6*1/ 


ALPHA«A«57.3 

BETA-B*57.3 

IF(ABS(BETA) . LE.90. ) GO  TO  1 
BETA— ( 1 80-ABS ( B ) ) * ( B/ABS ( B ) ) 
ALPHA- ( 1 80-ABS (A) ) • (A/ABS( A) ) 
CONTINUE 

IA-INT ( (ALPHA+180. )/5.+1 . ) 
IB-INT ( (90— BETA)/5 .+1 . ) 
MSWF-ICLEAR(IB.IA) 

RETURN 

END 


THIS  SUBROUTINE  COMPUTES  THE  RESPONSE  TO  ALL  DISPLAYS  AND 
CONTROLS  WHEN  THE  RADAR  IS  IN  ANY  OF  THE  SEARCH  MODES. 


SUBROUTINE  SEARCH 

COMMON  /CNT L/ 1 DUM ( 3 ) . I ASM , I SRCHC , I SRCHG , I AZS , I ELS . I SLR , EDRNG . 

2 EDPA.EDRA 

COMMON  /OUTPUT/MSWF , MTF . MSF , SRNG , SRDOT . SPANG , SRANG . SPRTE , 

2 SRRTE.SRSS , IDUM2(4) 

COMMON  / 1 CNT  L/ 1 OLDPW ! IOLDMD , IOLDSM , ISHOLD  .KMSCLK , KV/MUP . KSNCLK . 

2 KSNMAX , K ACC  LK , MTP , M2 1 ,MZ0 ,M$S .MTK1NT  ,MRNG , MSAM  ,MPRF 

3 IDUM1(10) 

COMMON  /SYSD AT/TS . DUMS  (14) 

COMMON  /ATDAT/DUM2( 10) ,PREF,RREF,DUMA(2) 

DIMENSION  SLWRTE(2) 

DATA  SLWRTE/6 . 9814E— 3,3. 4907E— 1/ 


* DETERMINE  ANTENNA  STEERING  MODE.  • 
GO  TO  (10,20.30.40) , IASM 


00011940 

00011950 

00011960 

00011970 

00011980 

00011990 

00012000 

00012010 

00012020 

00012030 

00012040 

00012050 

00012060 

00012070 

00012080 

00012090 

00012100 

,00012110 

,00012120 

00012130 

00012140 

00012150 

00012160 

00012170 

00012180 

00012190 

00012200 

00012210 

00012220 

00012230 

00012240 

00012250 

00012260 

00012270 

00012280 

00012290 

00012300 

00012310 

00005010 

00005020 

00005030 

00005040 

00005050 

00005060 

00005070 

00005080 

00005090 

00005100 

00005110 

00005120 

00005130 

00005140 

,00005150 

00005160 

00005170 

00005180 

00005190 

00005200 

00005210 

00005220 

00005230 

00005240 

00005250 

00005260 
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c 00005270 

C *••*• 

C •**•• •*••••  6PC-ACQ  SEARCH  AND  ACQUISITION  MODE.  *••••*•••• 00005290 

C *•••* 

C 00005310 

C 00005320 

C •**•••••••*••••*•••••••••••••••*••••••  00005330 

C * STEP  1 : DETERMINE  WHETHER  SEQUENCING  THRU  POINT  OR  SCAN  • 00005340 

C •••*• 00005350 

10  IF(MSF.EQ.I)  GO  TO  14  00005360 

I F(MZ1 . EQ . 1 . ANO . I SRCHG . EQ . 1 ) GO  TO  14  00005370 

C 00005380 

C •••••••••• * ••••*•••• 00005390 

C • STEP  2:  PERFORM  GIMBAL  POINTING  SEQUENCE  • 00005400 

C 00005410 

C 00005420  . 

C STEP  2-1 : UPDATE  ROLL/PITCH  REFERENCES  00005430 

I F ( I SHOLD . EQ . 1 . AND . I SRCHG . EQ . 1 ) GO  TO  12  00005440 

RREF-EDRA  00005450 

PREF-EDPA  00005460 

12  I SHOLD- I SRCHG  00005470 

C 00005480 

C STEP  2-2:  UPDATE  POSITION  OF  GIMBALS.  00005490 

CALL  POINT  00005500 

C 00005510 

C STEP  2-3:  DETERMINE  WHETHER  BORESIGHT  IN  ZONE  I AND/OR  ZONE  0 AND  00005520 

C TAKE  APPROPRIATE  ACTION.  00005530 

CALL  ZONECK  00005540 

C IF  NOT  IN  ZONE  0,  THEN  DETECTION  IS  NOT  ALLOWED.  00005550 

IF(MZ0.EQ.0)  RETURN  00005560 

C 00005570 

C ••*•••••••••••.••«•••••••••.••••••••••••••«..••...••.•.  00005580 

C • STEP  3:  CHECK  FOR  TARGET  DETECTION  IF  IN  ZONE  O • 00005590 

C *••• ••••*••  ‘ 00005600 

C 00005610 

CALL  DETECT  00005620 

RETURN  00005630 

C 00005640 

C .................................  00005650 

C • STEP  4:  PERFORM  SCAN  SEOUENCE  • 00005660 

C .................................  00005670 

14  CALL  SCAN  ' 00005680 

RETURN  00005690 

C 00005700 

C 00005710 

C ••••••••••.•.••••..•••••.......•.•.••*•••.••.•••*•..•..•••.......•••.00005720 

C ................  GPC-OES  SEARCH  AND  ACQUISITION  MODE  •••••••• 00005730 

C •••.•..••.•.••••...••.•••.•...•..••...•••...•.•..•••...•••.....•..,..00005740 

C 00005750 

C 00005760 

C • STEP1  : PERFORM  GIMBAL  POINTING  SEOUENCE  • 00005770 

C •••••  00005780 

C 00005790 

C STEP  1-1:  UPDATE  ROLL/PITCH  REFERENCE  ANGLES.  00005800 

20  PREF-EDPA  00005810 

RREF-EDRA  00005820 

C 00005830 

C STEP  1-2:  UPDATE  POSITION  OF  GIMBALS.  00005840 

CALL  POINT  00005850 

C 00005860 

C STEP  1-3:  DETERMINE  WHETHER  BORESIGHT  IN  ZONE  1 AND/OR  ZONE  0 AND  00005870 

C TAKE  APPROPRIATE  ACTIN.  00005880 

CALL  ZONECK  00005890 

C IF  BORESIGHT  NOT  IN  ZONE  0,  THEN  TARGET  DETECTION  NOT  ALLOWED.  00005900 


IF(MZ0. EQ.0)  RETURN  00005910 

C 00005920 

C ....................... ...... 00005930 

C * STEP  2:  CHECK  FOR  TARGET  DETECTION  IF  IN  ZONE  0.  • 00005940 

C 00005950 

C 00005960 

CALL  DETECT  00005970 

RETURN  00005980 

C 00005990 

C 00006000 

C 00006010 

c ..................  auto  SEARCH  AND  ACQUISITION  MODE  00006020 

C ... ..........00006030 

C 00006040 

C 00006050 

C 00006060 

C * STEP  1 : DETERMINE  WHETHER  SEQUENCING  THRU  POINT  OR  SCAN  • 00006070 

C 00006080 

30  I F(  1SRCHC . EQ. 1 ) GO  TO  32  00006090 

C 00006100 

C 00006110 

C • STEP  2:  PERFORM  GIMBAL  POINTING  SEQUENCE  • 00006120 

C 00006130 

C 00006140 

C STEP  2-1:  UPDATE  ROLL/PITCH  REFERENCE  ANGLES.  00006150 

PREF»PREF+FLOAT( I ELS) *SLWRTE( ISLR+1 )*TS  00006160 

RREF-RREF+FLOAT ( IAZS) *SLWRTE( ISLR+1 )*TS  00006170 

C 00006180 

C STEP  2-2:  UPDATE  POSITION  OF  GIMBALS.  00006190 

CALL  POINT  00006200 

C 00006210 

C STEP  2-3:  DETERMINE  SLEW  RATE  AND  TAKE  APPROPRIATE  ACTION.  00006220 

C IF  SLEW  RATE  IS  GREATER  THAN  0.4  DEG/SEC.  THEN  TARGET  DET-00006230 

IF(ISLR.GT.0)  RETURN  00006240 

C 00006250 

C 00006260 

C • STEP  3:  CHECK  FOR  TARGET  DETECTION  IF  SLEW  RATE  <0.4  DEG  • 00006270 

C • PER  SECOND.  • 00006280 

C 00006290 

CALL  DETECT  00006300 

RETURN  00006310 

C 00006320 

C .................................  00006330 

C • STEP  4:  PERFORM  SCAN  SEQUENCE  • 00006340 

C 00006350 

32  CALL  SCAN  00006360 

RETURN  00006370 

C 00006380 

C 00006390 

C 

c .................  MANUAL  SEARCH  AND  ACQUISITION  MODE  ................00006410 

C 

C 00006430 

C 00006440 

C ...................................  • 00006450 

C • STEP  1:  UPDATE  ANTENNA  POSITION  * 00006460 

C ...................................  00006470 

C 00006480 

C STEP  1-1:  UPDATE  ROLL/PITCH  REFERENCE  ANGLES.  00006490 

40  PREF«PREF+FLOAT( IELS)*SLWRTE( ISLR+1 )*TS  00006500 

RREF*RREF+FLOAT ( IAZS) *SLWRTE( ISLR+1 )*TS  00006510 

C 00006520 

C STEP  1-2:  UPDATE  POSITION  OF  GIMBALS.  00006530 

CALL  POINT  00006540 
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C 00006550 

C STEP  1-3:  DETERMINE  SLEW  RATE  AND  TAKE  APPROPRIATE  ACTION.  00006560 

C IF  SLEW  RATE  IS  GREATER  THAN  0.4  DEG/SEC.  THEN  TARGET  DET-00006570 

C ECTION  IS  NOT  ALLOWED.  00006580 

IF( ISLR.GT.0)  RETURN  00006590 

C 00006600 

C 00006610 

C • STEP  2:  CHECK  FOR  TARGET  DETECTION  IF  SLEW  RATE  <0.4  DEG  * 00006620 

C • PER  SECOND.  • 00006630 

C 00006640 

CALL  DETECT  00006650 

RETURN  00006660 

END  00006670 

C 00020030 

C 00020040 

C ..k. ....... 00020050 

C .THIS  SUBROUTINE  GENERATES  THE  NOISE-FREE  ANGLE.  RANGE.  VELOCITY  . 00020060 

C » ANO  0N-TARGET  OISCRIMINANT  COMPONENTS.  * 00020070 

C 00020080 

C 00020090 

C 00020100 

SUBROUTINE  SIGNAL  00020110 

REAL  IRDOT, IRNG  00020115 

COMMON  /CNTL/IPWR . I MODE, ITXP, IASM, IDUMC(5) , DUMC(3)  00020120 

COMMON  /OUTPUT/I 1DUM(3) , SRNG.DUM1 (6) . IDUM2(4)  00020130 

COMMON  /ICNTL/IDUM5(  13)  .MTKINT ,MRNG ,MSAM , MPRF , MBKTRK , MBTSUM,  00020140 

2 MBT(8)  00020150 

COMMON  /TGT0AT/NT,RAU(3, 100) ,RANGE( 100) ,RADVEL(100) ,R0(3) , 00020160 

2 R0U(3)  .CGRNGE.CGVEL  00020170 

COMMON  /SATDAT/RADAR(3),N20,RT(70,3),SIG(70)  00020180 

COMMON  /RTDAT/I ROOT, IRNG. DUM2(5),MDF( 5)  00020190 

COMMON  /S IGDAT/SPA2 , SMAZ . SPEL , SMEL . EARLY , LATE . DF1 , DF5 . 00020200 

2 DF2.DF4.SIGBAR  00020210 

C0M40N  /XF0RMS/TLB(3,3).TLBD(3,3).TLT(3.3).TLTD(3.3)  00020220 

COMPLEX  CSUM.CDIFAZ.CDIFEL.CEARLY.CLATE.C0F1.C0F5.CDF2.CDF4,  00020230 

2 DFWTS. PHASE, PHASE1 .DOPFIL  00020240 

DIMENSION  CTP(10,2) ,DFWTS(5, 100) ,ALAM(5) ,ALAM0(3) ,NFREQ(2)  00020250 

DATA  CTP/9* .03318,9. 799E-4 , 4. . 0331 8 , 1 . 9599E-3 .9 . 8E-4 . 4 . 9E-4 , 00020270 

2 2«2 . 45E— 4 . 1 . 225E-4/  00020280 

DATA  NFREQ/1 .5/.ALAM/177.3733, 176.0447, 178.7149. 176.7089  , 00020290 

2 178. 0393/, ALAMO/ 1 .272461 E— 2,2. 969089E— 2 .3.309023E— 1/  00020300 

REAL  LATE  00020310 

C 00020320 

C ..................................................................  00020330 

C * STEP  1 : PRELIMINARY  COMPUTATIONS  AND  PARAMETER  INITIALIZATION  * 00020340 

C ..................................................................  00020350 

C 00020360 

C STEP  1-1  : INITIALIZE  DISCRIMINANT  COMPONENTS  (NOTE:  THESE  ARE  THE  00020370  - 
C COMPONENT  SIGNALS  AFTER  SOUARE-LAW  DETECTION).  00020380 

SPAZ-0.0  00020390 

SMAZ-0.0  00020400 

SPEL—0 . 0 00020410 

SMEL-0 . 0 00020420 

EARLY-0.0  00020430 

LATE-0 . 0 00020440 

DF1-0.0  00020450 

DF5-0.0  00020460 

DF2-0.0  00020470 

DF4-0 . 0 00020480 

SIG8AR-0.0  00020490 

C 00020500 

NFMAX-NFREQ( IMODE)  00020510 

DO  55  I«1 , NFMAX  00020520 

C 00020530 
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C STEP  1-2:  INITIALIZE  COMPLEX  DISCRIMINANT  COMPONENTS  BEFORE  EACH  00020540 

C XMIT  FREOUENCY  (NOTE:  THESE  ARE  THE  COMPONENT  SIGNALS  00020550 

C BEFORE  SQUARE— LAW  DETECTION).  00020560 

CSUKK0..0.)  00020570 

CDIFAZ-(0. ,0.)  00020580 

CDIFEL-(0. ,0. ) 00020590 

CEARLY-(0. ,0. ) 00020600 

CLATE-(0. ,0.)  00020610 

CDF1-(0.,0.)  00020620 

CDF5-(0.,0.)  00020630 

CDF2«(0.,0.)  00020640 

CDF4-(0.,0.)  00020650 

DO  45  K«1 , NT  00020660 

C 00020670 

IF(I.GT.I)  GO  TO  35  00020680 

C 00020690 

C 00020700 

C • STEP  2:  COMPUTE  SUM  CHANNEL  MULTIPLICATION  FACTOR  FOR  KTH  . 00020710 

C * SCATTERER.  • 00020720 

C 00020730 

C 00020740 

C STEP  2-1:  COMPUTE  SUM  PATTERN  ANGLE.  00020750 

PSI«ACOS(ABS(RAU(3,K)))  00020760 

C 00020770 

C STEP  2-2:  COMPUTE  ANTENNA  SUM  PATTERN  MULTIPLICATION  FACTOR.  00020780 

X-SPAT ( PS I ) 00020790 

C 00020800 

C STEP  2-3:  COMPUTE  SUM  CHANNEL  MULTIPLICATION  FACTOR.  00020810 

XX-SIG(K).X  00020820 

C NOTE:  IF  IN  ACTIVE  MODE  SET  XX-1 .0.  00020830 

IF(IMODE.EQ.I)  XX-1 .0  00020840 

S“XX»X  00020850 

C 00020860 

C STEP  2-4:  CHECK  ANTENNA  STEERING  MODE  (IF  IN  GPC-DES  OR  MANUAL  00020870 

C SKIP  STEP  4).  00020880 

1F(IASM.E0.2.0R. IASM.EQ.4)  GO  TO  20  00020890 

C 00020900 

C • 00020910 

C • STEP  3:  COMPUTE  AZ  AND  EL  DIFFERENCE  CHANNEL  MULTIPLICATION  • 00020920 

C * FACTORS  FOR  KTH  SCATTERER.  • 00020930 

C 00020940 

C 00020950 

C STEP  3-1:  COMPUTE  AZ  AND  EL  DIFFERENCE  PATTERN  ANGLES.  00020960 

DELAZ— ASIN(RAU(2,K))  00020970 

DELE  L-AS I N ( RAU ( 1 . K ) ) 00020980 

C 00020990 

C STEP  3-2:  COMPUTE  AZ  AND  EL  DIFFERENCE  PATTERN  MULTIPLICATION  00021000 

C FACTORS.  00021010 

Y-DPAT( DELAZ)  00021020 

Z-DPAT(DELEL)  00021030 

C 00021040 

C STEP  3-3:  COMPUTE  AZ  AND  EL  DIFFERENCE  CHANNEL  MULTIPLICATION  00021050 

C FACTORS  (INCLUDE  RCS  AND  SUM  PATTERN  WEIGHTINGS).  00021060 

DAZ-XX.Y  00021070 

DEL«XX*Z  00021080 

C 00021090 

c 00021100 

C • STEP  4:  COMPUTE  RANGE  GATE  WEIGHTING  FOR  KTH  SCATTERER  • 00021110 

C 00021120 

C DEFINITION:  CTP-4./(C»PULSEWIDTH)  WHERE  C IS  SPEED  OF  LIGHT.  00021130 

C 00021140 

C STEP  4-1:  COMPUTE  RANGE  GATE  LOCATION  WRT  RANGE  GATE  CENTER.  00021150 

CCCCCCCCCCCCCCCCCCC  MOD  MAR  24  1983  CCCCCCCCCCCCCCCCCC 
20  CONTINUE 
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SRNGX-1 0. *AINT(0.031 25* IRNG) 

DELX-CTP(MRNG, IMODE)*(RANGE(K)-SRNGX)  00021160 

C 00021170 

C STEP  4-2:  COMPUTE  EARLY  AND  LATE  RANGE  GATE  WEIGHTINGS  FOR  00021180 

C KTH  SCATTERER.  00021190 

II-INT((DELX+7.)/2.)  00021200 

IF(II.LE.I)  1 1—1  00021210 

IF( 1 1 .GE.5)  1 1-5  00021220 

GO  TO  (21 .22. 23. 24, 21), II  00021230 

21  RGE-0.0  00021240 

RCL-0.0  00021250 

GO  TO  25  00021260 

22  RGE-3.+0ELX  00021270 

RGL-0.0  00021280 

GO  TO  25  00021290 

23  RGE-1.-DELX  00021300 

RGL-1.+OELX  00021310 

GO  TO  25  00021320 

24  RGE-0.0  00021330 

RGL-3.-DELX  00021340 

C 00021350 

C STEP  4-3:  COMPUTE  RANGE  GATE  WEIGHT  FOR  NON-RANGE  DISCRIMINANT  00021360 

C COMPONENTS.  00021370 

25  RGWGT  -0 . 5 • ( RG  L+RGE)  00021380 

C 00021390 

C STEP  4-4:  APPLY  RANGE  GATE  WEIGHTING  TO  SUM  AND  DIFFERENCE  00021400 

C CHANNEL  MULTIPLICATION  FACTORS.  00021410 

RGE-S*RGE  00021420 

RGL-S*RGL  00021430 

S-S*RGWGT  00021440 

D AZ-OAZ • RGWGT  00021450 

DEL«DEL*RGWGT  00021460 

C 00021470 

C 00021480 

C • STEP  5:  COMPUTE  DOPPLER  FILTER  PHASE  SHIFT  AND  WEIGHTING  FOR  KTH  • 00021490 

C • SCATTERER.  NOTE:  THIS  CALCULATION  IS  INDEPENDENT  OF  XMIT  * 00021500 

C • FREQUENCY  AND  ASSUMES  NO  ACCELERATION  OVER  DATA  CYCLE.  * 00021510 

C 00021520 

C 00021530 

C DEFINITION:  ALAMD(MPRF)-2. *PI/(PRF* LAMBDA)  00021540 

C DEFINITION:  THE  CONSTANT  0 . 196348-PI/I 6.  00021550 

C 00021560 

C STEP  5-2:  COMPUTE  DOPPLER  FREQUENCY  CORRESPONDING  TO  RADIAL  VELOCITY  00021570 

C OF  KTH  SCATTERER.  00021580 

FDT— 2. *ALAMD(MPRF)*RADVEL(K)  00021590 

C 00021600 

C STEP  5-3:  COMPUTE  DOPPLER  FILTER  WEIGHTING  FOR  EACH  OF  FIVE  DOPPLER  00021610 

C TRACKING  FILTERS.  00021620 

DO  30  J-1.5  . 00021630 

ARG— 0. 196348*MDF( J)— FDT  00021640 

30  DFWTS( J .K)-OOPFIL(ARG)  00021650 

C 00021660 

C 00021670 

C • STEP  6:  COMPUTE  PHASE  FACTOR  ASSOCIATED  WITH  KTH  SCATTERER  RANGE  * 00021680 

C • (NOTE:  PHASE  IS  REFER ENCD  TO  PHASE  ASSOCIATED  WITH  RANGE  * 00021690 

C • OF  TARGET  C.G.)  * 00021700 

C 00021710 

C 00021720 

C DEFINITION:  RANGE(K)  IS  RANGE  OF  KTH  SCATTERER  TO  ANTENNA  PHASE  CENTR00021730 

C DEFINITION:  ALAI«^4.  *P I /LAMBDA  WHERE  LAMBDA  IS  XMIT  FREQUENCY.  00021740 

C 00021750 

C STEP  6-1:  COMPUTE  PHASE  REFERENCED  TO  TARGET  C.G.  00021760 

35  DELPSI-ALAM(I).(RANGE(K)-CGRNGE)  00021770 

C 00021780 


oo  oo  oo  ooooooooo  ooo  ooo  ooo  ooo  ooo  ooooooo  ooo 


STEP  6-2:  COMPUTE  PHASE  FACTOR,  I 
PHASE-CEXP(CMPLX(0. .DELPSI)) 
PHASE1 -PHASE 


E.  EXP( J*DELPHI ) . 


STEP  6-3:  COMBINE  RANGE  PHASE  FACTOR  AND  DOPPLER  FILTER 
WEIGHT  AND  PHASE  FACTOR. 

PHASE— PHASE»DFWTS(3,K) 


STEP  7:  ADD  (VECTORIALLY)  KTH  SCATTERER  CONTRIBUTION  TO  EACH 
DISCRIMINANT’S  COMPONENT  SIGNALS. 


STEP  7-1:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  SUM  CHANNEL  SIGNAL. 
CSUM-CSUMfS»PHASE 


STEP  7-2:  CHECK  ANTENNA  STEERING  MODE  — 
GPC-DES  OR  MANUAL  MODE. 

IF( IASM. E0.2.0R. I ASM. EQ.4)  GO  TO  40 


SKIP  STEP  8-3  IF  IN 


STEP  7-3:  ADD  KTH  SCATTERER 
CHANNELS  SIGNALS. 
CDI FAZ-CDI FAZ+DAZ*PHASE 
CDIFEL-CDIFEL+DEL.PHASE 


STEP  7-4:  ADD  KTH  SCATTERER 
COMPONENT  SIGNALS 
CEAR LY-C EAR LY+RGE* PHASE 
CLATE— CLATE+RGL*PHASE 


CONTRIBUTION  TO  A2  AND  EL  DIFFERENCE 


CONTRIBUTION  TO  RANGE  DISCRIMINANT 
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00021790 
00021800 
00021810 
00021820 
00021830 
00021840 
00021850 
00021860 
00021870 
00021880 
00021890 
00021900 
00021910 
00021920 
00021930 
00021940 
00021950 
00021960 
00021970 
00021980 
00021990 
00022000 
00022010 
00022020 
00022030 
00022040 
00022050 
00022060 
00022070 
00022080 
00022090 
00022100 
00022110 
00022120 
00022130 
00022140 
00022150 
00022160 
00022170 
00022180 
00022190 
00022200 
00022210 
00022220 
00022230 
00022240 
00022250 
00022260 
00022270 
00022280 
00022290 
00022300 
00022310 
00022320 
00022330 
00022340 
00022350 
00022360 
00022370 
00022380 

STEP  8-4:  COMPUTE  RANGE  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW  DETECT00022390 
50  EAR  LY-EAR LY+CABS ( C EAR  LY ) • * 2 00022400 

LATE-LATE+CABS (CLATE) *»2  00022410 

00022420 


STEP  7-5:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  VELOCITY  DISCRIMINANT 
COMPONENT  SIGNALS. 

PHASE1— PHASE1 *S 
CDF2-CDF2+PHASE1 • D FWTS ( 2 , K ) 

CDF4-CDF4+PHASE 1 * D FWTS ( 4 . K ) 

STEP  7-6:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  ON-TARGET  DISCRIMINANT 
COMPONENT  SIGNALS. 

CDF1-CDF1+PHASE1 »DFWTS( 1 ,K) 

CDF5-CDF5+PHASE1 *DFWTS (5 . K) 

45  CONTINUE 


• STEP  8:  FORM  NOISE-FREE  ANGLE,  RANGE,  VELOCITY.  AND  ON-TARGET 

• DISCRIMINANT  COMPONENTS  AT  ITH  FREQUENCY  AND  SQUARE 

• LAW  DETECT  THESE  COMPONENTS. 


STEP  8-1 


CHECK  ANTENNA  STEERING  MODE  — 
IF  IN  GPC-DES  OR  MANUAL. 
IF(IASM.EQ.2.0R. IASM. EQ.4)  GO  TO  50 


SKIP  STEPS  9-2  AND  9-3 


STEP  8-2:  COMPUTE  AZ  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW  DETECT. 
SPA2-SPA2+CABS ( CSUMfCD I FAZ ) * • 2 
SMAZ-SMAZ+C ABS ( CSUM-CD I FAZ ) • • 2 

STEP  8-3:  COMPUTE  EL  DISCRIMINANT  COMPONENTS  AND  SOUARE-LAW  DETECT. 
SPEL-SPEL4CABS (CSUM+CD I FEL) * *2 
SMEL-SMEL4CABS (CSUM-CDI FEL) * *2 


A-46 


C STEP  8-5:  COMPUTE  VELOCITY  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW  00022430 

C DETECT . 00022440 

DF2-DF2+CABS(CDF2)*.2  00022450 

DF4-0F4+CA8S(CDF4).*2  00022460 

C 00022470 

C STEP  8-6:  COMPUTE  ON-TARGET  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW  00022480 

C DETECT . 00022490 

DF1-OF1-fCABS(CDF1)*»2  00022500 

DF5— DF5+CABS(CDF5).»2  00022510 

C 00022520 

C .......................................... 00022530 

C • STEP  9:  COMPUTE  EFFECTIVE  CROSS-SECTION  AVERAGED  OVER  PROPER  • 00022540 

C • NUMBER  OF  TRANSMIT  FREQUENCIES.  • 00022550 

C 00022560 

S I G8AR— S I G8AR+CABS  ( CSUM  ) • • 2 00022570 

55  CONTINUE  00022580 

SIG8AR— SIG8AR/FLOAT(NFREQ( I MODE)  ) 00022590 

C 00022600 

C NOTE:  DEBUGGING  PRINT  STATEMENTS  00022610 

C WRITE(6.900)  (I.SIG(I).  1-1  .NT)  00022620 

900  FORMAT(*  I.SIG  .I8.F14.4)  00022630 

C WRITE(6,902)  NT , S . DAZ , DEL , RGE , RGL . RGWGT . MDF (3)  00022640 

C WRITE(6 , 901 ) DFWTS( 1 . K) , DFWTS(2 ,K) . DFWTS(3, 1 ) ,DFWTS(4, 1 ) , 00022650 

C 2 DFWTS(5 , 1 ) 00022660 

902  FORMAT ( ’ NT , S.DAZ . DEL. RGE. RGL. RGWGT . F3  . 15 . 6F10. 2 . 15)  00022670 

901  FORMAT ( ' OF  WTS  — 1 . 10F12.4)  00022680 

RETURN  00022690 

END  00022700 

C 00007440 

C 00007450 

C ••••••••••••••••••••••«•• 00007460 

C * THIS  SUBROUTINE  CONTAINS  SINGLE-HIT  DETECTION  MODEL  * 00007470 

C 00007480 

C 00007490 

C 00007500 

SUBROUTINE  SINGLE  00007510 

DIMENSION  P(41 ) 00007520 

COMMON  /CNTL/IPWR, I MODE. ITXP,  IASM, IDUM(5) ,DUMC(3)  00007530 

COMMON  /0UTPUT/MSWF,MTF,MSF,DUM(7) , 1DUM1 (4)  00007540 

COMMON  /ICNTL/IDUM2(8) .KACCLK.MTP, IDUM3(5) ,MSAM. IDUM4(11 ) 00007550 

C0M40N  /TGTDAT/NT , DUM1  (500)  ,RO(3)  ,ROU(3)  .CGRNGE.CGVEL  00007560 

COMMON  /DETDAT/SI GMA , CG ANG  00007570 

DATA  NSRCH/105/  00007580 

DATA  P/6.0.0, .001 . .003,2.  004,  .008, .012, .015, .043, .053, . 076 .. 1 07 . 00007590 

2 .147, .193, .244, .312, .363, .444, .514, .590, .644, .706, .765, .815. .861 ,00007600 

3 .882, .918, .937, .955, .966, .976,  .980, .989, .991 ..997. .996/  00007610 

C 00007620 

C ......................................................  00007630 

C * STEP  1:  COMPUTE  NOMINAL  SNR  AT  VIDEO  FILTER  OUTPUT  • 00007640 

C 00007650 

C 00007660 

C STEP  1-1:  SET  SAMPLE  RATE  TO  OBTAIN  CORRECT  NOISE  BW  IN  SNRV  COMP.  00007670 

MSAfc^l  00007680 

IF  ( I MODE. EQ.  1 ) MS AM-2  00007690 

C 00007700 

C STEP  1-2:  COMPUTE  NOMINAL  SNRV.  00007710 

SNR— SNRV (SI GMA , CGRNG E ) 00007720 

C 00007730 

C 00007740 

C * STEP  2:  IF  NOT  SCANNING  ADD  BEAMSHAPE  LOSS  TO  SNRV  • 00007750 

C ......................................................  00007760 

C 00007770 

C STEP  2-1:  CHECK  SCAN  FLAG.  00007780 

IF(MSF.EQ.I)  GO  TO  1 00007790 


c 00007800 

C STEP  2-2:  COMPUTE  BEAMSHAPE  LOSS  BASED  UPON  C.G.  POSITION  00007810 

C OFF  BORESIGHT.  00007820 

B ETA2-SPAT ( CGANG ) • • 2 00007830 

C 00007840 

C STEP  2-3:  ADD  BEAMSHAPE  LOSS  TO  NOMINALV,  I.E.  COMPUTE  ACTUAL  SNR  00007850 

C SNRV . 00007860 

SNR«SNR*BETA2  00007870 

C 00007880 

C .*• 00007890 

C • STEP  3:  DETERMINE  PROBABILITY  OF  DETECTION.  PD.  BASED  UPON  SNR  • 00007900 

C 00007910 

C 00007920 

C STEP  3-1 : DETERMINE  INDEX  TO  ACCESS  APPROPRIATE  PD  VERSUS  SNR  00007930 

C CURVE . 00007940 

1 IF(IMOD£. EQ.2)  GO  TO  5 00007950 

NCRV-1  00007960 

GO  TO  15  00007970 

5 IF( IASM. LT .3)  GO  TO  10  00007980 

NCRV-3  00007990 

GO  TO  15  00008000 

10  NCRV-5  00008010 

C 00008020 

C ADJUST  INDEX  FOR  SCANNING.  00008030 

15  NCRV-NCRV4MSF  00008040 

C 00008050 

C 00008060 

C STEP  3-2:  CONVERT  SNRV  TO  DB.  00008070 

IF(SNR . LT . 1 . E— 08)  GO  TO  20  0000808 0 

SNR-10.* ALOG10(SNR)  00008090 

GO  TO  25  00008100 

20  SNR— 1 00 . 000081 1 0 

C 00008120 

C STEP  3-3:  SNR  OUTSIDE  (-30  DB.  0 DB)  INTERVAL"  IF  SO.  SET  00008130 

C OUTCOME  APPROPRIATELY  AND  SKIP  REMAINING  STEPS.  00008140 

C 00008150 

C IF  SNR  < -25  DB  THEN  SET  PD-0.0  (DECLARE  A MISS).  00008160 

25  IF(SNR. LT .-25. ) GO  TO  30  00008170 

C 00008180 

C IF  SNR  > -5  DB  THEN  SET  PD-1.0  (DECLARE  A HIT).  00008190 

IF(SNR.GT.-5.0)  GO  TO  35  00008200 

C 00008210 

C STEP  3-4:  COMPUTE  INDEX  FOR  LOOKUP  TABLE  AND  FACTORS  FOR  LINEAR  00008220 

C INTERPOLATION.  00008230 

SCALE- (SNR+25. )*2.+1 .000001  00008240 

I SNR— I NT (SCALE)  00008250 

REMA 1 N-SCALE-F  LOAT ( I SNR ) 00008260 

C 00008270 

C STEP  3-5:  DETERMINE  PD  USING  TABLE  AND  LINEAR  (IN  DB)  INTERPOLATION.  00008280 

PROB— P( ISNR)+REMAIN* (P( ISNR+1 )-P( ISNR) ) 00008290 

C 00008300 

C 00008310 

C * STEP  4:  DETERMINE  OUTCOME  OF  DETECTION  ATTEMPT  • 00008320 

C 00008330 

C 00008340 

X— RNDU ( NSRCH ) 00008350 

IF(X.LE.PROB)  GO  TO  35  00008360 

C 00008370 

C 00008380 

C • STEP  5:  SET  CONTROLS  BASED  UPON  OUTCOME  OF  DETECTION  ATTEMPT  • 00008390 

C 00008400 

C 00008410 

C STEP  5-1:  IF  NO  DETECTION  SET  TARGET  PRESENT  FLAG  LOW.  00008420 

30  MTP-0  00008430 
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RETURN  00008440 

C 000084S0 

C STEP  5-2:  IF  DETECTION  SUCCESSFUL  SET  TARGET  PRESENT  FLAG  00008460 

C HIGH  AND  INITIALIZE  ACQUISITION  CLOCK.  00008470 

35  MTP-1  00008480 

KACCLK-0  00008490 

RETURN  00008500 

END  00008510 

C 00010640 

C 00010650 

C • • 00010660 

C • THIS  FUNCTION  COMPUTES  THE  ©NOMINAL®  SNR  AT  THE  VIDEO  OUTPUT  • 00010670 

C « IT  ASSUMES  NO  BEAMSHAPE  OR  SCAN  LOSS.  • 00010680 

C * 00010690 

C 00010700 

C 00010710 

FUNCTION  SNRV( SIGMA. RANGE)  00010720 

COMMON  /CNTL/IPWR, IMOOE, ITXP, IDUMC(6) ,DUMC(3)  00010730 

COMMON  /ICNTL/IDUM(12)  .MSS.MTKINT  . MRNG , MSAM , MPRF , IDUM2(10)  00010740 

COMMON  /SYSDAT/DUM(12) .TGTSIG.GPS.GAS  00010750 

DIMENSION  PT(4) ,BN(2)  00010760 

CCCCCCCCCCCCCCCCC  MOD  MAR  24  1983  CCCCCCCCCCCCCCCCCCC 

DATA  PT/46.3.34.9.23. .6.2/,  BN/69.9.57.9/  00010770 

C 00010780 

C mm 00010790 

C • DETERMINE  WHETHER  ACTIVE  OR  PASSIVE  MODE  • 00010800 

C ............................................  00010810 

IF( IMOOE. EQ.1)  GO  TO  10  00010820 

C . 00010830 

C ......................................  00010840 

C • PASSIVE  MODE  VIDEO  SNR  CALCULATION  * 00010850 

C 00010860 

I F( ( SRNG . LT . 640 . ) • OR . ( I STS7 . EQ . 1 ) ) I TXP-4 
SNRV-GPS+PT(ITXP)+10.«ALOG10(SIGMA)-BN(MSAM)-40..ALOG10(RANGE)  00010870 
SNRV-10.««(0.1*SNRV)  00010880 

RETURN  00010890 

C 00010900 

C 00010910 

C • ACTIVE  MODE  VIDEO  SNR  CALCULATION  • 00010920 

C .....................................  00010930 

1 0 SNRV-GAS-20 . . ALOG 1 0 ( RANGE ) 000 1 0940 

SNRV-10. ..(0, 1.SNRV)  00010950 

RETURN  00010960 

END  00010970 

C MODIFIED  FOR  LENS 

C 00032640 

C 00032650 

C 00032660 

C • THIS  SUBROUTINE  MODELS  THE  SPAS  SPACECRAFT  SCATTERING  * 00032670 

C » PROPERTIES.  . 00032680 

C 00032690 

C 00032700 

C SES  SPAS  MODEL  AS  OF  JULY  7,1981. 

C 

C 00032710 

SUBROUTINE  SPAS  00032720 

COMMON  /SATDAT/RADAR(3) ,KTAR,R(70,3) ,SIG(70) . ROLD. ICLOSE, ICLOLD 
1 , JHOT(60) 

DIMENSION  SIGMA(61 ) ,TARG(61 ,3)  ,PHIMIN(61 ,3) ,PHIMAX(61 ,3) 

DIMENSION  OFFSET(61)  ,PHI(61,3) 

DIMENSION  VECT(3) .COSPHI (61 ,3) 

DIMENSION  ALPHf 24,3) , V(24 ,3) ,NORMAL(24) ,DIM(24,3) ,WRAN(24,3) 


DIMENSION  WSCALE(24,3) ,DPHI(24)  ,PHI0LD(24) ,VOLD(24,3) ,KSEED(24,3) 
DIMENSION  TTRAN(3) 


OO  oo  oo  oo  oo  oooo  ooooooooooo 


* DATA  DEFINITION:  INCLUDES  SCATTERER  LOCATION  IN  TARGET  FRAME,  • 

• MAXIMUM  SCATTERER  RCS  VALUE.  ANGULAR  EXTENT  • 

• OF  NONZERO  RCS,  AND  OTHER  MISCELLANEOUS  DATA  • 

* REQUIRED  BY  THE  ROUTINE.  * 


SEED  FOR  RANDOM  NUMBER  GENERATOR 

DATA  KSEED/45 , 678 , 908 , 607 , 5678 , 897 , 345 , 7777 .67,4, 

1 560 , 809 , 444 , 888 , 999 , 555 , 222 .70,80, 8000 . 

2 5,15,25.35,45,55,65.75,85,95. 

3 7,17,27,37,47.57,67.77,87,97, 

4 9876 , 984 , 6666 , 2398 ,76,412, 7589 , 409 ,899,561, 

5 205 . 3895 . 9457 . 9643 . 937 . 656 . 453 , 980 ,567,2154, 

6 801,88.99,31,85.106,4,9,3,987, 

7 888,999/ 

DATA  DESCRIBING  DIMENSIONS  OF  WIDE-ANGLE  SCATTERERS 
DEFINITION:  D I M«*2 * D/ LAMBDA  (UMITLESS) 

DEFINITION:  WSCALE-SQRT(D**2/( 1 2*NF) ) (UNITS-FEET,  NF—  OF  FREQ) 

DATA  DIM  /72*64 .8/ 

DATA  WSCALE  /72*0.2965/ 

FOR  EACH  DIFFUSE  SCATTERER,  SPECIFY  NORMAL  COMPONENT 
DATA  NORMAL  /1 0* 1 , 2*2 , 1 2*3/ 

SOUARE  ROOT  OF  RCS  VALUES  ( FEET). 

DATA  SIGMA/24* .05,3*2.6,2*61 ., 1200. , 1 .25,0. 17,25.7, 1 10. ,90. . 

2 100. ,850. ,1200. ,1117. ,0.4,80. ,100. .900. ,85. .750. .850. ,920. , 

3 730. ,6*0.03.1250. ,1130. ,1400. ,900. ,1000. ,1150. .32.39/ 

COORDINATES  OF  SCATTERERS  IN  SPAS  FRAME  (FEET) 

DATA  TARG  /4*  . 12.6— .7,8— .35,  .37,4— .35,  .37,3*  .24,2*  .37, 

2 .66,3— .35,3*.  12,3— .3,5— .35, 4*.  37, 6*.  24, 6*.  7, 0.0, 

3 1 .75,-1  .05,-1  .75.  .35.1  .75,1  .05.  .35, -.35,-1 .05.-1.75,2.15, 

4 -2.15,1 .75,1 .05. .35, -.35,-1 .05,-1 .75. .35,1 .05. .35, -.35. 

5 -1.75, .35. -.83,-1 .05,-1 .27, 1 .05.-. 35 , .35,3— 1 .05,1.9,-1.05, 

6 -1  .8, 2.0. -2.0, .0,1 .75,1 .05. .35. -.35,-1 .75,2*1 .05, 2*-. 35, 

7 2*-. 83, 2*-1 .05,2— 1 .27,1 .75,1 .05, .35, -.35,-1 .05.-1 .75,0.0, 

8 12*. 0,7*. 48. 5—  .48, 3*. 15, 3*. 0,3—  .8.3* .0,3*  .67 ,-.86, 

9 4*- . 48 , .425, -.425, .425, -.425, -.02, .3, -.02, .3, -.02, .3, 

A 6*0.0,2.38/ 

MINIMUM  SUBTENDED  ANGLE 

DATA  PHIMIN  /4* .0,6*90. . 14*0. , 16*0. ,4*88.5,4*88.0.6*0.0. 

2 6*177.9,0.. 

3 1 1 *. 0. 90. .12*. 0,50. ,35. .30. , .0,45. 0,3*. 0,10. 0,4*. 0,177. 4. 

4 89.7, .0,4*88. 5, 4*88. 0,12*. 0,48. , 

5 19*0. ,5*90. ,3*85.9,3*88.5,156. ,90. .87 . 7 . 3*88 .5 .2*87 . 4 , .0 , 

6 90.  ,4*178.5,0. ,178. ,0 . , 178 . ,90 . .0. , 90 . ,0. .90. ,0. ,6*88.5, 

7 48.0/ 

MAXIMUM  SUBTENDED  ANGLE 

DATA  PHIMAX  /4*90. ,20*180. ,5*90. ,2. 1 .3*180. .3*2. 1 ,4*180. , 

2 4*91 .5,4*92. ,6*90. ,6*180. ,48. , 

3 10*180. ,90. ,13*180. ,4*150. ,155. ,135. .2*180. .145. ,3*180. , 

4 2. 6; 180. ,90.3,180. ,4*91 .5,4*92. ,6*180. ,6*180. ,138. , 

5 12*180. .7*90. ,5*180. ,3*94.1 ,3*91 .5,180. .156. ,92.3.3*91 .5,2*92.6 

6 125. ,5*180. .2. ,180. .2. ,2*180. ,90. ,180. ,90. .180. ,90. ,6*91 .5,138., 

RADII  OF  THE  SCATTERERS  (FEET) 


00032800 

00032810 

00032820 

00032830 

00032840 

00032850 

00032860 

00032870 

00032880 

00032890 

00032900 


00032970 

00032980 

00032990 

00033000 


00033580 

00033590 
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c 

c 


c 

c 

c 

c 

c 

c 

c 


DATA  OFFSET  /24».0,3*. 1 ,2*. 29, .0,2*. 35, .315,5«.0, .24, .35,8«0. 

2 6*. 1.6*. 0.0.0/ 

MISCELLANEOUS  DATA. 

DATA  NTAR/61 / , KWI DE/24/ , P 1/3 . 1 41 592653/ 

DATA  TTRAN/3»©.0/, INIT1/1/ 


• STEP  0:  TRANSLATE  POINT  TARGETS  BY  TARGET  FRAME  OFFSET  (TTRAN) 
IF( INIT1 .NE.1)  GO  TO  2 
RANDOMIZE  DIFFUSE  SCATTERER  RCS  VALUES. 


I SEED-1 00 
DO  107  1-1,1000 

107  X-RNDU( I SEED) 

DO  108  I-1.KWIDE 
X— RNDU( ISEED) 

C CHANCE  MADE  9-1 1-81 

108  SIGMA( I )-SIGMA( I )+(X.0. 005)-O. 0025 
0 

C CONVERT  TARGET  DATA  APPROPRIATELY . 

C 


* 


• 

101 

102 

103 

105 

c 

FTk^O . 3048 

DO  101  I-1.NTAR 

SIGMA( I )«SQRT(SIGMA( I ) )/FTM 

DO  102  J-1.NTAR 

00  102  1-1,3 

TARG( J . I )-TARG( J . I)/FTM 

DO  103  J-1 ,NTAR 

DO  103  1-1 .3 

PHIMIN( J . I )-COS(PHIMIN( J , I)*PI/180.  ) 
PHIMAX( J , I )— COS (PH I MAX (J , I)»PI/180. ) 
DO  105  I-1.NTAR 
OFFSET ( I )«OFFSET(I )/FTM 

C 

C • 

DO  1 K-1.NTAR 
DO  1 1-1,3 

1 TARG(K.I)-TARG(K.I)+TTRAN(I) 
INIT1— 0 

C • 
C * 
C • 

STEP  1:  DETERMINE  WHICH  SCATTERER  ARE  ILLUMINATED  AND  HAVE  A • 
NONZERO  RCS  IN  THE  DIRECTION  OF  THE  RADAR.  * 

C 

C STEP  1-1:  PERFORM  REQUIRED  INITIALIZATIONS. 

2 CONTINUE 
NWIDE-0 
KTAR-0 
C^ 

C STEP  1-2:  COMPUTE  UNIT  VECTOR  IN  DIRECTION  OF  RADAR  FOR 
C ITH  SCATTERING  CENTER. 

DO  15  I-1.NTAR 
DO  5 J-1  ,3 

VECT ( J ) -RADAR (J )— TARG( I . J ) 

5 CONTINUE 

VNORI^SQRT  ( VECT  ( 1 ) * *2+VECT  ( 2 ) * • 2+VECT  ( 3 ) • • 2 ) 

DO  10  J-1, 3 

IF(ABs(yECT(J)).GT.ABS(VN0RM))WRITE(6..)-VECT  GREATER  THAN  VNORM1 
COSPH I ( I , J )— VECT ( J )/VNORM 

c 

C STEP  1-3:  DETERMINE  WHETHER  ITH  SCATTERER  HAS  A NONZERO  RCS  IN  THE 


00033620 

00033630 


00033660 

00033670 

00033680 

00033690 

00033700 


00033710 

00033720 

00033730 

00033740 

00033750 

00033760 

00033770 

00033780 

00033790 

00033800 

00033810 

00033820 

00033830 

00033840 

00033850 

00033860 

00033870 

00033880 

00033890 

00033900 

00033910 

00033920 

00033930 

00033940 

00033950 


A-51 


c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DIRECTION  OF  THE  RADAR. 

I F ( COSPH I ( I , J ) . LT . PH 1 MAX ( I , J ) . OR . COSPH I(I,J).GT.PHIMIN(1,J)) 

2 GO  TO  15 
10  CONTINUE 

STEP  1—4 : IF  ITH  SCATTERER  RCS  IS  NONZERO  THEN  ADD  TO  VECTOR  OF 
ILLUMINATED  SCATTERERS. 

KTAR-KTAR+1 

JHOT(KTAR)«I 

SIG(KTAR)«SIGMA(I) 

IF( I . LE.KWIDE)  NWIDE-NWIDE+1 
15  CONTINUE 

* STEP  2:  COMPUTE  LOCATION  OF  SPECULAR  POINTS  THAT  ARE  ILLUMINATED  * 

DO  20  K-1.KTAR 
I-JHOT(K) 

DO  20  J-1,3 

R (K , J )«TARG ( I . J )+OFFSET ( I ) *COSPH I ( I , J ) 

20  CONTINUE 


* STEP  3:  COMPUTE  SQUARE  ROOT  OF  RCS  FOR  ALL  ILLUMINATED  WIDE  * 

* ANGLE  SCATTERERS  (REPRESENTING  DIFFUSE  SCATTERING  • 

* AREAS) . 


DO  22  K«1 .NWIDE 
I«JHOT(K) 

IO-NORMAL(I) 

22  SIG(K)«SORT( ABS(COSPHI ( I , IQ 


) ) )*SIGMA( I ) 


* STEP  4:  CHECK  FOR  SHORT  RANGE  CONDITION  • 


STEP  4-1:  DETERMINE  RANGE  TO  RADAR  IN  TARGET  FRAME. 

24  RANG E-SQRT ( RADAR ( 1 ) * • 2+RADAR ( 2 ) * • 2+RADAR ( 3 ) * * 2 ) 

STEP  4-2:  SET  HYSTERESIS  LOOP  MONITORING  VARIABLE. 

I F( (ROLD . LT . . 01 . OR . RANGE-ROLD . LE . 0 . ) . AND . RANGE . LE . 270 . ) ICLOSE’ 
I F ( RANGE-ROLD . GT . 0 . .AND .RANGE. GT .50 . ) ICLOSE-0 

STEP  4-3:  CHECK  MONITORING  VARIABLE  TO  DETERMINE  IF  SHORT  RANGE 
CONDITION  EXISTS. 

IF(ICLOSE.EQ.0. OR. NWIDE. EQ.0)  GO  TO  55 


00033960 

00033970 

00033980 

00033990 

00034000 

00034010 

00034020 

00034030 

00034040 

00034050 

00034060 

00034070 

00034080 

00034090 

00034100 

00034110 

00034120 

00034130 

00034140 

00034150 

00034160 

00034170 

00034180 

00034190 

00034200 

00034210 

00034220 

00034230 

00034240 

00034250 
00034260 
00034270 
00034280 
00034290 
00034300 
00034310 
00034320 
00034330 
00034340 
• 1 00034350 
4360 
00034370 
00034380 
00034390 
00034400 
00034410 


*****•*««*•*»**•***+****•******»*»»*»***•»»***«»»•*»***«»**  00034420 

* STEP  5:  PROCEDURE  FOR  UPDATING  OF  DIFFUSE  SCATTERING  • 00034430 

* CENTER  LOCATION  SHORT  RANGE  CONDITION  ONLY.  * 00034440 

**••*,»********,**»*.*********•»****»***»*•*•»*********•***  00034450 

00034460 

STEP  5-1:  IF  FIRST  TIME  THRU  PERFORM  INITIALIZATION  OF  00034470 

DIFFERENCE  EQUATIONS  FOR  ALL  DIFFUSE  SCATTERERS.  00034480 

IF( ICLOLD. EQ. 1 ) GO  TO  35  ‘ 00034490 

DO  30  1-1.KWIDE  00034500 

IO-NORMAL(I) 

PHIOLD ( I )«ACOS (COSPHI ( I , IQ  ) ) 0003451 0 

DO  25  J*1,3  00034520 

IF(  J . EQ.  IQ  ) GO  TO  25  00034530 

V ( I , J )-WSCALE( I . J ) * ( RNDU ( KSEED ( I , J ) )- . 5 ) 00034540 

VOLD( I , J )*V( I . J ) 00034550 

R(I.J)«R(I,J)+V(I.J)  00034560 

25  CONTINUE  00034570 
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30 


CONTINUE 
GO  TO  55 


STEP  5-2:  UPDATE  ANGULAR  INCREMENT  FOR  EACH  DIFFUSE  SCATTERER 

CHANGE  IN  ANGLE  FROM  SAMP LE-TO-S AMPLE . 

35  DO  40  I-1.KWIDE 
IQ-NORMAL(I) 

PHI (I. IQ  )«ACOS(COSPHI(I,IQ  )) 

DPH I ( I )«(PHI ( I , 10  )-PHIOLD( I ) ) 

PHIOLD(I)-PHI(I,IQ  ) 

40  CONTINUE 

STEP  5-3:  UPDATE  SCATTERER  LOCATION  FOR  ALL  ILLUMINATED  DIFFUSE 

SCATTERER  UPDATE  DIFFERENCE  EQUATIONS. 

DO  50  K«1 ,NWIDE 
I-JHOT(K) 

DO  45  J-1 .3 
IONORMAL(I) 

IF( J . EQ. IQ  ) GO  TO  45 

ALPH( I , J )*EXP(— DIM( I , J) *ABS(DPHI ( I ) *COSPHI ( I . IQ  ) ) ) 

WRAN( I , J )«SQRT ( 1 ALPH( I , J)**2)*WSCALE( I , J ) * (RNDU(KSEED( I , J) )- 
V( I . J )-ALPH( I . J ) *VOLD( I . J )+WRAN( I . J ) 

VOLD( I . J)*V( I . J) 

R(K, J)«R(K, J)+V(I,J) 

45  CONTINUE 
50  CONTINUE 
55  CONTINUE 


STEP  6:  UPDATE  PARAMETERS  USED  TO  MONITOR  TARGET  POSITION  * 
ON  SHORT  RANGE  HYSTERESIS  CURVE.  * 


ROLD-RANGE 

ICLOLD-ICLOSE 


WRITE(6, 908)  KTAR.NWIDE, ICLOSE.ROLD 
908  FORMAT(/’  TT ,#T, IC ,R  .318, F12. 4) 


• NOTE:  THE  FOLLOWING  STATEMENTS  ARE  PRINT  STATEMENTS  USED  IN  THE 

• DEBUGGING  PROCESS. 


NOTE:  DEBUGGING  PRINT  STATEMENTS. 

PRINT  LOCATION  OF  RADAR  IN  TARGET  FRAME. 
WRITE(6 f 900)  RADAR 


PRINT  TABULAR  LISTING  OF  ALL  DATA  ASSOCIATED  WITH  SPAS  SCATTERERS. 
WRITE(6,901)(I , SIGMA ( I ) , TARG(  1,1), TARG(  1,2)  ,TARG( 1 , 3)  .OFFSET ( I 
8 ,PHIMIN( 1,1), 

1 PHIMAX( 1.1) ,PHIMIN( 1,2) ,PHIMAX( 1.2) ,PHIMIN( I ,3) tPHIMAX( 1,3), 

2 I-1.NTAR) 

PRINT  TOTAL  - OF  SCATTERERS  AND  « OF  DIFFUSE  SCATTERERS. 
WRITE(6,902)  KTAR.NWIDE 

PRINT  INFORMATION  ASSOCIATED  WITH  ILLUMINATED  SCATTERERS. 

WRITE(6 ,903) 

WRITE(6.904)  (I.JHOT(I).SIG(I). (R(I,J),J-1 ,3). 

1 1-1,KTAR) 

PRINT  DATA  ASSOCIATED  WITH  DIFFUSE  SCATTERER  DIFFERENCE  EQUATION. 


00034580 

00034590 

00034600 

00034610 

00034620 

00034630 

00034640 

00034650 

00034660 

00034670 

00034680 

00034690 

00034700 

00034710 

00034720 

00034730 

00034740 

00034750 

00034760 

.5)00034770 

00034780 

00034790 

00034800 

00034810 

00034820 

00034830 

00034840 

00034850 

00034860 

00034870 

00034880 

00034890 

00034900 

00034910 

00034920 

00034930 

00034940 

* 00034950 

* 00034960 

* 00034970 

* 00034980 
00034990 
00035000 
00035010 
00035020 
00035030 
00035040 
00035050 

) 00035060 

00035070 
00035080 
00035090 
00035100 
00035110 
00035120 
00035130 
00035140 
00035150 
00035160 
00035170 
00035180 
00035190 
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C WRITE( 6 , 905) I , PH10LD( I ) , 00035200 

C 1 (V(I,L),L-1 ,3),(R(I,L),L-1 ,3)  00035210 

C IO-NORMAL(I) 

C WRITE(6,906)  I,PHI(I.IQ  ) , PH I OLD ( I ) .DPHI ( I ) 00035220 

C WRITE(6.907)K,I,(VOLD(I.J),J-1,3),(ALPH(I.J).J-1.3).  00035230 

C 1 (*RAN(I,J),J-1,3),(V(1.J),J«1,3).(R(1.J).J-1,3)  00035240 

C 00035250 

C ALL  PRINT  FORMAT  STATEMENTS.  00035260 

900  FORMAT  ( ' IN  FEET,  RADAR  - (\F8.1,\ \F8.1.  * . ’ ,F8. 1 . ’ ) * ) 00035270 

901  FORMAT ( 1 1 2 , FI  0 . 2 , 3F8 . 3 , FI  2 . 3 , 4X , 2F8 . 2 , 4X , 2F8 . 2 , 4X , 2F8 .2)  00035280 

902  FORMAT  ( ’ TOTAL  - OF  TARGETS  - M3.'  OF  THESE,  - MARKOV  - ‘,00035290 

1 12)  00035300 

903  FORMAT (//,9X. ‘I’ ,3X, ’ JHOT(I) ’ ,7X, 'RCS' ,5X, 'PHI-X' ,5X, 'PHI-Y' , 00035310 

1 5X. 'PHI-Z' ,/)  00035320 

904  FORMAT (2110.4F10.3)  00035330 

905  FORMAT (I3,F15.3,2(5X,3F10.3))  00035340 

906  FORMAT ( ’ I ,PHI .PHIOLD .DPHI’ ./, 13 .3F10 . 3)  00035350 

907  FORMAT(2I3,5(2X,3F7.3))  00035360 

RETURN  00035370 

END  00035380 

C 00030460 

C 00030470 

C 00030480 

C • THIS  FUNCTION  GIVES  THE  ANTENNA  SUM  PATTERN  WEIGHTING  OF  THE  • 00030490 

C • RADAR  SIGNAL  FOR  THE  GIVEN  ANGLE( IN  RADIANS)  OFF  BORESIGHT  • 00030500 

C 00030510 

C 00030520 

C 00030530 

FUNCTION  SPAT(X)  00030540 

C NOTE:  THE  FOLLOWING  VALUE  OF  B GIVES  THE  SUM  PATTERN  A SINGLE-SIDED  00030550 

C 3 DB  BEAMWIDTH  OF  0.85  DEGREES.  00030560 

Y— 93.80.X  00030570 

TEMP-ABS(Y)  00030580 

IF(TEMP.GT. 1 .0E-06)  GO  TO  10  00030590 

SPAT-1 .0  00030600 

RETURN  00030610 

10  SPAT— SIN(Y)/Y  00030620 

RETURN  00030630 

END  00030640 

C 00010490 

C 00010500 

C 00010510 

C * THIS  FUNCTION  COMPUTES  THE  EXPRESSION  (SIN(NX)**2/(N  SIN(X)»*2))  * 00010520 

C 00010530 

C 00010540 

C 00010550 

FUNCTION  SUM(X.N)  00010560 

Y— SIN(X)»»2  00010570 

IF(Y.GT.1 .0E— 08)  GO  TO  10  00010580 

SULMJ  00010590 

RETURN  00010600 

10  SUM-SIN(N*X).*2/(N*Y)  00010610 

RETURN  00010620 

END  00010630 

C 00004100 

C 00004110 

C 00004120 

C • THIS  SUBROUTINE  RESETS  THE  SYSTEM  UNDER  THE  FOLLOWING  CONDITIONS  • 00004130 

C • (1)  BREAK-TRACK  (TO  SEARCH).  (2)  PASSIVE/ACTIVE  MODE  CHANGE  (TO  • 00004140 

C • SEARCH),  AND  (3)  SYSTEM  IN  STANDBY  (TO  IDLE).  • 00004150 

C 00004160 

C 00004170 

C 00004180 

SUBROUTINE  SYSINT  00004190 
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COMMON  /CNTL/IPWR , I MODE, ITXP, IASM, IDUMC(S) ,DUMC(3) 

COMMON  /OUTPUT /MSWF , MTF . MSF . SRNG , SRDOT , SPANG , SRANG , SPRTE,  SRRTE . 

2 SSRS , MADVF , MROVF , MAROVF , MRRDVF 

COMMON  /ICNTL/IOLDPW, IOLDMO, IOLDSM, ISHOLD , KMSCLK , KVfctUP .KSNCLK . 

2 KSNMAX , KACCLK , MTP , MZ1  , MZ0 , MSS , MTK I NT , MRNG , MSAM , MPRF , 

3 MBKTRK , M8TSUM , MBT ( 8 ) 

COMMON  /ATDAT/DUM1 (4) , ALRATE , BTRATE . DUM2(2) . AL. BT . PREF , RREF 


• STEP  1 : INITIALIZE  ALL  INTERNAL  FLAGS  AND  CONTROLS  • 

IOLDMD-IMOOE 
IOLDSM- I ASM 
ISHOLD-0 
MTP— 1 
MZ1-0 
MZ0— 0 
MSS— 0 
MTK I NT-0 


* STEP  2:  INITIALIZE  ALL  INTERNAL  CLOCKS  • 


KACCLK— 0 
KSNCLK— 0 


• STEP  3:  INITIALIZE  ALL  DISPLAY  FLAGS  • 

MSWF-0 
MSF— 0 
MTF— 0 
MADVF-0 
MRDVF— 0 
MRRDVF-0 
MARDVF— 0 


• STEP  4:  INITIALIZE  ALL  DISPLAY  METERS  • 

SRNG— 0.0 
. SRDOT-0.0 
SPRTE— 0 . 0 
SRRTE-0 . 0 
SRSS-0.0 


• STEP  5:  INITIALIZE  GIMBAL  POINTING  LOOP  » 

PI  1-3. 14159265/180. 

ALRATE— 0.0 
BTRAT 0 

IF( IPWR .NE. 1 .AND . KMSCLK.NE.  1 ) GO  TO  5 

STEP  5-1:  IF  SYSTEM  POWER  OFF  THEN  ALIGN  BORESIGHT  WITH  ZENITH. 
PREF-0.0 
RREF-0.0 
Al-0.0 
BT-0.0 
SPANG— 0 . 0 
SRANG— 0 . 0 


00004200 

00004210 

00004220 

00004230 

00004240 

00004250 

00004260 

00004270 

00004280 

00004290 

00004300 

00004310 

00004320 

00004330 

00004340 

00004350 

00004360 

00004370 

00004380 

00004390 

00004400 

00004410 

00004420 

00004430 

00004440 

00004450 

00004460 

00004470 

00004480 

00004490 

00004500 

00004510 

00004520 

00004530 

00004540 

00004550 

00004560 

00004570 

00004580 

00004590 

00004600 

00004610 

00004620 

00004630 

00004640 

00004650 

00004660 

00004670 

00004680 

00004690 

00004700 

00004710 

00004720 

00004730 

00004740 

00004750 

00004760 

00004770 

00004780 

00004790 

00004800 


IOLDPW— IPWR 
RETURN 

IF( IPWR.GT .2)  GO  TO  15 


00004810 

00004820 

00004830 
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C 00004840 

C STEP  5-2:  IF  SYSTEM  IN  STANDBY  THEN  HOLD  GIMBALS  AT  POSITION  WHEN  00004850 

C STANDBY  ENTERED  AND  ZERO  DISPLAYS.  00004860 

IF(IOLDPW.EQ. IPWR)  GO  TO  10  00004870 

PREF-P 1 1 » SPANG  00004880 

RREF-P 1 1 * SRANG  00004890 

10  SPANG-0.0  00004900 

SRANG-0.0  00004910 

10LDPW-IPWR  00004920 

RETURN  00004950 

C 00004940 

C STEP  5-3:  PREPARE  GIMBAL  LOOP  FOR  ENTRY  INTO  ANY  OF  SEARCH  MODES.  00004950 

15  PREF«PII*SPANG  00004960 

RREF-PI1.SRANG  00004970 

10LDPW-IPWR  00004980 

RETURN  00004990 

END  00005000 

C 00017190 

C 00017200 

C ...MM 00017210 

C • THIS  SUBROUTINE  UPDATES  THE  DATA  VALID  FLAG  STATUS  • 00017220 

C ......................................................  00017230 

C 00017240 

C 00017250 

SUBROUTINE  TGTACQ  00017260 

COLMON  /CNTL/IPWR, I MODE, ITXP, IASM, IDUMC(5) ,DUMC(3)  00017270 

COMMON  /0UTPUT/MSWF,MTF,MSF,DUM1 (7) ,MADVF,MRDVF,MARDVF,MRRDVF  00017280 
COMMON  /ICNTL/IDUM3(8) ,KACCLK,MTP,MZ1 .MZ0 ,MSS .MTKINT . 00017290 

2 MRNG, IDUM4(12)  00017300 

COMMON  /SYSDAT/TS ,DUMS( 14)  00017310 

DIMENSION  ADV(10,2) ,RDV(10,2) ,ARDV(10,2)  00017320 

DATA  ADV/9* 1 .02.5.12,8-1.02.2*2.33/  00017330 

DATA  RDV/9-6. 15,28.69,8-6.97,2-29.76/  00017340 

DATA  ARDV/9-8 .2,28.69,7*8.2,26.23, 2*29 . 76/  00017350 

C 00017360 

C ............... •***••**•>*>•••>  00017370 

C • STEP  1:  UPDATE  ACQUISITION  CLOCK  • 00017380 

C 00017390 

KACCLK-KACCLK+1  00017400 

ACCLK-KACCLK-TS  00017410 

C 00017420 

C 00017430 

C • STEP  2:  PERFORM  ANGLE  DATA  VALID  TEST  GPC-ACQ  + AUTO  ONLY  . 00017440 

C 00017450 

I F( IASM. EQ. 2 .OR . IASM. EQ. 4)  GO  TO  10  00017460 

IF(ACCLK.LT.ADV(MRNG. 1MODE))  GO  TO  10  00017470 

MADVF-1  00017480 

C 00017490 

C 00017500 

C * STEP  3:  PERFORM  RANGE  AND  RANGE  RATE  DATA  VALID  TEST  * 00017510 

C ........................................................  00017520 

10  IF(ACCLK. LT.RDV(MRNG, I MODE))  GO  TO  15  00017530 

MRDVF—1  00017540 

MRRDVF-1  00017550 

C 00017560 

C IF  GPC-DES  OR  MANUAL  INITIALIZE  RADAR  TRACKING  PARAMETERS.  00017570 

CCCCCCCCCCCCCCCCCCC  MOD  MAR  24  1983  CCCCCCCCCCCCCCCCCCCCCCC 

15  IF((1ASM. EQ.2.0R. IASM.EQ.4) .AND.MRDVF. EQ. 1 ) GO  TO  20  00017580 

C 00017590 

C .................................................................  00017600 

C * STEP  4:  PERFORM  ANGLE  RATE  DATA  VALID  TEST  GPC-ACQ  + AUTO  * 00017610 

C * MODES  ONLY.  • 00017620 

C * 00017630 

IF(ACCLK. LT.ARDV(MRNG, I MODE) ) RETURN  00017640 
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MARDVF-1  00017650 

C 00017660 

C 00017670 

C • STEP  5:  PERFORM  STEADY  STATE  RADAR  TRACKING  INITIALIZATION  • 00017680 

C 00017690 

20  KACCLK-0  00017700 

MTF-1  00017710 

RETURN  00017720 

END  00017730 

C 00032040 

C 00032050 

C 00032060 

C • THIS  SUBROUTINE  GENERATES  A (3X3)  MATRIX  TTH  THAT  PRODUCES  • 00032070 

C * A ROTATION  OF  TH  RADIANS  ABOUT  THE  X-AXIS.  . 00032080 

e 00032090 

C 00032100 

C 00032110 

SUBROUTINE  THETA(TTH.TH)  00032120 

DIMENSION  TTH(3,3)  00032130 

DO  10  1-1.3  00032140 

DO  10  J-1,3  00032150 

10  TTH( I , J )— 0 .0  00032160 

TTH( 1 , 1 )— 1 . 0 00032170 

TTH(2,2)-C0S(TH)  00032180 

TTH(3,3)-TTH(2,2)  00032190 

TTH(2,3)— SIN(TH)  00032200 

TTH(3 , 2)— TTH(2 ,3)  00032210 

RETURN  00032220 

END  00032230 

C 00015100 

C 00015110 

C 00015120 

C * THIS  SUBROUTINE  INITIALIZES  THE  ANGLE  TRACKING  LOOPS.  THE  • 00015130 

C * RANGE  TRACKING  LOOP.  AND  THE  VELOCITY  PROCESSOR  STEADY  • 00015140 

C • STATE  CONDITIONS  ARE  ASSUMED.  « 00015150 

C 00015160 

C 00015170 

C 00015180 

SUBROUTINE  TKINIT  00015190 

REAL  INTT , IRNG, IRDOT , IVR  00015195 

COMMON  /CNTL/IPWR,  I MODE,  ITXP,  I ASM.  IDUMC(5)  ,DUMC(3)  00015200 

COMMON  /INPUT/  ERT(3) , EVT(3) ,EWB(3) ,DUM(18)  00015210 

COMMON  /OUTPUT/  I3DUM(3) .SRNG.DUM1 (6) , IDUM1 (4)  00015220 

COMMON  /ICNTL/1 1DUM(  13)  .MTKINT  ,MRNG .MSAM.MPRF .MBKTRK .MBTSUM.  00015230 

2 MBT(8) .MPFOLD  00015240 

C0M40N  /SYSDAT/TSAM,DR(3)  ,CP,SP,PS1  ,PSBIAS,DUM2(7)  ,TRB(3.3)  00015250 

COMMON  /TGTDAT /NT , DUM5  ( 500 ) , RO  ( 3 ) . ROU  ( 3 ) , CGRNGE , CGVEL  00015260 

COLMON  /SATDAT/RADAR(3) , KTAR,RT(70 ,3)  ,SIG(70)  ,ROLD,  ICLOSE.  ICLOLD  00015270 
COLMON  /ATDAT/CA , SA . CB , SB , AZRATE , ELRATE . ALRATE , BTRATE . AL . BT . 00015280 

2 DUM3(2)  00015290 

COMMON  /RTDAT/IRD0T,IRNG.RBIAS,VEST(4).MDF(5)  00015300 

COMMON  /XFORMS/  TLB(3.3),TLBD(3,3),TLT(3.3).TLTD(3.3)  00015310 

COMMON  /AGCDAT/AGCO , AGCODB , SNRDT , SNRDTD  00015320 

DIMENSION  ER(3)  ,EV(3) ,ERT0(3) ,FLTWID(3) ,RI(10)  00015330 

DATA  FLTW ID/7 .7215,3. 3090 , 0 . 2969/  00015340 

DATA  RI/120.. 240.. 780. .2552. ,5772.. 11544., 23089.. 43747.,  00015350 

2 57722. .1 .8228E+6/.NRI/10/.PI/3. 141592653/  00015360 

C 00015370 

C 00015380 

C • STEP  0:  INITIALIZE  BREAK-TRACK  ALGORITHM  • 00015390 

C 00015400 

C 00015410 

C STEP  0-1:  INITIALIZE  MOVING  WIND0W-0F-8  REGISTERS.  00015420 

DO  3 1-1,8  00015430 
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3 M8T(I)«0 

STEP  0-2:  INITIALIZE  SUM  REGISTER . 

MBTSUM-0 

STEP  0-3:  SET  BREAK-TRACK  FLAG  TO  LOW  (OR  0)  STATE. 
MBKTRK-0 


• STEP  1:  INITIALIZE  ANGLE  TRACKING  LOOP  • 


IF( I ASM . EQ . 2 . OR . I ASM. E0.4)  GO  TO  5 

STEP  1-1:  COMPUTE  INITIAL  INNER  AND  OUTER  GIMBAL  POSITIONS. 
(NOTE:  TRANSFORM  CONSISTS  OF  TRANSLATION  PLUS  ROTATION.) 

PERFORM  TRANSLATION  SHIFT  TO  RADAR  FRAME  ORIGIN. 

DO  1 1-1,3 

1 ERTO( I )-ERT ( I )—DR( I ) 

TRANSFORM  TARGET  POSITION  FROM  BODY  TO  RADAR  FRAME. 

CALL  MULT31 (TRB , ERTO, ER) 

TRANSFORM  TARGET  VELOCITY  FROM  BODY  TO  RADAR  FRAME. 

CALL  MULT31 (TRB.EVT.EV) 

SG»SQRT(ER(2)*ER(2)+ER(3)*ER(3)) 

COMPUTE  INNER(BETA)  GIMBAL  POSITION  BT. 

I F ( ER ( 1 ) .EQ.0.0. AND . SO . EQ . 0 . 0 ) STOP 
BT— ATAN2(ER(1).SQ) 

ER2— ER(2) 

ER3—  ER(3) 

COMPUTE  OUTER (ALPHA)  GIMBAL  POSITION  AL. 

IF(ER2. EQ.0.0. AND.  ER3.  EQ.0.0)  GO  TO  8 
AL— AT AN2  ( ER2 , ER3 ) 

GO  TO  9 

8 IF(ER( 1 ) .GT .0 .0)  AL-PI/2. 

IF(ER(1).LT.0.0)  AL— PI/2. 

IF(ER(1). EQ.0.0)  STOP 

STEP  1-2:  COMPUTE  INITIAL  TARGET  INERTIAL  LOS  AZIMUTH  AND 
ELEVATION  RATES. 

PRELIMINARY  TRIGONOMETRIC  COMPUTATIONS. 

9 CA-COS(AL) 

SA-SIN(AL) 

CB-COS(BT) 

SB-SIN(BT) 

C TRANSFORM  BODY  ANGULAR  VELOCITY  VECTOR  FROM  BODY  TO  OUTER 
C GIMBAL(G)  REFERENCE  FRAME. 

WGX-CP*EWB( 1 )+SP*EWB(2) 

WGY-CA* (-SP*EWB( 1 )+CP*EWB(2) )+SA*EWB(3) 

WG2— SA* (— SP*EWB( 1 )+CP»EWB(2) )+CA*EWB(3) 

C COMPUTE  THE  RANGE  TO  TARGET. 

R«SORT(ER(1 )*ER(1)+ER(2)*ER(2)+ER(3)*ER(3)) 

C COMPUTE  INITIAL  TARGET  INERTIAL  LOS  AZIMUTH  RATE(AZRATE)  . 
VGY«CA*EV(2)+SA*EV(3) 

AZRAT  E-VG Y/R+ ( CB* WGX-SB  *WGZ ) 

C COMPUTE  INITIAL  TARGET  INERTIAL  LOS  ELEVATION  RATE(ELRATE) . 

ELRATE— (CB*EV(  1 )— SB* (-SA*EV(2)+CA*EV(3) ) )/R+WGY 
C 

C STEP  1-3:  COMPUTE  INITIAL  INNER  AND  OUTER  GIMBAL  RATES. 

C COMPUTE  INITIAL  OUTER  GIMBAL  RATE(ALRATE) . 

RCB-R*CB 

IF(ABS(RCB) . LT . 1 . 0E— 6)  GO  TO  2 
A LRAT  E— VG  Y/RCB 
GO  TO  4 

2 ALRATE-0. 

4 CONTINUE 


00015440 

00015450 

00015460 

00015470 

00015480 

00015490 

00015500 

00015510 

00015520 

00015530 

00015540 

00015550 

00015560 

00015570 

00015580 

00015590 

00015600 

00015610 

00015640 

00015650 

00015660 

00015670 

00015680 

00015690 

00015700 

00015710 

00015720 

00015730 

00015740 

00015750 

00015760 

00015770 

00015780 

00015790 

00015800 

00015810 

00015820 

00015830 

00015840 

00015850 

00015860 

00015870 

00015880 

00015890 

00015900 

00015910 

00015920 

00015930 

00015940 

00015950 

00015960 

00015970 

00015980 

00015990 

00016000 

00016010 

00016020 

00016030 

00016040 

00016050 

00016060 

00016070 

00016080 

00016090 
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C COMPUTE  INITIAL  INNER  GIMBAL  RATE(BTRATE) . 00016108 

BTRATE-ELRATE-WGY  00016110 

C 00016120 

C 00016130 

C • STEP  2:  INITIALIZE  RANGE  TRACKING  LOOP  • 00016140 

C 00016150 

C 00016160 

C STEP  2-1:  TRANSFORM  TARGET  C.G.  POSITION  AND  C.G.  VELOCITY  FROM  00016170 

C BODY  TO  ANTENNA  LOS  FRAME.  00016180 

5 CALL  TRNSFM  00016190 

CALL  PVTRAN  00016200 

C 00016210 

C STEP  2-2:  INITIALIZE  THE  RANGE  ESTIMATE  REGISTER.  00016220 

SRNG-CGRNGE  00016230 

IRNG-INTT(SRNG*3.240.5)  00016240 

C 00016250 

C STEP  2-3:  INITIALIZE  THE  RANGE  RATE  ESTIMATE  REGISTER.  00016260 

IRD0T-INTT(CGVEL»TSAM*3. 2+0.5)  00016270 

C 00016280 

C 00016290 

C . STEP  3:  SET  OPERATING  PARAMETERS  BASED  UPON  INITIAL  RANGE  • 00016300 

C » AND  SYSTEM  MODE.  . 00016310 

C 00016320 

C 00016330 

C STEP  3-1:  DETERMINE  CORRECT  RANGE  INTERVAL.  00016340 

DO  30  1-1 .NR I 00016350 

MRNG— I 00016360 

IF(RI ( I ) .GT.  SRNG)  GO  TO  40  00016370 

30  CONTINUE  00016380 

C 00016390 

C STEP  3-2:  DETERMINE  CORRECT  SAMPLE  RATE.  00016400 

40  IF( I MODE. GE. 2)  GO  TO  44  00016410 

IF(MRNG.GT.9)  GO  TO  42  00016420 

MSAM-1  00016430 

GO  TO  50  00016440 

42  MS AM-2  00016450 

GO  TO  50  00016460 

44  IF(MRNG.GT.4)  GO  TO  46  00016470 

MSANN1  00016480 

GO  TO  50  00016490 

46  MSAh^2  000 1 6500 

C 00016510 

C STEP  3-3:  DETERMINE  CORRECT  PRF.  00016520 

50  IF( I MODE. GE. 2)  GO  TO  54  00016530 

IF(MRNG.GT.9)  GO  TO  52  00016540 

MPRF-1  00016550 

GO  TO  60  00016560 

52  MPRF-3  00016570 

GO  TO  60  00016580 

54  1F(MRNG.GT.9)  GO  TO  56  00016590 

MPRF— 1 00016600 

GO  TO  60  00016610 

56  MPRF-2  00016620 

60  CONTINUE  00016630 

C 00016640 

C STEP  3-4:  SET  PRF  TRANSITION  FLAG.  00016650 

MPFOLD-MPRF  00016660 

C 00016670 

C ••••*•••••*••• 00016680 

C • STEP  4:  INITIALIZE  VELOCITY  PROCESSOR  • 00016690 

C 00016700 

C 00016710 

C STEP  4-1:  INITIALIZE  MOVING  WINDOW  VELOCITY  AVERAGING.  00016720 

DO  10  1-1,4  00016730 
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10  VEST ( I )-CGVEL*20 • 

C 

C STEP  4-2:  SET  INITIAL  POSITION  OF  5 DOPPLER  FILTERS. 
VR— CGVEL/FLTWID(MPRF) 

I VR- I NTT ( VR+0 . 5 ) + 1 6000 . 

XX«AMOD( I VR . 32 . ) 

MDF(3)-INT(XX) 

DO  20  1-1 .5 
MD-MDF(3)+l-3+160 
20  MDF( I )-MOO(MD,32) 

C 

C • STEP  5:  INITIALIZE  AGO  LOOP  * 

AGCOI  .0 
ITXP-1 
C 

00016740 
00016750 
00016760 
00016770 
00016780 
00016785 
00016790 
00016800 
00016810 
00016820 
00016830 
00016840 
00016850 
00016860 
00016870 
00016880 
00016890 
0001 6900 

C • STEP  6:  SET  TRACK  INDICATOR  TO  ALLOW  OPERATION  OF  TRACK  LOOP  • 

00016910 

00016920 

MTKINT-1 

00016930 

c 

00016940 

ROLD-0 . 

00016950 

ICLOSE-0 

00016960 

ICLOLD-0 

00016970 

c 

00016980 

C NOTE:  DEBUGGING  PRINT  STATEMENTS. 

00016990 

C 

WRITE(6.899) 

00017000 

C 

WR I TE ( 6 , 900 ) AZRATE . ELRATE . ALRATE . BTRATE , AL . BT 

00017010 

c 

WRITE( 6,901 ) 

00017020 

c 

WRITE(6,902)  IRNG.IRDOT.SRNG 

00017030 

c 

WRITE(6,903) 

00017040 

c 

WRITE(6,904)  (VEST(I) , 1-1 .4) , (MDF(J) ,J-1 .5) 

00017050 

c 

WRITE(6.905) 

00017060 

c 

WRITE(6,906)  IMODE.MRNG.MSAM.MPRF 

00017070 

899 

FORMAT (// ’ TRACKER  INITIALIZATION:*/'  ATRACK:  AZRATE*. 

00017080 

2 

’ .ELRATE. ALRATE. BTRATE. AL.BT’) 

00017090 

900 

F0RMAT(6F14. 6) 

00017100 

901 

FORMAT ( ’ RTRACK : IRNG.IRDOT.SRNG’) 

00017110 

902 

FORMAT (218. F14. 6) 

00017120 

903 

FORMAT (*  VTRACK : VEST ,MDF* ) 

00017130 

904 

F0RMAT(4F14. 6.518) 

00017140 

905 

FORMAT ( ’ CNTL:  IMODE.MRNG.MSAM.MPRF’) 

00017150 

906 

FORMAT (418//) 

00017160 

RETURN 

00017170 

END 

00017180 

C 

00014050 

c 

00014060 

00014070 

C * THIS  SUBROUTINE  SIMULATES  THE  TRACKING  MODES  OF  THE 

KU-BAND  • 

VW  1 ”W  / w 

00014080 

C • RADAR 

* 

00014090 

c ♦ » 

00014100 

c 

00014110 

c 

00014120 

SUBROUTINE  TRACK 

00014130 

COMMON  /CNT L/ I DUM ( 3 ) , I ASM , I SRCHC . I SRCHG . I AZS . I ELS 

, ISLR , EDRNG , 

00014140 

2 

EDPA , EDRA 

00014150 

COMMON  /0UTPUT/MSWF,MTF,MSF,DUM0(7) , IDUM0(4) 

00014160 

COMMON  /ICNTL/I  IDUM(  13)  .MTKINT  fMRNG,MSAM,MPRF>MBKTRK , IDUM2(9) 

00014170 

C0M40N  /SYSD AT /TSAM , DUM2 (14) 

00014180 

C0M4ON  /ATDAT/DUM1 (10) ,PREF,RREF,DUMA(2) 

00014190 

DIMENSION  SLWRTE(2) 

00014200 

DATA  SLWRTE/6 . 981 4E-3 , 3 . 4907E-1/ 

00014210 

C 

00014220 
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c 00014230 

C • STEP  1:  INITIALIZE  TRACK  MODE  INITIALIZE  ALL  TRACK  LOOPS  • 00014240 

C • AND  UPDATE  STATUS  OF  DATA  VALID  FUGS.  » 00014250 

C 00014260 

C 00014270 

C STEP  1-1:  IF  TRACK  LOOPS  INITIALIZED(MTKINT-1 ) SKIP  STEP  1-2  ANO  IF  00014280 

C ALL  DATA  VALID  FUGS  ARE  UP(MTF-I)  SKIP  STEP  1-2  AND  1-3.  00014290 

IF(MTF.EQ.I)  GO  TO  6 00014300 

IF(MTKINT.NE.B)  GO  TO  5 00014310 

C 00014320 

C STEP  1-1:  INITIALIZE  RANGE. ANGLE. AND  VELOCITY  TRACK  LOOPS  ASSUMES000 14330 

C STEADY  STATE  TRACKING  OF  TARGET  C.G.  00014340 

CALL  TKINIT  00014350 

C 00014360 

C STEP  2-1:  UPDATE  DATA  VALID  FUG  STATUS  ONLY  WHEN  ENTERING  00014370 

C TRACK  FROM  SEARCH.  00014380 

5 CALL  TGTACQ  00014390 

C 00014400 

C 00014410 

C . STEP  2:  PERFORM  TRACKING  LOOP  UPDATE  PROCEDURE  * 00014420 

C 00014430 

C 00014440 

C STEP  2-1:  UPDATE  TRANSFORMATION  MATRICES  AND  MATRICE  RATES.  00014450 

6 CALL  TRNSFM  00014460 

C 00014470 

C STEP  2-2:  TRANSFORM  TARGET  POSITION  AND  VELOCITY  COMPONENTS  FROM  00014480 

C ORB I TER  BODY  FRAME-TO-ANTENNA  LOS  FRAME.  00014490 

CALL  PVTRAN  00014500 

C 00014510 

C STEP  2-3:  GENERATE  NOISE-FREE  TARGET  RETURN  SIGNAL  AND  PROCESS  00014520 

C SIGNAL  TO  PRODUCE  NOISE-FREE  DISCRIMINANT  COMPONENTS.  00014530 

CALL  SIGNAL  00014540 

C 00014550 

C STEP  2-4:  ADD  EQUIVALENT  NOISE  TO  DISCRIMINANT  COMPONENTS  AND  FORM  00014560 

C ALL  REQUIRED  DISCRIMINANTS.  00014570 

CALL  DISCRM  00014580 

C 00014590 

C STEP  2-5:  UPDATE  STATUS  OF  BREAK-TRACK  FUG.  00014600 

CALL  BRKTRK  00014610 

C 00014620 

C STEP  2-6:  CHECK  STATUS  OF  BREAK-TRACK  FUG  IF  BREAK-TRACK  FUG  00014630 

C UP  (MBKTRK-1)  RESET  SYSTEM  AND  RETURN  TP  SEARCH.  00014632 

IF(MBKTRK.NE.I)  GO  TO  7 00014640 

CALL  SYS I NT  00014680 

RETURN  00014690 

C 00014700 

C STEP  2-7:  DETERMINE  RADAR  SIGNAL  STRENGTH  (FOR  DISPUY  METER)  00014710 

C AND  UPDATE  AGC  VALUE.  00014720 

7 CALL  RSS  00014730 

C 00014740 

C STEP  2-8:  UPDATE  ANTENNA  GIMBAL  POSITIONS  AND  RATES  AND  TARGET  00014750 

C ANGLES  AND  ANGLE  RATES  FOR  DISPUY  (GPC-ACO  AND  AUTO  00014760 

C MODES  ONLY.)  00014770 

IF( IASM. EQ.2.0R. 1ASM. EQ. 4)  GO  TO  10  00014780 

C 00014790 

C STEP  2— 8A:  IF  IN  GPC-ACO  OR  AUTO  MODE  USE  RADAR  ESTIMATED  TARGET  00014800 

C ANGLES  AS  GIMBAL  TRACK  SERVO  INPUT.  00014810 

CALL  ATRACK  00014820 

GO  TO  15  00014830 

10  IF( IASM. E0.4)  GO  TO  12  00014840 

C 00014850 

C STEP  2-8B:  IF  IN  GPC-OES  MODE  tJSE  GPC-SUPPLIED  ANGLE  DESIGNATES  AS  00014860 

C GIMBAL  TRACK  SERVO  INPUT.  00014870 

PREF-EDPA  00014880 


RREF-EDRA  0001 4890 

CALL  POINT  00014900 

GO  TO  15  00014910 

C 00014920 

C STEP  2-8C:  IF  IN  MANUAL  MODE  USE  CREW-SUPPLIED  SLEW  RATES  TO  DETER  00014930 

C MINE  GIMBAL  TRACK  SERVO  INPUT.  00014940 

12  PREF»PREF+FLOAT ( I ELS) »SLWRTE( ISLR+1 ) »TSAM  00014950 

RREF-RREF+FLOAT( UZS)*SLWRTE( ISLR+1 ) *TSAM  00014960 

CALL  POINT  00014970 

C 00014980 

C STEP  2-9:  UPDATE  THE  RANGE  AND  RANGE  RATE  ESTIMATES.  00014990 

15  CALL  RTRACK  00015000 

C 00015010 

C STEP  2-10:  UPDATE  ACCURATE  VELOCITY  ESTIMATE  USING  VELOCITY  00015020 

C PROCESSOR.  00015030 

CALL  VELPRO  00015040 

C 00015050 

C STEP  2-11:  UPDATE  ALL  RADAR  INTERNAL  CONTROLS.  00015060 

CALL  CNTRLS  00015070 

20  RETURN  00015080 

END  00015090 

C 00017740 

C 00017750 

C •••••••••* 00017760 

C • THIS  SUBROUTINE  UPDATES  ALL  REQUIRED  TRANSFORMATION  • 00017770 

C • MATRICES  AND  TRANSFORMATION  MATRIX  RATES.  • 00017780 

C 00017790 

C 00017800 

C 00017810 

SUBROUTINE  TRNSFM  00017820 

COMMON  /INPUT/DUM(9) , TBT(3 , 3) , TBTD(3 ,3)  00017830 

COMMON  /SYSDAT/DUM2(4) ,CP , SP ,DUM4(9) ,TRB(3 .3)  00017840 

COMMON  /ATDAT/CA . SA . CB . SB . DUM1 ( 2 ) . ALRATE . BTRATE . AL . BT , DUM3 ( 4 ) 0001 7850 

COMMON  /XFORMS/TLB(3 .3) ,TLBD(3,3) ,TLT(3,3) ,TLTD(3,3)  00017860 

DIMENSION  TLR(3,3)  00017865 

C 00017870 

C ..........................................  00017880 

C * STEP  1:  UPDATE  TRANSFORMATION  MATRICES  • 00017890 

C 00017900 

C 00017910 

C STEP  1-1:  PRELIMINARY  COMPUTATIONS.  00017920 

CB-COS(BT)  00017930 

SB-SIN(BT)  00017940 

CA-COS(AL)  00017950 

SA-SIN(AL)  00017960 

C 00017970 

C STEP  1-2:  COMPUTE  TRANSFORMATION  MATRIX  TLB  (BODY-TO-LOS  FRAME).  00017980 

TLR(1.1)-CB  00017990 

TLR(1 ,2)«SB*SA  00018000 

TLR(1  .3)— SB.CA  00018010 

TLR(2,1)«0.0  00018020 

TLR(2,2)-CA  00018030 

TLR(2,3)»SA  00018040 

TLR(3,1)«SB  00018050 

TLR(3,2)— CB*SA  00018060 

TLR(3.3)-CB*CA  00018070 

CALL  MULT33(TLR,TRB.TLB)  00018075 

C 00018080 

C STEP  1-3:  COMPUTE  TRANSFORMATION  MATRIX  TLT  (TARGET-TO-LOS  FRAME).  00018090 

CALL  MULT33(TLB , TBT , TLT)  00018100 

C 00018150 

C ..............................................  00018160 

C • STEP  2:  UPDATE  TRANSFORMATION  MATRIX  RATES  • 00018170 

C 00018180 
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c 


STEP  2-1:  COMPUTE  T LB-DOT. 

TLBD(1 . 1 )— BTRATE*TLB(3, 1 )+ALRATE*SB*TLB(2 , 1 ) 

TLBD ( 1 . 2 )— BTRATE*TLB(3 , 2)+ALRATE*SB*TLB(2 , 2) 

TLBD(1  .3)—  BTRATE*TLB(3,3)+ALRATE*SB*TLB(2,3) 

TLBD(2, 1 )— ALRATE*SP*TLB(2,3) 

TLBD(2,2)— ALRATE*CP*TLB(2,3) 

TLBD(2,3)»ALRATE*CA 

TLB0(3, 1 )-BTRATE*TLB(  1 , 1 )-ALRATE*CB*TLB(2 , 1 ) 

TLBD(3,2  )-BTRATE*TL8(  1 . 2 )-ALRATE*CB*TLB  (2 . 2) 
TLBD(3,3)-BTRATE*TLB(1 ,3)-ALRATE*CB*TLB(2 .3) 

STEP  2-2:  COMPUTE  TLT-OOT. 

DO  20  1-1  .3 
DO  20  J-1  ,3 
TLTD( I , J)— 0.0 
DO  20  K— 1 .3 

20  TLTD(I , J)-TLTD(I , J)+TLBD(1  ,K)*TBT(K,  J)+TLB(I  ,K)*TBTD(K,  J) 
RETURN 
END 


* THIS  SUBROUTINE  COMPUTES  AN  ACCURATE.  SMOOTHED  VELOCITY  USING  • 

• THE  KU-BAND  RADAR  VELOCITY  PROCESSOR  ALGORITHM.  • 


SUBROUTINE  VELPRO 

REAL  I ROOT . IRNG , INTT , IVEL.  IVDISC,  IFVEL,  IRVEL,  IR1 , IR2, IR3, 

2 I F3, I DELTA 

COMMON  /CNTL/IPWR,  I MODE,  IDUMC(7)  ,DUMC(3) 

COMMON  /OUTPUT/ 1 DUM0 ( 3 ) . SRNG . SRDOT . DUM2  ( 5 ) . I DUM(  4 ) 

COMMON  /ICNTL/1 1DUM(  14)  .MRNG.MSAM.MPRF.  IDUM1  (10)  .MPFOLD 
COMMON  /SYSDAT/TSAM , DUMS (14) 

COMMON  /RTDAT/ 1 RDOT . I RNG . RB I AS . VEST  ( 4)  . MDF  ( 5 ) 

COMMON  /DSCRM/DUM  ( 2 ) . RD I SC . VDSC . RRTE . OD I SC . DUM3  ( 3 ) 

DIMENSION  IPROM(  128)  , VT1  (3),VT2(3)  ,W(4,3) 

DATA  IPROM/127. 127. 125.124.122,121 .120,118.117,116.114.113. 

2 111,110.109.107.106,105,103,102.101,99.98.97,95.94,93,92.90. 

3 89.88,87.85,84,83.82.81  .79.78,77,76,75,73,72,71 ,70,69.68,67, 

4 66.65,64.63.62,61  .60,59,58,57,56,55,54,53,52.51  ,50,49,49.48, 

5 47,46,45,44.44,43.42.41  ,41 ,40,39,38,38.37.36.36,35.34.34,33, 

6 32.32.31  ,31  ,30,30,29,28,28,27,27,26.26,25,25,24.24,23.23,22. 

7 22,22,21 .21 ,20,20,19,19,19,18,18,17.17,17,16, 16,16,15,15/ 
DATA  VT1/1  . 012592E— 2 ,2 . 362726E— 2 ,2. 633237E— 1/, VT2/1  .204935, 

2 0.51 63982 . 0 . 04633489/ 

DATA  MW/1,2,3.4,1,1,2.2,1,1,1,1/ 


• STEP  1:  GENERATE  AMBIGUOUS  VELOCITY  ESTIMATE  * 


STEP  1-1:  INTEGERIZE  VELOCITY  DISCRIMINANT  AND  CHECK  FOR  SATURATION 
VD I SC— 5 . 333333* VDSC 
I VD I SC—  I NTT  ( VD I SC+0 . 5 ) 

IF( IVDISC. LT.— 128. ) IVDISC— 128. 

IF(IVDISC.GT.127.)  IVDISC-127. 

STEP  1-2:  COMPUTE  INTEGRAL  FILTER  NUMBER  PORTION  OF  AMBIGUOUS 
VELOCITY  ESTIMATE. 

INTEG-MDF(2) 

IF(  IVDISC. LT.0.)  INTEG-MODv INTEG+1  ,32) 


00018190 

00018200 

00018210 

00018220 

00018230 

00018240 

00018250 

00018260 

00018270 

00018280 

00018290 

00018300 

00018310 

00018320 

00018330 

00018340 

00018350 

00018360 

00018370 

00018380 

00027040 

00027050 

00027060 

00027070 

00027080 

00027090 

00027100 

00027110 

00027120 

00027125 

00027126 

00027130 

00027140 

00027150 

00027160 

00027170 

00027180 

00027190 

00027200 

00027210 

00027220 

00027230 

00027240 

00027250 

00027260 

00027270 

00027280 

00027282 

00027290 

00027300 

00027310 

00027320 

00027330 

00027340 

00027350 

00027360 

00027370 

00027380 

00027390 

00027400 

00027410 

00027420 

00027430 

00027440 


A-63 


ooo  oooo  oooooooo  ooo  oo  oooooo  oo  ooooooooo  oooo 


C STEP  1-3:  COMPUTE  FRACTIONAL  FILTER  PORTION  OF  AMBIGUOUS  VELOCITY 
C ESTIMATE. 

C ESTIMATE. 

I V1*INT (AB$( IVD1SC) )+1 
IFRAOIPROM(IVI) 

I F(IVOISC.  LT  .0. ) IFRAC-127-IFRAC 


STEP  1-4:  COMPUTE  AMBIGUOUS  VELOCITY  ESTIMATE 


COMBINE  INTEGRAL 


IS  1/128  OF  FILTER  WIDTH. 
FILTER  WIDTH. 


AND  FRACTIONAL  PARTS.  NOTE:  LSB 
FRACTIONAL  PARTS.  NOTE:  LSB  IS  1/128  OF  A 
I FVEL-FLOAT ( I FRAC+1 28* INTEG) 


* STEP  2:  SCALE  ROUGH  VELOCITY  ESTIMATE  * 


STEP  2-1:  SCALE  LSB  OF  ROUGH  RANGE  RATE  ESTIMATE  TO  4 TIMES  A 
WIDTH. 

DEFINITION:  VT1 (MPRF)«( RANGE  LSB)/((MAX.  UNAMBIGUOUS  VE LOCI TY)/8) 

OR  VT1 (MPRF)«5 ./(PRF* LAMBDA) 

R1-IRD0T*VT1 (MPRF)/TSAM 
IRI-AINT(RI) 

STEP  2-2:  PERFORM  SOME  REQUIRED  AUXILIARY  CALCULATIONS. 

R2-IR1/8. 

IR2«AINT(R2) 

IRVEL*IR2*4096. 


* STEP  3:  RESOLVE  AMBIGUITY  • 


STEP  3-1:  COMPUTE  3 MSB'S  OF  AMBIGUOUS  VELOCITY  ESTIMATE. 
IF3-AINT ( IFVEL/512. ) 


STEP  3-2:  COMPUTE  3 LSB’S 
IR3*ABS(  IR1— 8.  • IR2) 
IF(R1 . LE-0. )GO  TO  10 
IRVEL-IRVEL+4096. 
IR3*7 . — IR3 
10  CONTINUE 


OF  SCALED  ROUGH  RANGE  RATE  ESTIMATE. 


STEP  3-3:  COMPARE  3 MSB’S  AND  3 LSB’S  AND  INCREMENT  NUMBER  OF 
AMBIGUOUS  FILTER  BANK  WIDTHS  APPROPRIATELY . 
IDELTA-IR3-IF3 

I F ( IDELTA . GE . 4 . ) I RVEL-I RVEL-4096 . 

I F( IDELTA . LE . -4 . ) I RVEL-IRVEL+4096 . 


• STEP  4:  COMPUTE  UNAMBIGUOUS  VELOCITY  ESTIMATE.  • 


STEP  4-1:  ADD  NUMBER  OF  AMBIGUOUS  FILTER  BANK  WIDTHS  TO  ESTIMATE 
OF  FRACTIONAL  FILTER  BANK  WIDTH.  NOTE:  LSB  OF  RESULTANT 
ESTIMATE  REPRESENTS  1/4096  OF  A FILTER  BANK  WIDTH. 

I VEL*INTT ( IRVEL-I FVEL) 

STEP  4-2:  SCALE  LSB  OF  RESULTANT  ESTIMATE  TO  0.05  FEET/SEC. 
DEFINITION:  VT2(MPRF)-( (FI LTER  SEPARATION) /I 28. )/(VELOCITY  LSB) 

OR  VT2(MPRF)«(PRF*LAMBDA)/(0. 05*8196). 

IVEL*INTT( IVEL*VT2(MPRF)+0.5) 


• STEP  5:  COMPUTE  SMOOTHED  UNAMBIGUOUS  VELOCITY  • 


00027450 
00027460 
00027470 
00027480 
00027490 
00027500 
00027510 
00027520 
00027530 
00027540 
00027550 
00027560 
00027570 
00027580 
00027590 
00027600 
DOPPLER00027610 
00027620 
00027630 
00027640 
00027650 
00027660 
00027670 
00027680 
00027690 
00027700 
00027710 
00027720 
00027730 
00027740 
00027750 
00027760 
00027770 
00027780 
00027790 
00027800 
00027810 


00027830 

00027840 

00027850 

00027860 

00027870 

00027880 

00027890 

00027900 

00027910 

00027920 

00027930 

00027940 

00027950 

00027960 

00027970 

00027980 

00027990 

00028000 

00028010 

00028020 

00028030 

00028040 

00028050 

00028060 

00028070 

00028080 
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STEP  5-1:  UPDATE  REGISTERS  OF  MOVING  WINDOW  AVERAGER. 

DO  20  1-1  .3 

20  VEST (5- I )-VEST(4— I ) 

VEST(1 )— IVEl 

STEP  5-2:  COMPUTE  MOVING  WINDOW  AVERAGE  AND  SCALE  ANSWER  INTO 
FEET/SEC  FROM  UNITS  OF  0.05  FEET/SEC. 

M-MPRF 
Ml— MW( 1 ,M) 

M2-MW(2,M) 

M3-MW(3,M) 

M4-UW( 4 M) 

SRDOT— 0 ! 01 25*  (VEST  (Ml  )+VEST(M2  )+VEST(M3  )+ 

2 VEST(M4  )) 


• STEP  6:  RESET  DOPPLER  FILTER  BANK  • 


STEP  6-1:  USE  ON-TARGET  DISCRIMINANT  AND  VELOCITY  DISCRIMINANT  TO 
DETERMINE  UPDATE  OF  FILTER  BANK  POSITION. 

THE  FOLLOWING  RULES  ARE  USED: 

CASE  1:  ODISC>0.  AND  -51 .<IVDISC<51 . IMPLIES  NO  CHANGE. 
CASE  2:  ODISO0.  AND  IVDISC>51  . IMPLIES  SHIFT  -1. 

CASE  3:  ODISC>0.  AND  IVDISCC-51  . IMPLIES  SHIFT  +1. 

CASE  4:  OOISC<0.  AND  IVDISO0.  IMPLIES  SHIFT  -2. 


CASE  5:  OO  I SC<0 . AND  IVDISC<0.  IMPLIES  SHIFT  +2. 
IF(OOISC .GE . 0. ) GO  TO  30 
I F( IVDISC.LT. 0.)  MDF( 1 )— MOD(MDF( 1 )+2 ,32) 

IF( IVDISC.GE.0. ) MDF(1)-MOD(MDF(1)+30,32) 

GO  TO  40 

30  IF(IVDISC.GT.51 .)  MDF(  1 )^400(MDF(  1 )+31 .32) 

IF( IVDISC.LT. -51.)  MDF(1)-M0D(MDF( 1)+1f32) 

STEP  6-2:  RESET  REMAINING  FILTERS  IN  THE  BANK-OF— 5. 

40  DO  50  1-1  , 4 

50  MDF( 141 )— MOD(MDF ( 1 )4l ,32) 

RETURN 

END 


* THIS  SUBROUTINE  DETERMINES  WHETHER  ANTENNA  IS  IN  ZONE  1 AND/OR  * 

• ZONE  0 (FOR  GPC-ACQ  AND  GPC-DES  POINTING  MODES  ONLY).  * 


SUBROUTINE  ZONECK 

COMMON  /CNTL/IDUMC(9)  , EDRNG , EDPA , EDRA 

COMMON  /OUTPUT/ IDUM1  (3)  ,DUM1  (2)  , SPANG , SRANG . DUM3 (3)  , I DUM3 ( 4 ) 
COMMON  /ICNTL/IDUM2(10).MZ1,MZ0,IDUM4(15) 

MZ0— 0 
MZ1-1 

PI  1-3. 141592653/180. 

RB— PI  I* SRANG 
PB— PI  I • SPANG 
P— EDPA 


00028090 

00028100 

00028110 

00028120 

00028130 

00028140 

00028150 

00028160 

00028170 

00028178 


00028180 

00028182 

00028190 

00028200 

00028210 

00028220 

00028230 

00028240 

00028250 

00028260 

00028270 

00028280 

00028290 

00028300 

00028310 

00028320 

00028330 

00028340 

00028350 

00028360 

00028370 

00028380 

00028390 

00028400 

00028410 

00028420 

00028430 

00028440 

00028450 

00028460 

00028470 

00028480 

00012320 

00012330 

00012340 

00012350 

00012360 

00012370 

00012380 

00012390 

00012400 

00012410 

00012420 

00012430 

00012440 

00012450 

00012460 

00012470 

00012480 

00012490 
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R— EDRA 
CPB-COS(PB) 

SPB-SIN(PB) 

CRB-COS(RB) 

SRB*SIN(RB) 

CP-COS(P) 

SP-SIN(P) 

CR-COS(R) 

SR-SIN(R) 

ANGDI F«ACOS(SPB*CRB*SP*CR+SRB*SR+CPB*CRB*CP*CR)/PI I 
ANGDI F«ABS(ANCD IF) 

IF(ANGDIF.GT.3.0)  RETURN 
MZ0-1 

IF(ANGDIF.GT.0.3)  RETURN 
MZ1-1 
RETURN 
END 

SES  S iMM  MODEL  AS  OF  JANUARY  13.1982 
SUBROUTINE  SfcW 

II.  DIMENSION  ARRAYS  ft  DATA  STATEMENTS 

A)  DIMENSION  STATEMENTS 
REAL  KSEED 

COMMON  /SATDAT /RADAR ( 3 ) . KT AR . R ( 70 , 3 ) . S I G ( 70 ) . ROLD . I C LOSE . I C LOLD 
DIMENSION  SIGMA(49) . TARG(49 . 3) . PHIMIN(49 .3) ,PHIMAX(49 ,3) 

DIMENSION  OFFSET (49) , JHOT(49) , JHOT20(49) .PHI (49) , FG(3) 

DIMENSION  VECT(3) .COSPHI (49 .3) ,C0SPHN(49) ,0R1ENT(49 .3) 

DIMENSION  ALPH( 19,3) ,V(19,3) ,DIM(19,3) ,WRAN(19 .3) ,SDMAX( 19 .3) 
DIMENSION  WSCALE( 19 , 3) ,DPHI ( 19)  , PH10LD( 19) , VOLD( 19 .3) ,KSEED( 19 , 3) 
DIMENSION  TTRAN(3) ,ABG(19.3) ,TMAX(49) ,PL(49) ,SDMIN(19,3) 

B)  DATA  STATEMENTS 

1  KSEED-  SEEDS  FOR  RANDOM  NUMBER  GENERATOR  "ZUDU” . 

DATA  KSEED/45 . 678 , 908 , 607 , 5678 .897,345. 7777 .67,4. 

1 560 . 809 . 444 . 888 , 999 . 555 . 222 .70,80. 8000 . 

2 5,15,25,35.45.55,65,75,85,95, 

3 7,17,27,37,47.57,67.77.87,97. 

4 9876 , 984 . 6666 . 2398 ,76,412, 7589 , 409 ,899,561. 

5 205 . 3895 . 9457 , 9643 . 937 , 656 , 453/ 

2.  DIM-  THE  GENERAL  SIZE  OF  EACH  DIFFUSE  SCATTERER. 

DATA  DIM  /57*64 . 8/ 

3.  WSCALE—  WEIGHTING  ASSIGNED  TO  EACH  SIDE  OF  A DIFFUSE 
SCATTERER 

DATA  WSCALE/8*1 0 . 84,5.9386 ,2*5.6804 ,5.9386,5.6804,4*11 . 1026 , 

1 2*6.7958, 

2 2*6.9068,2*2.71 1 1 ,2 *3. 61 48, 2*2.5174, 4. 3894, 2*5.8095, 4. 3894, 

3 5.8095.4*17.8803.2*6.7958,19*0./ 

4.  ORIENT-  THE  i.j.k  COMPONENTS  OF  THE  NORMAL  VECTOR  OF  EACH 
TARGET. 

o)  i COMPONENT 

DATA  ORI ENT/13*0 . . . 9976 ,- . 9976 , . 9976 ,-. 9976 , 1 . ,-1 . , 

1 23*0. , .9976. -.9976. .9976 .- .9976, 1 . ,2*-1 . , 

C b)  j COMPONENT 

2 1 . ,-1 . , 2*. 6428, 2*0. ,-.6494, -.6361 ,1 . . .4924, .8704, .6428,-1 . ,.0637, 

3 2*-. 0637, .0637.2*0. ,1 . ,-1 . ,2*. 6428, .9272, .5150, .2924,2*0. ,-.6494, 

4 -.6361 ,2*0. .2*1 . , .4924, .8704, .4924, .866,-. 8660,-1 . ,0. ,-.6428, 

5 . 0637 , 2*- . 0637 , . 0637 , 3*0 . , 

C c)  k COMPONENT 

6 2*0.  .-.766, .766,1 . ,-1 . ,-.7604, .7716,0. ,-.8704, .4924, .766,0. , 


00012500 

00012510 

00012520 

00012530 

00012540 

00012550 

00012560 

00012570 

00012580 

00012590 

00012600 

00012610 

00012620 

00012630 

00012640 

00012650 

00012660 
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7 .0284. 2 •-.0284, . 0284, 4«0. ,-.766, .766. .3746, .8572, .9563,1 . ,-1 . . 

8 -.7604, .7716.2*0. .2*0. .-.8704, .4924, .8704, -.5, .5,0. .1 . . .766, 

9 .0284, 2*-. 0284, .0284,3*0./ 

5.  A8G-  ARRAY  OF  TRANSFORMATION  ANGLES  (RAO) , ALPHA.  BETA. 
GAMMA.  FOR  DIFFUSE  SCATTERERS. 

a)  ALPHA 

DATA  ABG/4* 3 . 141 593 , 2*1. 570796 , 2*0. ,4*3. 141 593 . 0 . , 1 . 634563 , 

1 -1 . 50703 . 1 . 50703 , 4 . 648623 . 1 . 570796 , 4 . 712389 . 

b)  BETA 

2 2*1 .570796,2.443392, .6982,0. .3. 141593,2.434725. .689444, 

3 1 . 570796 , 2 . 62681 1,1. 055951 , . 6982 , 1 . 570796 . 1 . 542392 . 

4 2*1.5992.1.542392,2*1.570796. 

c)  GAMMA 

5 4*3.141593.2*1 .570796,2*0. ,4*3. 141593,0. .2*2.723729. .4178642, 

6 2 . 723729 ,2*1. 570796/ 

6.  SIGMA-  THE  CALCULATED  RCS  FOR  EACH  TARGET  IN  M**2. 

DATA  SIGMA/2*. 1 .2* . 0154 . 2* .0274 ,2* .0133, .0121 ,2* .0194, .0121, 

2 .0194, 4*. 7026. 2*. 0606, 2*2419., 373. ,7.25,21.84.11.14,18.83. 

3 2*663. ,2*321 . ,2*3.63, .92.  .97,470. .82.13.470. .2*83. ,470. ,83.. 

4 6.34,4*16995. .2*146615. . .3322/ 

7.  TARG-  TARGET  POSITION  (IN  X.Y.Z  COORDINATES)  RELATIVE  TO 
THE  COORDINATE  AXIS  OF  SMM. 

o)  X COORDINATE 

DATA  TARG  /9*1 .394 ,4*-. 774, .270, .231 . .270. .231 ,2.491 .-1 .497, 

2 3*1 .394, .542,3*1 .626,4*1  .394,2*0. .-.413,-1 . 149, 8*-. 774, .270, 

3 .231 , .270, .231 ,2.491 ,2*-1 .497, 

b)  Y COORDINATE 

4 .862, -.862, 2*. 555, 2*0. .2*. 555, .748, .439,1 .097, -.3614, -.955, 

5 2*2. 233, 2*-2. 233, 2*0. . .826, -.826. 2*. 555, .658. .568, .439.2*0. , 

6 2*. 555, 2*0. .2*. 748. .439, .865,1  .097, .865. -.207. -.955, -.684, 

7 -.3614,2*2.233,2—2.233,3*0., 

c)  Z COORDINATE 

8 2*0. .-.929, .929,1 .058,-1 .058, -.878, .878.0. ,-.774, .852, . 645, 

9 0. .2*. 620, 2—. 620, 4*0. .-.929. .929. .826, .930, .994,1.058, 

A -1 .058. -.878, .878,4*0. ,-.774, -.258, .852, . 272 . . 903 . 0\ , .581 . 

B .645, 2*. 620, 2—. 620, 3*0./ 

8.  PHIMIN—  MINIMUM  ANGLE  OF  DEVIATION  FROM  SUM  COORDINATES 
RELATIVE  TO  TARGET  NORMAL. 

a)  MINIMUM  ANGLE  SUBTENDED  IN  X-DIRECTION 
DATA  PHIMIN  /1 3*0. , 2 . 5 , 174.5 . 2 . 5 , 174. 5,0. .90. , 1 1 *88.5, 

2 2*89.2.10*88.5.2.5,174.5.2.5.174.5,0. .2*178.5. 

b)  MINIMUM  ANGLE  SUBTENDED  IN  Y— DIRECTION 

3 0. ,90. ,2*48.5,2*0. , 129 . , 128. ,0. , 59 . , 1 49 . . 128.5 .90. .22. 5 . 

4 2*154.5.22.5.2*0. ,0. . 178.5,2*48.5,20.5.57.5.71 .5,2*88.5, 129. . 

5 128. .0. ,90. .2*0. .59. .2* 149., 2* 148. 5, 178. 5, 88. 5, 128. 5. 22. 5. 

6 2*154.5.22.5,3*88.5, 

c)  MINIMUM  ANGLE  SUBTENDED  IN  Z-DIRECTION 

7 2*0. .138.5,38.5,0. ,90. , 138., 38. ,0. ,149. ,59. .38.5,0. ,64.5, 

8 2*112.5,64.5,2*0. ,2*88.5, 138.5.38.5.66.5,29.5, 15.5,0. ,178.5, 

9 138. .38. .2*0. ,2*88.5,149. .2*58. .118.5,58.5,88.5,0. , 

A 38.5.64.5.2*112.5,64.5,3*88.5/ 

9.  PHIMAX-  MAXIMUM  ANGLE  OF  DEVIATION  FROM  SMM  COORDINATES 
RELATIVE  TO  TARGET  NORMAL. 

a)  MAXIMUM  ANGLE  SUBTENDED  IN  X-OIRECTION 
DATA  PHIMAX  /1 3*180 . .5 . 5, 177.5 ,5 . 5, 177 .5 .90. . 180. . 1 1 *91 . 5 , 

2 2*90.8,10*91 .5.5.5,177.5.5.5,177.5,1.5,2*180. , 

C b)  MAXIMUM  ANGLE  SUBTENDED  IN  Y— DIRECTION 

3 90. .180. .2*51 .5,2*180. .132., 131 . , 1 .5,62. , 152. , 131 .5, 180 . .25. 3, 

4 2*157.5,25.5.2*180. ,1 .5,180.  ,2*51 .5,23.5.60.5,74.5,2*91 .5,132. 


A-67 


5 131 . ,90. ,180. .2*1 .5,62. ,2*152. ,2*151 .5,180. ,91 .5.131 .5,25.5. 

6 2*157. 5. 25. 5, 3*91 .5, 

C c)  MAXIMUM  ANGLE  SUBTENDED  IN  Z-DIRECTION 

7 2*180. , 141 .5.41 .5,90. .180. ,141 . .41 . ,180. .152. .62. .41 .5,180. .67.5. 

8 2*115.5,67.5.2*180. ,2*91 .5,141.5,41.5.69.5.32.5.18.5.1.5.180., 

9 141 . ,41 . ,2*180. ,2*91 .5,152. ,2*62. .121 .5.61 .5.91 .5.1 .5.41 .5.67.5. 

A 2*115.5.67.5.3*91 .5/ 

C 

C 10.  OFFSET-  POSITION  OF  TARGET  SPECULAR  PT.  RELATIVE  TO  TARGET 

C COORDINATES. 

DATA  OFFSET  /17*0. .2*0. ,11*0. , .7486, .8,14*0. ,2*0. . .6518/ 

C 

C 11.  MISCELLANIOUS 

DATA  PL/  30*1 . .2*0. ,16*1 . ,0./ 

DATA  TMAX/1 9*90. ,11*1 .5,2*0. .16*1 .5,0./ 

DATA  NTAR/49/ , KWIDE/1 9/ . PI/3 . 141592653/ 

DATA  TTRAN/3*0 . 0/ , INIT1/1/ 

IF( INIT1 .NE.1)  GO  TO  2 
C 

C 12.  SDMIN-  MINIMUM  ANGLE  OF  VIEW;  TARGET  SHADOWING. 

C a)  X-COORDINATE 

DATA  SDMIN/2*-0. 6828,-1  . .-0.7467.2—1  . .-0.7467,12—1  . . 

C b)  Y-COORDINATE 

1 19—1., 

C c)  2-COORDINATE 

2 19—1./ 

C 

C 13.  SDMAX-  MAXIMUM  ANGLE  OF  VIEW;  TARGET  SHADOWING. 

C a)  X-COORDINATE 

DATA  SDMAX/8* 1 . ,0.4218.3*1 . ,0.4218,0.5037,0.6046.0.5037.0.6046. 

1 2*1.. 

C b)  Y-COORDINATE 

2 19*1., 

C c)  Z-COORDINATE 

3 19*1./ 

C 

C 

C III.  RANDOMIZE  DIFFUSE  SCATTERER  RCS  VALUES. 

C 

ISEED1-10O 

ISEED2-83 

DO  107  1-1 ,1000 

107  X«RNDU( ISEED1 , ISEED2) 

DO  108  1-1 .KWIDE 
X-RNDU ( ISEED1 , ISEED2) 

108  S1GMA( I )— SIGMA ( I )*2 . *X 
C 

C IV.  CONVERT  TARGET  DATA  APPROPRIATELY. 

C 

FTM-0 . 3048 
DO  101  I-1.NTAR 

101  SIGMA( 1 )— SQRT(SIGMA( I ) )/FTM 
DO  102  J-1.NTAR 

DO  102  1-1.3 

102  TARG<J.I)-TARG(J,I)/FTM 
DO  103  J-1.NTAR 
TMAX(J)-COS(  TMAX(J)*PI/180. ) 

DO  103  1-1,3 

PHIMIN(J.I )— COS(PHIMIN( J , I )*PI/180. ) 

103  PHIMAX( J , I )-COS(PHIMAX( J , I )*PI/180. ) 

DO  105  I-1.NTAR 

105  OFFSET ( I )-OFFSET ( I )/FTM 

C 

C V.  INITIALIZATION  OF  TARGET  POSITION  k COUNTING  PARAMETERS 
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NWIDE  * KTAR. 

DO  1 K-1.NTAR 
DO  1 1-1.3 

1 TARG(K.I)-TARG(K,I)+TTRAN(I) 

INIT1-0 

2 CONTINUE 
NW IDE-0 
KTAR— 0 

VI.  DETERMINE  WHICH  TARGETS  ARE  ILLUMINATED. 

WRITE(2.500) 

500  FORMAT( IX. 'TARGET  #’ ,2X. 'COSPHN' ) 

DO  15  1-1 . NTAR 

A)  DETERMINE  THE  POSITION  OF  THE  RADAR  RELATIVE  TO 
TARGET  SPECULAR  POINT. 

1 . "VECT"-  POSITION  VECTOR 
DO  5 J-1 ,3 

VECT( J )— RADAR (J)—TARG( I , J ) 

5 CONTINUE 

2.  VNORM-  MAGNITUDE  OF  "VECT". 

VNORt^SQRT ( VECT ( 1 ) . . 2+VECT ( 2 ) • * 2+VECT ( 3 ) * *2 ) 

B)  DETERMINE  THE  COSINE  OF  THE  ANGLE  BETWEEN  THE 
RADAR  POSITION  RELATIVE  TO  THE  TARGET  SPECULAR  PT.  k 
TARGET  NORMAL. 

1 . CALCULATE  THE  ANGLE  BY  EMPLOYING  THE  DOT  PRODUCT 
OF  THE  TWO  VECTORS:  "COSPHI"  k "ORIENT". 

DP-0. 

DO  7 J-1. 3 

2.  COSPHI-  UNIT  VECTOR  OF  "VECT";  REPRESENTATIVE  OF  THE 
COSINE  OF  THE  ANGLE  BETWEEN  "VECT”  k SMM  COORDINATE  AXIS. 

COSPH I ( I . J ) -VECT ( J ) /VNORM 
7 OP-OP+COSPHI ( I , J)*ORIENT(I ,J) 

3.  COSPHN-  COSINE  OF  THE  ANGLE;  RESULT  OF  THE  DOT  PRODUCT. 
COSPHN ( I )-OP 

C)  TEST  OF  ILLUMINATION-  TWO  METHODS:  COMPARE  COSPHN  W/TMAX 
OR  COMPARE  COMPONENTS  OF  COSPHI  W/PHIMIN  k PHIMAX. 

1.  PL-  A FLAG:  0 INDICATES  METHOD  1 k 1 INDICATES  METHOD  2. 
IF(PL(I).EO.0.)GO  TO  9 

2.  METHOD  1 

I F(COSPHN( I ) . LT . TMAX( I ) )GO  TO  15 
GO  TO  11 

3.  METHOD  2 
9 DO  10  J-1 .3 

IF(COSPHI(I.J).LT.PHIMAX(I,J).OR.COSPHI(I.J).GT.PHIMIN(I.J)) 

2 GO  TO  15 

10  CONTINUE 

D)  TARGET  SHADOWING 

1.  TEST  FIRST  19  TARGETS  ONLY. 

11  I F( I .GT. 19)GO  TO  13 

2.  FIND  SHADOWING  VECTOR  BY  TRANSFORMATION  OF  COSPHI 
FROM  SfcMS  TO  TARGET  COORDINATES. 

FI -COSPH I (1,1) *COS(ABG( 1.1) )+COSPHI ( 1 ,2)*SIN(ABG( 1.1)) 

F2— COSPHI ( I . 2) *COS(ABG( 1,1) )-COSPHI (1.1) -SIN(ABG( 1.1)) 

F3— COSPHI (1,3) 
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F82-F2»C0S(ABG(I ,2))+F3*SIN(ABG(I .2)) 

FB3-F3«C0S ( ABG ( 1 . 2 ) )-F2  »S I N ( ABG ( 1 , 2 ) ) 

FG(1 )-F1 *COS(ABG( I ,3) )+FB2*SIN(ABG( 1.3)) 

FG(2)-FB2*C0S(ABG( I .3) )-F1 *S1N(ABG( 1.3)) 

FG(3)-FB3 

C 3.  TEST  FOR  TARGET  SHADOWING . 

DO  12  J-1, 3 

IF(FG( J) .GT ,SOMAX( I.J).OR.FG(J). LT .SDMIN( I , J))GO  TO  15 

12  CONTINUE 

E)  COUNT  NUMBER  OF  ILLUMINATED  TARGETS. 

1.  KTAR-  # OF  TARGETS  ILLUMINATED 

13  KTAR-KTAR+1 

2.  JHOT—  TARGET  IDENTIFICATION  NUMBER 
JHOT(KTAR)-I 
SIG(KTAR)-SIGMA(I) 

3.  NWIDE-  # OF  DIFFUSE  SCATTERERS 
I F( I . LE.KWIDE)  NWIDE-NWIDE+1 
WRITE(2, 100)1 ,COSPHN( I ) 

100  FORMAT (1X.I3.7X.F6.3) 

15  CONTINUE 

VII.  UPDATE  RANGE  OF  RADAR  RELATIVE  TO  EACH  TARGETS  SPECULAR  PT . 

A)  RANGE  UPDATE 

DO  20  K-1 .KTAR 
I-JHOT(K) 

DO  20  J-1 .3 

R ( K , J )-TARG( I , J )+OFFSET ( I ) .COSPHI (I , J) 

20  CONTINUE 
I EE-1 

IF  (IEE.EQ.0)GO  TO  24 

B)  RE-EVALUATE  RCS  FOR  DIFFUSE  SCATTERERS 

DO  22  K-1, NWIDE 
I— JHOT(K) 

SIG(K)-SORT (ABS(COSPHN( I)))»SIGMA( I) 

22  CONTINUE 

24  RANG  E-SQRT ( R AD AR ( 1 ) • * 2+R AD AR ( 2 ) • • 2+R AD AR ( 3 ) • • 2 ) 

C)  TEST  FOR  CLOSE  RANGE 

IF((ROLD.LT. .01 . OR. RANGE-ROLD . LE . 0 . ) . AND. RANGE. LE. 270.)  ICLOSE-1 
I F(RANGE-ROLD . GT . 0 . . AND . RANGE. GT . 300 . ) ICLOSE-0 
I CLOSE-0 

I F(  ICLOSE . EQ . 0 . OR . NWIDE . EQ . 0)  GO  TO  55 
IF( ICLOLD. EQ. 1 ) GO  TO  35 

D)  RANGE  UPDATE  FOR  DIFFUSE  SCATTERERS 

1.  PERFORMS  INITIALIZATION  OF  DIFFERENCE  EQUATIONS 
FOR  ALL  DIFFUSE  SCATTERERS. 

DO  30  1-1 .KWIDE 

I F(COSPHN( I ) . GT . 1 . )COSPHN( I )-1 . 

PHI OLD ( I ) -ACOS ( COSPHN ( I ) ) 

C a)  T-  WANDERING  VECTOR 

DO  25  J-1. 3 

V(  I , J )— WSCALE( I . J )• (ZUDU(KSEED( I , J) )— .5) 

VOLD( 1 . J)— V( I , J) 

25  CONTINUE 
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b)  TRANSFORMATION  OF  "V“  FROM  TARGET  COORDINATES  TO 
SMMS  COORDINATES. 

TGAM1-V(I,1)*COS(ABG(I,3))-V(I,2)*SIN(ABG(I.3)) 

TGAM2-V( I . 1 )*SIN(ABG( I ,3) )+V( I , 2) *COS(ABG( 1.3)) 
TBETA2-C0S(ABG(I,2))»TGAM2-SIN(ABG(I.2))*V(I,3) 

TBETA3— SIN(ABG( I ,2) )»TGAM2+C0S(ABG( I ,2))*V( I ,3) 

V( I , 1 )— COS(ABG( 1.1) ) *TGAM1-SIN( ABG( 1.1)) *TBETA2 

V( I ,2)»SIN(ABG( 1.1)) •TGAM1+C0S(ABG( I . 1 ) )*TBETA2 

V(I.3)-TBETA3 

DO  26  J-1, 3 

R(I,J)-R(I,J)+V(I,J) 

26  CONTINUE 
30  CONTINUE 
GO  TO  55 

2.  UPDATES  THE  ANGLE  BETWEEN  THE  RADAR  VECTOR  k THE 
TARGET  NORMAL. 

35  DO  40  I-1.KWIDE 

PHI ( I )-ACOS(COSPHN( 1 ) ) 

DPHI ( I )-(PHI ( I )— PHIOLD( I ) ) 

PHIOLD(I)-PHI(I) 

40  CONTINUE 

3.  UPDATES  THE  RANGE  COMPONENTS  DUE  TO  RADAR  BEAM 
DEFLECTION  OVER  THE  SURFACE  OF  THE  DIFFUSE  SCATTERER. 

THE  TRANSFORMATION  PERFORMS  THE  SAME  FUNCTION  DESCRIBED 
PREVIOUSLY. 

DO  50  K-1.NWIDE 
I-JHOT(K) 

DO  45  J-1  ,3 

ALPH( I , J )-EXP(-D IM( I . J ) . ABS(DPHI ( I ) »COSPHN( I))) 

WRAN ( I . J )-SQRT ( 1 . -ALPH ( I . J ) * *2 ) • WSCALE ( I . J ) • ( ZUDU ( KSEED ( I , J ) )- . 5 ) 
V( I , J )-ALPH( I . J ) »VOLD( I , J )+WRAN( I . J ) 

VOLD(I.J)-V(I,J) 

45  CONTINUE 

TGAM1«V( I . 1 )«COS(ABG( 1.3) )-V(I , 2)»SIN(ABG( I .3)) 

TGAM2-V( I . 1 )*SIN(ABG( I .3) )+V( I ,2) *COS(ABG( 1,3)) 

TB ET A2-C0S ( ABC ( I . 2 ) ) • TG AM2-S I N ( ABG ( I , 2 ) ) • V ( I . 3 ) 

TBETA3-S I N ( ABG ( 1 . 2 ) ) * TGAM2+C0S ( ABG ( 1 . 2 ) ) • V( 1 , 3 ) 

V( I , 1 )-COS(ABG( 1,1)) *TGAM1-SIN(ABG( I . 1 ) )«TBETA2 

V(1 ,2)-SIN(ABG(I .1))*TGAM14C0S(ABG(I ,1))«TBETA2 

V(I ,3)-TBETA3 

DO  46  J-1  ,3 

R(K , J )— R(K , J )+V( I , J) 

46  CONTINUE 
50  CONTINUE 
55  CONTINUE 

ROLD-RANGE 
ICLOLD— 1CLOSE 
RETURN 
END 


FUNCTION  ZUDU (KSEED) 

C THIS  SUBROUTINE  GENERATES  RANDOM  NUMBERS. 

DATA  MU/524287/ , XMU/524287 ./. I ETA/997/ 
IF(KSEED)  20.10.20 
20  CONTINUE 

KSEED-I ETA*KSEED 
IKEEP-KSEED/MU 
KSEED-KSEED-IKEEP*MU 
XRAN-KSEED 


XRAN-XRAN/MU 
ZUDU-XRAN 
10  RETURN 
END 


APPENDIX  B 


SOURCE  CODE  LISTING  OF  FINAL  DELIVERABLE  PROGRAM 

This  appendix  is  a listing  of  the  final  simulation  program 
delivered  at  the  end  of  the  contract.  The  program  has  been  installed  on  the 
Building  44  VAX  system  at  JSC  under  the  Ku-Band  account  in  the 
KUBAND. HOWARD. MARK  directory.  The  name  of  the  source  program  is  FINSIMl. 
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MODIFIED  01/27/86  TO  COMPUTE  AND 
PLOT  REF.  RANGE  ACCELERATION. 


MDM1N  - KUBAND  DATA  : SSRNG,  SSRDOT,  SSRANG.  SSPANG.  SSRRTE,  SSPRTE, 

SSALP , SSBET 

WHITE  SANDS  - REF  DATA  : X.  Y,  Z,  VX,  VY.  VZ 

REF  ->  TMR2KU  ->  ACT  : R,  ARDOT.  SPANG.  SRANG.  SRRTE,  SPRTE. 

SALF,  SBTA,  SAZRTE . SELRTE 

REF  ->  TMR2KU  ->  SIM  : HRNG,  HRDOT , HRANG,  HPANG,  HRRTE,  HPRTE, 

HALP,  HBET , HELRTE.  HALRTE 


COMMON  /T ARGET /IT ARG . SRCS 

COMMON  /ACTDAT/R , ARDOT . SPANG . SRANG . SPRTE . SRRTE . AL . BT , SALF . SBTA 

1 , ER(3) .EV(3) ,ERTO(3) .AZRATE.ELRATE. SAZRTE. SELRTE 

2 , AX . AY , AZ , AAX . AAY . AAZ , RACCEL 

COMMON  /TERM/ 1 T ERM . XMO , XDAY . XYR , TB I AS . X JMO . XJDAY , X J YR 
COMMON  /OUTPUT /MSWF . MTF . MSF . HRNG , HRDOT . HPANG . HRANG . HPRTE 

2 . HRRT E . HRSS . MADVF . MRDVF . MARDVF . MRRDVF 

3 .HALP. HBET 
COMMON  /SYSDAT/TS,DUM2(14) 

COMMON  /TMR/X.Y.Z.VX.VY.VZ. 

1 DLP(3) ,DEL(3) ,DUE(3) . 

2 DSU(3) .THAZL1 .THEL1 .THAZU1 ,A23 
COMMON  /INPUT/RO(3) , VO(3) . EWB(3) 

COMMON  /ICNTL/IDUM( 16) ,MPRF 
CHARACTER  ANS. REPLY 
CHARACTER* 11  FPRO(57) 

CHARACTER *40  IXT,LPRO(57) 

CHARACTER *80  COMMENT 
CHARACTER* 1 1 UNIT7 
INTEGER  I REF 
INTEGER*2  IS1.1S2 
DIMENSION  TP(2001 ) ,D(2001 ,43) 

DIMENSION  ITI LT (10) 

DIMENSION  RNEW(3) ,ROLD(3) ,VNEW(3) ,VOLD(3) 

BYTE  IC( 120) 

TEST  DATA  FROM  WS32TDATA1 

DATA  LPRO(1 )/’  SIM  DATA  PROFILE  HL146AB$'/ 

DATA  LPRO(2)/’  SIM  DATA  PROFILE  HL246AB$’/ 
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DATA 
DATA 
DATA 
DATA 
OATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
OATA 
DATA 
OATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DA  'A 
DATA 


LPR0(3)/’  SIM  DATA  PROFILE  HJ146ABS’/ 

LPR0(4)/’  SIM  DATA  PROFILE  HEL30AB$’/ 

LPRO(5)/’  SIM  DATA  PROFILE  H30SKABS’/ 

LPRO(6)/’  SIM  DATA  PROFILE  H30SKACS * / 

LPRO(7)/’  SIM  DATA  PROFILE  HEL30ACS7 

LPRO(8)/‘  SIM  DATA  PROFILE  HEL30AD$’/ 

LPRO(9)/*  SIM  DATA  PROFILE  HL246ACS’/ 

LPRO(10)/‘  SIM  DATA  PROFILE  HL346ABS’/ 

LPRO(II)/’  SIM  DATA  PROFILE  HL446AB$7 

LPRO(12)/’  SIM  DATA  PROFILE  HL546ABS’/ 

LPRO(13)/’  SIM  DATA  PROFILE  HL546AC$7 

LPRO(  14)/*  SIM  OATA  PROFILE  HL246AD$7 

LPRO(  15)/’  SIM  DATA  PROFILE  HL446ACS7 

LPRO( 16)/’  SIM  DATA  PROFILE  HL146ACS’/ 

LPRO( 17)/'  SIM  DATA  PROFILE  HL346ADS’/ 

LPRO(18)/’  SIM  DATA  PROFILE  HJ146ACS’/ 

LPRO(19)/’  SIM  DATA  PROFILE  HEL30AES’/ 

LPRO(20)/’  SIM  DATA  PROFILE  HEL30AFS’/ 

LPRO(21 )/’  SIM  DATA  PROFILE  H30SKAD$’/ 

LPRO(22)/’  SIM  DATA  PROFILE  H30SKAES7 

LPRO(23)/’  SIM  DATA  PROFILE  H30SKAF$’/ 

LPRO(24)/'  SIM  DATA  PROFILE  HEL30AGS’/ 

LPRO(25)/’  SIM  DATA  PROFILE  HEL30AH$’/ 

LPRO(26)/‘  SIM  DATA  PROFILE  H30SKAGS’/ 

LPRO(27)/’  SIM  DATA  PROFILE  H30SKAHS’/ 

LPRO(28)/’  SIM  DATA  PROFILE  H30SKAIS’/ 

LPRO(29)/ ’ SIM  DATA  PROFILE  HEL30AIS’/ 

LPRO(30)/’  SIM  DATA  PROFILE  HEL30AJS’/ 

LPRO(31 )/’  SIM  DATA  PROFILE  HL546AES’/ 

LPRO(32)/’  SIM  DATA  PROFILE  HL246AES7 

LPRO(33)/’  SIM  DATA  PROFILE  HL446ADS’/ 

LPRO(34)/’  SIM  DATA  PROFILE  HL146ADS’/ 

LPRO(35)/‘  SIM  DATA  PROFILE  HL346AES’/ 

LPRO(36)/‘  SIM  DATA  PROFILE  HJ146ADS7 

LPRO(37)/’  SIM  DATA  PROFILE  HL546AFS’/ 

LPRO(38)/’TSS  SIM  DATA  PROFILE  GEM1$7 
LPRO(39)/'TSS  SIM  DATA  PROFILE  GEM2$7 
LPRO(40)/’TSS  SIM  DATA  PROFILE  GEM3$7 
LPR0(41 )/’TSS  SIM  DATA  PROFILE  SATIS’/ 
LPRO(42)/’TSS  SIM  DATA  PROFILE  SAT2S’/ 
LPR0(43)/’TSS  SIM  DATA  PROFILE  SAT3S’/ 
LPR0(44)/’TSS  SIM  DATA  PROFILE  SAT4$’/ 
LPRO(45)/’TSS  SIM  DATA  PROFILE  SAT 6$ ’ / 
LPRO(46)/’TSS  SIM  DATA  PROFILE  SAT8S’/ 
LPR0(47)/’TSS  SIM  DATA  PROFILE  BAL1$7 
LPRO(48)/’TSS  SIM  DATA  PROFILE  BAL2S’/ 
LPR0(49)/’TSS  SIM  DATA  PROFILE  BAL5S’/ 
LPRO(50)/’TSS  SIM  DATA  PROFILE  BAL6S’/ 
LPRO(51 )/’TSS  SIM  DATA  PROFILE  BAL7S’/ 
LPRO(52)/’  SIM  DATA  PROFILE  HL546AGS’/ 

LPRO(53)/’  SIM  DATA  PROFILE  HL246AFS’/ 

LPRO(54)/’  SIM  DATA  PROFILE  HL446AES’/ 

LPRO(55)/’  SIM  DATA  PROFILE  HL146AES’/ 

LPRO(56)/’  SIM  DATA  PROFILE  HL346AFS’/ 

LPRO(57)/ ’ SIM  DATA  PROFILE  HJ146AES’/ 

FPRO( 1 )/ ’ HL1 46AB . XXX ’/ 

FPRO ( 2 ) / ’ HL246AB . XXX ’/ 

FPRO ( 3 ) / ’ H J 1 46AB . XXX ’/ 

FPRO ( 4 ) / ’ HE L30AB . XXX  ’/ 

FPRO ( 5 ) / ’ H30SKAB . XXX  ’/ 

FPRO ( 6 ) / ’ H30SKAC . XXX  ’/ 

FPRO(7)/ ’ HEL30AC . XXX  ’/ 

FPRO (8 ) / ’ HEL30AD . XXX  ’/ 

FPRO ( 9 ) / ’ H L246AC . XXX ’/ 
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DATA  FPRO ( 1 0 ) / ’ H L346AB . XXX ’ / 
DATA  FPRO( 1 1 )/’ HL446AB . XXX ’/ 
DATA  FPRO (12)/’ HL546AB . XXX ' / 
DATA  FPRO( 13)/’ HL546AC . XXX  * / 
DATA  FPRO( 1 4)/ ’HL246AD. XXX  */ 
DATA  FPRO ( 1 5 ) / ’ H L446AC . XXX ’ / 
DATA  FPR0(16)/*HL146AC.XXX’/ 
DATA  FPRO(17)/’HL346AD.XXX*/ 
DATA  FPRO( 1 8)/ ’ HJ 1 46AC . XXX ’ / 
DATA  FPRO(19)/’HEL30AE.XXX’/ 
DATA  FPRO(2O)/‘HEL30AF.XXX’/ 
DATA  FPRO (21)/’ H30SKAD . XXX ’ / 
DATA  FPRO ( 22 ) / ’ H30SKAE . XXX ’ / 
DATA  FPRO ( 23 ) / ’ H30SKAF . XXX ’ / 
DATA  FPRO (24)/ ’ HEL30AG . XXX ’ / 
DATA  FPRO(25)/’HEL30AH. XXX  */ 
DATA  FPRO ( 26 ) / ’ H30SKAG . XXX ’ / 
DATA  FPRO ( 27 ) / ’ H30SKAH . XXX ’ / 
DATA  FPRO(28)/'H30SKAI .XXX’/ 
DATA  FPRO(29)/’HEL30AI .XXX'/ 
DATA  FPRO(30)/*HEL30AJ .XXX'/ 
DATA  FPRO(31 )/’HL546AE.XXX’/ 
DATA  FPRO ( 32 ) / ’ H L246AE . XXX ’ / 
DATA  FPRO ( 33 ) / * HL446AD . XXX ’ / 
DATA  FPRO (34) / ’ HL1 46AD . XXX ’ / 
DATA  FPRO ( 35 ) / ’ H L346AE . XXX ’ / 
DATA  FPRO(36)/*HJ146AD.XXX*/ 
DATA  FPRO ( 37 ) / ' H L546AF . XXX ’ / 
DATA  FPRO(38)/*GEM1 .XXX’/ 
DATA  FPRO ( 39 )/ * GEM2 . XXX ’ / 
DATA  FPRO(40)/*GEM3 . XXX  */ 
DATA  FPR0(41)/’SAT1 .XXX*/ 
DATA  FPRO(42)/ ’SAT2 . XXX ’/ 
DATA  FPRO  ( 43 ) / * SAT3 . XXX  * / 
DATA  FPRO ( 44 ) / * SAT4 . XXX  * / 
DATA  FPRO(45)/*SAT6.XXX*/ 
DATA  FPRO( 46 ) / ’ SAT8 . XXX ’ / 
DATA  FPR0(47)/*BAL1 .XXX’/ 
DATA  FPR0(48)/’BAL2.XXX’/ 
DATA  FPR0(49)/’BAL5.XXX'/ 
DATA  FPRO(50)/'BAL6.XXX’/ 
DATA  FPRO(51 )/'BAL7.XXX’/ 
DATA  FPRO ( 52 ) / ' H LS46AG . XXX ’ / 
DATA  FPRO (53)/*HL246AF.XXX*/ 
DATA  FPRO ( 54 )/ ' HL446AE . XXX ’ / 
DATA  FPRO(55)/’HL146AE.XXX’/ 
DATA  FPRO ( 56 ) / ’ H L346AF . XXX ’ / 
DATA  FPRO( 57 )/ * H J 1 46AE . XXX ’ / 


SIMULATION  FILE  MODIFICATION 

A23-24.5 

TS-0.051 

WRITE  (6.*)  * INPUT  RCS  IN  SOU ARE  METERS  ’ 
READ  (5, »)RCSM 
SRCS-RCSM*3 .28*3.28 
SRCS-SQRT(SRCS) 

ITARG-0 

WRITE  (6, *) * 1 : TEK’ 

WRITE  (6. •) *2  : VT125’ 

WRITE  (6, *) *3  : VT240’ 
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WRITE  (6,»)’4  : PC* 

READ  (5,*)ITERM 

WRITE  (6.*) ‘ENTER  : 1 IF  YOU  ARE  PROCESSING  TMR  DATA’ 

WRITE  (6, *) ’ 2 IF  YOU  ARE  PROCESSING  CINE  DATA’ 

WRITE  (6.*)’  3 IF  YOU  ARE  PROCESSING  BEST  DATA’ 

READ  (5 . •) IREF 

WRITE(6,«) ’ENTER  TIME  INTERVAL  ( 0,0  FOR  THE  WHOLE  INTERVAL  )’ 

REA0(5.*)STIME.STTIME 

IF  (STTIME.EQ.0)STTIME-999 

WRITE  (6, •) ’DO  YOU  WANT  TO  FILTER  THE  DATA  7 (Y/N)’ 

READ  (5 ,2322)ANS 
FORMAT(A) 

WRITE(S.*) 'PROFILE  NUMBER  PROFILE’ 

DO  L-1 . 19 

WRITE(6,200)L, LPRO(L) 

FORMAT ( 7X . I 2 , 9X , A32 ) 

ENODO 

WRITE  (6,*) ’ENTER  C TO  CONTINUE,  Q TO  QUIT  :’ 

READ  (5,101)  REPLY 
FORMAT  (A) 

IF  (REPLY. EQ. ’C’)  THEN 
DO  L-20,38 

WRITE(6 , 200) L. LPRO( L) 

ENDDO 

WRITE  (6.*) ’ENTER  C TO  CONTINUE,  Q TO  OUIT 
READ  (5,101)  REPLY 
IF  (REPLY. EQ. ’C’)  THEN 
DO  L-39,57 

WRITE(6 . 200) L, LPRO(L) 

ENDDO 
ENDIF 
END  IF 

WR1TE(6,«)’ INPUT  PROFILE  NUMBER’ 

READ(5 , *) ITAPE 
UNIT7— FPRO( I TAPE) 

CALL  FIXIT(ITILT,LPRO( ITAPE)) 

IF  (ITAPE.LT. 38. AND. ITAPE. GT.51)GO  TO  39 
IF  (ITAPE. GE. 38. AND. ITAPE. LE.51)GO  TO  49 

IF  (IREF.EQ.1)  THEN 
UNIT7(9 : 1 1 )— ’ JST ’ 

ELSE  IF  (IREF.EQ.2)  THEN 
UNIT7(9: 1 1 )-’ JSC’ 

ELSE 

UNIT7(9:11)-’BST’ 

ENDIF 
GO  TO  59 

IF  (IREF.EQ.1)  THEN 
UNIT7(6:8)-’JST’ 

ELSE  IF  (IREF.EQ.2)  THEN 
UNIT7(6:8)«’JSC’ 

ELSE 

UNIT7(6:8)-’BST* 

ENDIF 

OPEN (UN IT-4, FORM- ’UNFORMATTED’ , STATUS- ’ OLD ’ , 

FILE-UNIT7) 

TOUT-0 . 

THAZL1— 30. 

THEL1-30. 

THAZU1— 0. 
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DLP(1)— 0.2347 
DLP(2)-0.05 
DLP(3)— 9.748 
DEl(1)— 0.192738 
DEL(2)— 0.055573 
DEL(3)»-3. 299135 
DUE(1)-0.88 
DUE(2)-0.55 
DUE(3)— 0.39988 
DSU(1)-1 .67 
DSU(2)-0.73 
DSU(3>— 5.46 

WRITE(6, *) ’ INPUT  1 FOR  SCREEN  OUTPUT* 

READ ( 5. •) TOUT 
J«0 

C READ  START  TIME 

READ ( 4 ) TB I AS . GMT I ME . XMO . XDAY , XYR 
I LOOP-1 

1 CONTINUE 

READ ( 4 , END-99 ) T . SSRNC , SSRDOT , SSRANG . SSPANG , SSRRTE . SSPRT  E 
1 , X , Y ,Z . VX , VY , VZ , AX, AY , AZ, IS1 , I S2 , RSS , RFPWR , AERR . BERR , ALFX , 
1 BETY , SCRR , SCPR 

IF  (T.LT.STIME)  GOTO  1 

I JJ=2»*13 

ITF— IAND( IS2 . I J J ) 

IF  (ITF.NE.IJJ. AND . ANS . EO. ’ Y ’ ) GO  TO  1 
CALL  RPAB( SSRANG , SSPANG . SSALP . SSBET ) 

CALL  TMR2KU 
DO  1-1  ,3 

RNEW(I)— RO(I) 

VNEW(I)«VO(I) 

END  DO 

IF(ILOOP.NE.I)  GO  TO  7 

6 CALL  EXEC 
IF(MPRF.EQ.I)  THEN 

TS— .051 

ELSE 

TS— . 119 
END  IF 

IF(ILOOP.EQ.1)THEN 
T1-T 
I LOOP-0 
GO  TO  196 
END  IF 

7 CONTINUE 
T1-T1+TS 

IF(T1 . GT.T)THEN 
T1-T1-TS 
GO  TO  196 
END  IF 
DO  1-1 .3 

RO(I)-(RNEW(I)-ROLD(I))*(T1— T2)/(T— T2)+ROLD(I) 

VO( I )— (VNEW( I )— VOLD( I ) ) » (T1-T2)/(T-T2)+VOLD( I ) 

END  DO 
GO  TO  6 

196  CONTINUE 
T2-T 

DO  1-1 ,3 

ROLD( I )— RNEW( I ) 

VOLD(I)-VNEW(I) 

END  DO 

HRRTE-HRRTE* 1 80 . /(3 . 1 41 59* 1 000 . ) 

HPRTE-HPRTE* 1 80 . /(3 . 1 41 59* 1 000 . ) 

J-J+1 
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IF( J . EQ. 2001 )GO  TO  99 

IF(T.GE.STTIME)GO  TO  99 

TP(J)-T 

D(J.1)«SSRNG 

D(J.2)-SSRDOT 

D(J.3)-SSRANC 

D(J,4)«SSPANG 

D(J,5)-SSRRTE 

D(J.6)-SSPRTE 

D(J.7)-SSALP 

D(J,8)-SSBET 

D(J,9)-HRNG 

D(J.10)-HRDOT 

D(J,11)-RO(1) 

D(J,12)-RO(2) 

D(  J , 13)— RO(3) 

D( J . 1 4)-ATAND(-RO(3)/SQRT(RO(  1 ) *RO( 1 )+RO(2) *RO(2) ) ) 

D( J , 15)-SSRNG— R 

0( J . 16)-SSRDOT-ARDOT 

D ( J , 1 7 )»SSRANG-SRANG 

D( J , 18)-SSPANG-SPANG 

D ( J , 1 9 ) -SSRRTE-SRRT E 

D( J , 20)-SSPRTE— SPRTE 

D(J.21)-SSALP-SALF 

D( J , 22)— SSBET— SBTA 

D(J,23)-SAZRTE 

D(J,24)=SELRTE 

D(J,25)-RSS 

D(J.26)-RFPWR 

D(J,27)-AERR 

D(J,28)-8ERR 

D(J,29)-ALFX 

D(J,30)-8ETY 

D(J.31)-SCRR 

D(J,32)»SCPR 

IF  (HRSS.LE.0)  THEN 

D(J.33)-0 

ELSE 

D(J.33)-(32»HRSS)-181 .+(40.ALOG10(HRNG)) 

ENOIF 

D(J,34)-RACCEL 
D(J,35)-HRNG-R 
D(  J , 36 ) -HRDOT -ARDOT 
0 ( J , 37 ) -HR ANG-SR ANG 
D ( J . 38  )— HP  ANG— SPANG 
0(J ,39)— HRRTE— SRRTE 
D(J , 40) -HPRTE— SPRTE 
D( J .41 )— HALP— SALF 
D( J . 42)— HBET— S8TA 
D ( J . 43 )— HRSS/32 . 

IF(J.GT.2000)THEN 

WRITE(6, •) ’ MORE  THAN  2000  POINTS’ 

STOP 
END  IF 
GO  TO  1 

99  CONTINUE 

J-J-1 
IXD— 0 

94  CONTINUE 

CALL  SORT(TP,D, J , ITI LT , IXD, IYD.GMTIME, IREF) 

GO  TO  94 
END 


SUBROUT  I NE  SORT ( T , D . J . I T 1 LT . I XD , I YD , GMT IME . I REF) 
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DIMENSION  0(2001.43) ,X(2001 ) ,Y(2001 ) ,T(2001 ) 

CHAR ACT  ER  • 40  I XT . I YT ( 43 ) , PRONAME 
CHARACTER *4  REFF 

DIMENSION  ITILT(10) . IXL(IO) , IYL(10) 

DATA  I XT/’ TIME  SECONDSS’/ 

DATA  IYT ( 1 )/ ’KU  MDM  RANGE  FEET$'/ 

DATA  IYT(2)/’KU  MOM  RANGE  RATE  FT/SECS’/ 

DATA  IYT(3)/’KU  MDM  ROLL  ANGLE  DEG$’/ 

DATA  IYT(4)/’KU  MDM  PITCH  ANGLE  DEG$’/ 

DATA  IYT(5)/’KU  MDM  ROLL  RATE  DEG/SECS ’/ 

DATA  IYT(6)/’KU  MDM  PITCH  RATE  DEG/SEC$’/ 

DATA  IYT(7)/’KU  MDM  ALPHA  DEG$7 
DATA  IYT (8)/ ’KU  MDM  BETA  DEG$ ’ / 

DATA  IYT(9)/’SIM  RANGE  FEETS’/ 

DATA  IYT( 10)/’SIM  RANGE  RATE  FT/SECS’/ 

DATA  IYT( 1 1 )/‘WSMR  X (NORTH)  FEET$'/ 

DATA  IYT ( 1 2)/’WSMR  Y (EAST)  FEETS’/ 

DATA  IYT ( 13)/’WSMR  -Z  (ALTITUOE)  FEET$’/ 

DATA  IYT ( 1 4)/’WSMR  ELEVATION  ANGLE  DEG$’/ 

DATA  IYT ( 1 5)/’DELTA  RANGE  FEET  ( KU  - WSMR  )$•/ 

DATA  IYT( 16)/’ DELTA  RANGE  RATE  FT/SEC  ( KU  - WSMR  )$'/ 
DATA  IYT ( 1 7)/’DELTA  ROLL  ANGLE  DEG  ( KU  - WSMR  )$'/ 

DATA  IYT(18)/’DELTA  PITCH  ANGLE  DEG  ( KU  - WSMR  )$V 
DATA  I YT( 1 9)/ 'DELTA  ROLL  RATE  DEG/SEC  ( KU  - WSMR)$’/ 
DATA  IYT(20)/’DELTA  PITCH  RATE  DEG/SEC  ( KU  - WSMR  )$*/ 
DATA  IYT(21)/ ’DELTA  ALPHA  DEG  ( KU  - WSMR  )$’/ 

DATA  IYT(22)/’DELTA  BETA  DEG  ( KU  - WSMR  )$’/ 

DATA  I YT( 23)/ 'WSMR  AZ  RATE  DEG/SECS’/ 

DATA  IYT(24)/’WSMR  EL  RATE  DEG/SECS’/ 

DATA  IYT(25)/’KU  SCANNER  RSS  ( VOLTS  )$’/ 

DATA  IYT(26)/’KU  SCANNER  RF  POWER  ( VOLTS  )$’/ 

DATA  IYT(27)/’KU  SCANNER  ALPHA  ERROR  ( VOLTS  )$’/ 

DATA  IYT(28)/’KU  SCANNER  BETA  ERROR  ( VOLTS  )$’/ 

DATA  IYT(29)/’KU  SCANNER  ALPHA  X ( VOLTS  )$’/ 

DATA  IYT(30)/’KU  SCANNER  BETA  Y ( VOLTS  )$’/ 

DATA  IYT(31)/’KU  SCANNER  ROLL  RATE  ( VOLTS  )$’/ 

DATA  IYT(32)/’KU  SCANNER  PITCH  RATE  ( VOLTS  )$’/ 

DATA  IYT(33)/’SIM  RADAR  CROSS  SECTION  ( DBSM  )$’/ 

DATA  IYT(34)/’WSMR  RANGE  ACCELERATION  FT/SEC/SEC$’/ 

DATA  IYT(35)/’DELTA  RANGE  FEET  (SIM-WSMR)S’/ 

DATA  IYT(36)/’DELTA  RANGE  RATE  FT/SEC  (SIM-WSMR)S’/ 

DATA  IYT (37)/ ’DELTA  ROLL  ANGLE  DEG  (SIM-WSMR)S’/ 

DATA  IYT (38)/ ’DELTA  PITCH  ANGLE  DEG  (SIM-WSMR)S’/ 

DATA  IYT (39)/ ’DELTA  ROLL  RATE  DEG/SEC  (SIM-WSMR)S’/ 

DATA  IYT (40)/ ’DELTA  PITCH  RATE  DEG/SEC  (SIM-WSMR)S’/ 

DATA  IYT(41)/’DELTA  ALPHA  DEG  (SIM-WSVR)S’/ 

DATA  IYT (42)/ 'DELTA  BETA  DEG  (SIM-WSMR)S’/ 

DATA  IYT(43)/’SIM  RADAR  SIGNAL  STRENGTHS’/ 

I FLAG-1 

IF  (IREF.EQ.I)THEN 

elseFif  (IREF.EQ.2)  THEN 

REFF-’CINE’ 

ELSE 

REFF- ’BEST’ 

END  IF 
DO  1-1.43 

L-INDEX(IYT(I). ’WSMR’) 

IF  (L  .GT.  0)  THEN 
IYT(I)(L:L+3)  - REFF 

END  IF 
ENDDO 

1 CONTINUE 

DO  1-1 .43 
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68 


731 


2 


C 


999 


C 


WRITE(6.68)I.IYT(I) 

FORMAT ( IX , 14, 10X , A40) 

ENDDO 

WRITE(6,*)’ INPUT  IXD, IYD  IXD-0  FOR  TIME’ 

IF  ( IFLAG. EQ.0)THEN 
I FLAG-1 
IXD-0 
IYD-1 
GO  TO  731 
END  IF 

READ(5,*)IXD, IYD 
IF(IXD.EQ.0)THEN 
DO  1-1 ,J 
X(I)-T(I) 

Y( I )— 0( I , IYD) 

ENDDO 

CALL  FIXIT(IXL.IXT) 

CALL  FIXIT(IYL,IYT(IYD)) 

ELSE 

DO  1-1  ,J 
X( I )— 0( I , IXD) 

Y(I)-D(I .IYD) 

ENDDO 

CALL  FIXIT(IXL. IYT(IXD)) 

CALL  FIXIT(IYL.IYT(IYD)) 

END  IF 

CALL  PLOTIT( ITI LT . IXL, IYL.X. Y. J .GMTIME, IYD. IXD) 

GO  TO  1 

CONTINUE 

RETURN 

END 


SUBROUTINE  FIXIT( IOUT. IN) 

DIMENSION  I OUT (10) 

CHARACTERS  ITEMP(10) 

CHARACTERS©  IN 
ITEMP(I)— (IN(1 :4)) 

ITEMP(2)-(IN(5:8)) 

ITEMP(3)-(IN(9:12>) 

ITEMP(4)— ( IN( 13:1 6) ) 

ITEMP(5)— ( IN( 17:20)) 
ITEMP(6)-(IN(21:24)) 
ITEMP(7)-(IN(25:28)) 
ITEMP(8)-(IN(29:32)) 

ITEMP(9)— ( IN (33: 36)) 

ITEMP( 10)— ( IN(37 : 40) ) 

ENCODE ( 40 . 999 . 1 OUT ) ( I TEMP ( I ) , I -1  , 1 0 ) 
FORMAT (10A4) 

RETURN 

END 


SUBROUTINE  PLOTIT( ITILT. IXL.  IYL.X. Y.J .GMTIME. IYD, IXD) 

C0M40N  /TERM/ 1 TERM , XMO , XDAY . XYR , TB I AS , X JMO , XJDAY . XJYR 
C0M40N/TMR/A , B , C . D . E,F,G(3),AH(3).AI (3) , AJ (3) .THAZL1 .THEL1 .THAZU1 
DOUBLE  PRECISION  SIG.AVG 
BYTE  CR(2) 

DIMENSION  ITILT(8),IXL(8).IYL(8) 

DIMENSION  X(1) ,Y(1 ) ,TINL(30) 

1WRITE(6.  •) ' 1 FOR  MEAN  AND  STANDARD  DEVIATION  OF  Y* 

READ(5 . •) ISTA 
NSC-0 
XMAX— X ( 1 ) 

XMIN— X( 1 ) 

YMAX-Y(I) 
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YMIN-Y(I) 

GMHOUR 1 -GMT I ME/60 . /60 . 

GMHOUR- 1 NT ( GMHOUR 1 ) 

GMM I N 1 -( GMHOUR 1 -GMHOUR )• 60 . 

GMMIN— 1NT (GMMIN1 ) 

GMSEC— INT  ( (GMMIN1— GkAAIN)  *60  . ) 

DO  1-1. J 

IF(X(  I ) .GT . XMAX)  XMAX-X(I) 

IF(X( I ) . LT . XM1N)  XMIN— X( I ) 

IF(Y( I ) .GT. YMAX)  YMAX-Y(I) 

IF(Y( I ) . LT . YMIN)  YMIN-Y(I) 

END  DO 

IF(XMAX.EQ.XMIN)XMAX-XMIN*1 .1 
1F(YMAX.EQ.YMIN)YMAX«YMIN*1 .1 
I F( YMAX . EQ . YMIN) YMAX-0 . 1 
2 CONTINUE 

YMAX 1 -YMAX 
YMIN1— YMIN 

IF  (ITERM.EQ. 1)  CALL  TEKALL(41 14 . 480 . 0, 1 .0) 

IF  ( I TERM. EO. 2)  CALL  REGIS  (1,0) 

IF  (ITERM.EQ. 3)  CALL  PVT240 
IF  (IYD.EQ.I)CALL  R1NTL(X , Y , J , TINL.NTINL) 

CALL  BGNPL(-I) 

CALL  FLATBD 
CALL  PAGE( 14. ,20. ) 

CALL  AREA2D  (9.0,14.0) 

CALL  HEIGHT ( . 45) 

C CALL  TITLE(ITILT,100,IXL,100,IYL,100,9.0.13.5) 

CALL  MESSAG(ITILT, 100, —0.6,16.5) 

CALL  RESET  ('HEIGHT’) 

CALL  HEIGHT  (.3) 

1100-100 

C 0.6  WAS  SUBTRACTED  TO  CENTER  AND  1 INCHE  WERE  ADDED  IN  HEIGHT 

CALL  MESSAG( 'TEST  DATES ’, 1 100,0 . 7 , 1 5.5) 

IF  (XMO.GE. 10)THEN 
CALL  REALNO(XMO, 0.3. 0,15.5) 

ELSE 

CALL  REALNO(XMO,0,3.3, 15.5) 

END  IF 

CALL  REALNO(XDAY,0,3.9, 15.5) 

IF  (XDAY.GE. 10)  THEN 
CALL  REALNO(XYR,0,4.8, 15.5) 

ELSE 

CALL  REALNO(XYR,0,4.5, 15.5) 

END  IF 

CALL  MESSAG ( ’ REVISION  12$ ’ . 1 100 , 6. 0 , 15.5) 

POSITION  CHANGED  FROM  13.7  TO  14.2 
X-POSITION  MOVED  FORWARD  BY  1 .2 
CALL  MESSAG ( ’ T0—  GMT-S ' , 1 100 , 1 .2, 14.2) 

CALL  REALNO(GMTIME,0.1 .8,14.2) 

CALL  REALNO(GMHOUR,0,5. 1 ,14.2) 

CALL  REALNO(GMMIN, 0,6. 0,14.2) 

CALL  REALNO(GMSEC,0 , 6.9,14.2) 

IF(ISTA.EQ.1)THEN 
AVG-0 
siG-e 
DO  1-1  ,J 
AVG— AVG+Y( I ) 

SIG— SIG+Y(I)**2 
END  DO 
AVG-AVG/J 

S1G-SORT ( SIG/J  -AVG* AVG) 

CALL  MESSAG( ’MEAN-  $’, 1100,-0.9,-2.0) 

CALL  REALNO( AVG . 3 , ’ ABUT ’ , * ABUT ’ ) 
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CALL  MESSAG(’  STANDARD  DEVIATION-  $’.1100,3.3.-2.0) 
CALL  REALNO(SIG,3, ’ABUT’ , ’ABUT’ ) 

END  IF 

CALL  XNAME( IXL, 100) 

CALL  YNAME( IYL, 100) 

CALL  INTAXS 
CALL  YAXANG(0. ) 

IF(NSC.EQ.0)THEN 

CALL  GRAF(XMIN, ’SCALE’ .XMAX.YMIN. ’SCALE’ ,YMAX) 

END  IF 

IF(NSC. EQ. 1 )THEN 

CALL  GRAF(XMIN,  ’SCALE*  .XMAX.YMIN,  ’SCALE’  .YMAX) 

END  IF 

IF  (NTINL.NE.0. AND. IXD. EQ.0)THEN 
DO  K— 1 .NTINL 

IVEC— 1302 

CALL  RLVEC  (TINL(K) , YMIN1  .TINL(K) , YMAX1 , IVEC) 
ENDDO 
ENOIF 

CALL  CURVE(X,Y, J ,0) 

CALL  GRID(1 .1) 

CALL  HEIGHT ( . 1 ) 

CALL  RESET( ’HEIGHT’) 

CALL  DONEPL 
CR( 1 )— 27 
CR(2)«12 
WRITE(6,888)CR 
888  FORMAT( ’+' ,2A1 ) 

WRITE(6. •) ’ INPUT  1 TO  CHANGE  SCALE  OF  Y AXIS’ 
READ(5, *)NSC 
IF(NSC. EQ. 1 )THEN 

WRITE(6. •) ’YMAX-’ , YMAX, ’ YMIN— ’ ,YMIN 
WRITE(6, •) ’ NEW  YMAX’ 

REAO(S,*)YMAX 
WRITE(6, •) ’NEW  YMIN’ 

READ(5, *)YMIN 

GO  TO  2 

ENDIF 

RETURN 

END 


SUBROUTINE  RPAB(ROLLQ,PITCHQ, ALPHA. BETA) 
DEGRAD-57 . 29576 
PS 1-67. /DEGRAD 
PIT-PITCHQ/DEGRAD 
ROL-ROLLQ/DEGRAD 
XB— SIN(PIT) 

YB— (SIN(ROL))*SQRT(1 .0-XB*XB) 

2-SQRT ( 1 . 0-XB»XB— YB»YB) 

IFfROLLQ.  LE . 90 . 0 . AND . ROLLO . GE . —90 . 0 ) Z— Z 
XR-XB«COS( PS I )+YB*S I N ( PS I ) 

YR— YB*COS(PSI )— XB*SIN(PSI) 

YRZR— SQRT(YR»YR+Z*Z) 

ALF-ASIN(YRARZR) 

BTA— ASIN(— XR/SQRT(XR»XR+YR*YR+Z*Z) ) 

ALPHA— ALF*DEGRAD 
BETA— BTA*DEGRAD 

IF(2.GE.0.0.AND.YR.LE.0.0)ALPHA— (180.0+ALPHA) 
IF(Z.GE. 0.0. AND. YR.GT.0.0)ALPHA-( 180. 0-ALPHA) 
RETURN 
END 


SUBROUTINE  RINTL(T,R,N,TI ,J) 

DIMENSION  RI(5),R(1),DS(5),TI(30),T(1) 
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DATA  R 1/2550. .5750. .11510. .23030. ,43510./ 
RMAX-R(I) 

RM1N-R(1) 

DO  1 1-1 ,N 

RMAX-AMAX1 ( RMAX ,R( I ) ) 

RMIN-AMIN1 (RMIN , R(  I ) ) 

1 CONTINUE 
MRMAX-1 
MRMIN— 1 

DO  2 1-1 .5 

I F(RMAX .GT . RI ( I ) )MRMAX«I 
IF(RMIN.GT.RI(I) )MRMIN— I 

2 CONTINUE 
J-0 

I F ( MRMAX . EQ . MRM I N ) R ETURN 
J-0 

DO  3 L«1 ,5 
DS(L)» R(1 )— RI(L) 

3 CONTINUE 
DO  4 1-1 ,N 
DO  5 L— 1 .5 

IF(  (R(I)-RI(L))  • DS(L)  .LT.  0 )THEN 
J-J+1 

TI(J)-T(I) 

DS(L)— R(I )— RI (L) 

END  IF 
CONTINUE 
CONTINUE 
RETURN 
END 


••  MODED  JWG  2/8/85 

* * 

••  INPUT  VIA  COMMON  VIA  X . Y .2, VX . VY . V2 , AX.AY.A2 
•*  OUTPUT  VIA  COMMON  /ACT DAT/ 

• • 

WHITE  SANDS  TO  KU-BAND  RADAR  PARAMETER  CONVERSION 


COMMENTARY 


**  PURPOSE  •• 

THIS  SOFTWARE  TAKES  THE  POSITION  AND  VELOCITY  OF  A TARGET  REFERENCED 
TO  THE  PEARL  SITE  SURVEY  CAP  AND  CALCULATES  THE  VALUES  OF  THE  KU-BAND 
RADAR  PARAMETERS  AS  SEEN  AT  THE  KU-BAND  RADAR  GIMBAL  AXES  INTERSECTION. 
THESE  CALCULATIONS  INVOLVE  COORDINATE  ROTATIONS  THROUGH  A THREE-AXIS 
POSITIONER  AND  FOUR  TRANSLATIONS  FROM  THE  PEARL  CAP  TO  THE  RADAR  GIMBAL 
AXES  INTERSECTION. 

THESE  CALCULATIONS  ARE  TO  BE  DONE  BY  WSMR  DATA  REDUCTION  USING  THE  WSMR 
RANGE  REFERENCE  ESTIMATIONS  OF  TARGET  LOCATION  WITH  TIME.  COMPARISON 
CAN  BE  MADE  DIRECTLY  WITH  THE  KU-BAND  OUTPUTS  FOR  THE  SAME  TIME  VALUES. 

••  INPUTS  * CONSTANTS  •• 

WSMR  PROVIDED  INPUTS: 

WSMR  WILL  PROVIDE  TARGET  POSITION  - X.  Y.  2 - AND  VELOCITY  - VX.  VY. 
V2  AS  INPUTS  TO  THIS  PROGRAM. 

UNITS  ARE  FEET  AND  FEET/SECOND. 

THE  COORDINATE  SYSTEM  IS: 

ORIGIN  - PEARL  SURVEY  CAP 

X-AXIS  IS  POSITIVE  TOWARD  THE  NORTH 

Y-AXIS  IS  POSITIVE  TOWARD  THE  EAST 
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NEGATIVE  Z-AXIS  IS  UPWARD  ALONG  THE  LOCAL  VERTICAL. 

CONSTANTS  PROVIDED  BY  SIMULATION  TEST  TAPE: 

FOR  ANY  GIVEN  TEST  THE  FOLLOWING  PARAMETERS  WILL  BE  DEFINED  ON  THE 
SIMULATION  MAGNETIC  DATA  TAPE  AND  WILL  REMAIN  CONSTANT  FOR  THAT  TEST: 
DSU(I)  1-1,3  IS  THE  LOCATION  OF  THE  KU-BAND  RADAR  GIMBAL  AXES  IN 
UPPER  AZIMUTH  COORDINATES. 

THAZL1  IS  THE  LOWER  AZIMUTH  AXIS  ROTATION  ANGLE  IN  DEGREES. 

THEL1  IS  THE  ELEVATION  AXIS  ROTATION  ANGLE  IN  DEGREES. 

THAZU1  IS  THE  UPPER  AZIMUTH  AXIS  ROTATION  ANGLE  IN  DEGREES. 

ONE  TIME  INPUT  CONSTANTS: 

THE  FOLLOWING  PARAMETERS  WILL  BE  MEASURED  AFTER  INSTALLATION  OF  THE 
ANTENNA  PEDESTAL  AT  THE  PEARL  SITE.  THEIR  VALUES  SHOULD  NOT  CHANGE. 
THEY  ARE  CURRENTLY  DEFINED  AS  ZERO  IN  THIS  SOFTWARE. 

DLP(I)  1-1,3  LOCATION  OF  THE  LOWER  AZIMUTH  ORIGIN  IN  PEARL 
COORDINATES. 

DEL(I)  1-1,3  LOCATION  OF  THE  ELEVATION  ORIGIN  IN  LOWER  AZIMUTH 
COORDINATES. 

DUE(I)  1-1,3  LOCATION  OF  THE  UPPER  AZIMUTH  ORIGIN  IN  ELEVATION 
COORDINATES. 


**  SOFTWARE  OUTPUTS  ** 

THIS  SOFTWARE  PRODUCES  THE  FOLLOWING  OUTPUTS  REFERENCED  TO  THE 
RADAR  GIMBAL  AXES  INTERSECTION. 


R - RANGE  (FT) 

ARDOT  * RANGE  RATE  (FT/SEC) 

SRANG  - ROLL  ANGLE  (DEG) 

SPANG  - PITCH  ANGLE  (DEG) 

SRRTE  - INERTIAL  ROLL  RATE  (DEG/SEC) 
SPRTE  - INERTIAL  PITCH  RATE  (DEG/SEC) 
SALP  - ALPHA  ANGLE  (DEG) 

SBTA  - BETA  ANGLE  (DEG) 

AZRTE  - AZIMUTH  ANGLE  RATE  (DEG/SEC) 
ELRTE  - ELEVATION  ANGLE  RATE  (DEG/SEC) 


**  EXAMPLE  *• 

AN  EXAMPLE  CASE  IS  INCLUDED  IN  THE  CODE.  IF  THIS  SOURCE  IS  COMPILED, 
LINKED.  AND  EXECUTED.  OUTPUTS  WILL  GO  TO  UNIT  6.  THEIR  VALUES  SHOULD 
BE: 


R - 43760.6016 
SRANG  - 25.2644920 
SRRTE  - 92681 8550E-01 

SALF  - -36.1578255 
AZRTE  - . 302744657E— 01 


ARDOT  - -9.87364578 
SPANG  - 28.2407990 
SPRTE  - . 688237743E-02 
SBTA  - 9.27430439 
ELRTE  - -.105446391 


SUBROUTINE  TMR2KU 

COMMON  /TMR/X , Y , Z , VX , VY , VZ . 

1 DLP(3) ,DEL(3) ,DUE(3) , 

2 DSU(3) , THAZL1 , THEL1 , THAZU1 ,A23 
COMMON  /INPUT/R0(3) , VO(3) , EWB(3) 

C0M40N  /ACTDAT/R , ARDOT  . SPANG , SRANG . SPRTE , SRRTE , AL . BT . SALF . SBTA , 
1 ER ( 3 ) . EV ( 3 ) , ERTO ( 3 ) . AZRAT E , ELRATE . AZRTE .ELRTE 
2 , AX , AY , A2 . AAX . AAY , AAZ , RACCEL 

DIMENSION  DLP(3) .DEL(3) ,DUE(3) ,DSU(3) 

DIMENSION  AZL(3 , 3) , ELV(3 , 3) , AZU(3 , 3) 

DIMENSION  DPT (3) ,DLT(3) ,DET(3) ,DUT(3) ,DST(3) 

DIMENSION  DLAZ(3) ,DELV(3) ,DAZU(3) 

DIMENSION  VPT (3) , VLAZ(3) , VELV(3) , VST (3) 

DIMENSION  APT (3) ,ALAZ(3) ,AELV(3) .AST(3) 
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DATA  D EGRAD/57. 275/, P 1/3. 14159/ 

C THE  EWB  PARAMETERS  ARE  ALWAYS  DEFINED  AS  0.0 
EWB(1)«0.0 
EWB(2)-O.0 
EWB(3)-0.0 

EXAMPLE  CASE  VALUES: 

X-39417.2812 
Y-16164.0078 
Z— 9999.65820 
VX— 41 .1736259 
VY-73. 6755753 
VZ-.1 66666671 E-02 
THAZL2-45.0 
THEL2— 45.0 
THAZU2-0.0 


•*  INPUTS  *• 

WSMR  WILL  NORMALLY  PROVIDE  X.Y,Z.VX,VY.VZ.  REF  IS  PEARL  SURVEY  POINT. 
THIS  IS  PROVIDED  VIA  COMMON  TMR  BLOCK 
DPT(1)-X 
DPT(2)«Y 
DPT(3)«Z 
VPT(1)«VX 
VPT(2)-VY 
VPT(3)-VZ 
APT ( 1 )«AX 
APT(2)-AY 
APT (3)“AZ 
C 
C 

C ••  CONSTANTS  •• 

C DLP(I) : DEL(I);  AND  DUE(I)  WILL  BE  PROVIDED  ONE  TIME  AFTER  INSTALLATION 

C OF  THE  ANTENNA  PEDESTAL 

C THIS  IS  PROVIDED  VIA  COMMON  TMR  BLOCK 

C DLP(1)«O.0 

C DLP(2)-0.O 

C DLP(3)-0.0 

C DEL(1)-0.O 

C DEL(2)-0.0 

C DEL(3)-0.0 

C DUE(1)-0.0 

C DUE(2)-0.0 

C DUE(3)-0.0 

C 

C 

C ••  CONSTANTS  FROM  SIMULATION  DATA  TAPE  •• 

C THIS  IS  PROVIDED  VIA  COMMON  TMR  BLOCK 

C DSU(1)-0.0 

C DSU(2)-0.0 

C DSU(3)«0.0 

C THAZL1-0.0 

C THEL1-0.0 

C THAZU1-0.0 

C 

C EXAMPLE  ANGLE  VALUES  ARE  EQUATED  HERE. 

C THAZL1-THAZL2 

C THEL1-THEL2 

C THAZU1-THAZU2 

C CONVERT  TO  RADIANS 

TH AZ L-THAZ L 1 /D EGRAD 
THEL-THEL1/DEGRAD 
THAZU-THAZU 1 /DEGRAD 
C SET  UP  THE  ROTATIONAL  MATRICES 
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CALL  AZGEN(AZL.THAZL) 

CALL  ELGEN(ELV.THEL) 

CALL  AZGEN ( AZU , THAZU ) 

C CONVERT  TARGET  IN  PEARL  TO  TARGET  AT  GIMBALS 
DO  11  1-1,3 

11  DLT ( I )-OPT ( I )— DLP( I ) 

CALL  MULT31 (AZL.OLT.DLAZ) 

DO  21  1-1  .3 

21  OET ( I )-DLAZ( I )-DEL( I ) 

CALL  MULT31 ( ELV , DET , DELV) 

DO  31  1-1,3 

31  OUT ( I )— DELV( 1 )-OUE( I ) 

CALL  MULT31 (AZU . OUT , DAZU) 

DO  41  1-1,3 

41  DST ( I )— DAZU( I )-OSU( I ) 

C THESE  ARE  THE  THREE  TARGET  COORDINATES  IN  RADAR  GIMBAL  REFERENCE*. 
RO(1 )— OST(1) 

RO(2)— 0ST(2) 

RO(3)-OST(3) 

C CONVERT  TO  VELOCITIES  REFERENCED  TO  GIMBALS 
CALL  MULT31 (AZL.VPT , VLAZ) 

CALL  MULT31( ELV, VLAZ, VELV) 

CALL  MU LT31 (AZU, VELV, VST) 

C CONVERT  TO  ACCELATIONS  REFERENCED  TO  GIMBALS 
CALL  MULT31(AZL.APT,ALAZ) 

CALL  MULT31 (ELV.ALAZ.AELV) 

CALL  MULT31 (AZU , AELV , AST) 

C THESE  ARE  VELOCITIES  IN  GIMBAL  REFERENCE. 

VO(  1 )— VST  ( 1 ) 

VO(2)-VST(2) 

VO(3)-VST(3) 

C 

C RO(I)  VO(I)  1-1,3  SHUTTLE  BODY  POS  AND  VEL  VECTOR 

C 

C CALCULATE  THE  KU-8AND  RADAR  PARAMETERS  BASED  ON  THE  INPUTS. 
C23-COSD ( A23 ) 

S23— SIND(A23) 

XI— RO(2)*C23-RO(3)*S23 
Y1— RO(2)*S23-RO(3)  »C23 
Z1— RO(1) 

RO( 1 )— XI 
RO(2)-Y1 
RO(3)-Z1 

VX-VO ( 2 ) »C23— VO ( 3 ) • S23 
VY— VO  ( 2 ) * S23-VO  ( 3 ) «C23 
VZ— VO(1) 

VO(1)-VX 

VO(2)-VY 

VO(3)-VZ 

AAX— AST ( 2 ) *C23— AST ( 3 ) . S23 
AAY— AST  ( 2 ) • S23— AST  ( 3 ) »C23 
AAZ— AST(1) 

CALL  ACT 

SRRTE-SRRTE* (DEGRAD/1 000 . ) 

SPRTE-SPRTE* (DEGRAD/1 000 . ) 

SALF-AL.DEGRAD 
SBTA-BT .DEGRAD 
AZRTE— AZRATE*DEGRAD 
ELRTE-ELRATE.DEGRAD 
RETURN 
END 

C 

SUBROUTINE  AZGEN (AZ.ANGAZ) 

C THIS  SUBROUTINE  PRODUCES  A 3X3  MATRIX.  AZ,  FOR 
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C AN  AZIMUTH  TABLE  ROTATION  OF  ANGAZ  RADIANS. 
DIMENSION  AZ(3.3) 

DO  10  1-1 ,3 
DO  10  J-1 ,3 

10  AZ( I , J)-0.0 

AZ(1.1)-C0S(ANGAZ) 

AZ(1 ,2)«SIN( ANGAZ) 

AZ(2,1)— SIN(ANGAZ) 

AZU.2)-C0S(ANGAZ) 

AZ(3,3)-1 .0 

RETURN 

END 



SUBROUTINE  ELGEN( EL. ANGEL) 

DIMENSION  EL(3.3) 

DO  10  1-1.3 
DO  10  J-1 ,3 

10  EL(1.J)«0.0 

EL(1 .l)-COS(ANGEL) 

EL(1  ,3)— SI  N(  ANGEL) 

EL(2,2)-1 .0 

EL(3 . 1 )-SIN(ANGEL) 

EL(3,3)-COS(ANGEL) 

RETURN 

END 


SUBROUTINE  ACT 


• THIS  SUBROUTINE  INITIALIZES  THE  ANGLE  TRACKING  LOOPS.  THE  * 

• RANGE  TRACKING  LOOP.  AND  THE  VELOCITY  PROCESSOR  STEADY  • 

• STATE  CONDITIONS  ARE  ASSUMED.  • 


SUBROUTINE  ACT 

COMMON  / ACTDAT/R , ARDOT . SPANG . SRANG . SPRTE . SRRTE , AL . BT . SALF . SBTA 

2 .  ER ( 3 ) . EV ( 3 ) . ERTO ( 3 ) , AZRATE . ELRATE . AZRT  E , ELRTE 

3 , AX , AY , AZ . AAX . AAY , AAZ , RACCEL 
COMMON  /INPUT/  ERT(3) , EVT (3) , EWB(3) ,DUM(18) 

COMMON  /SYSDAT/TSAM . DR ( 3 ) . CP . SP , PS I . PSB I AS . DUM2 (7 ) . TRB ( 3 . 3 ) 
DIMENSION  FLTWID(3) ,RI ( 10) 

DIMENSION  TX1 (3,3) ,TX2(3.3) ,TX3(3,3) ,TBL(3.3) 

DATA  PI/3.141592653/ 

DATA  I ONE/0/ 

I F( IONE. EQ. 0)CALL  DATA 
IONE-1 

STEP  1-1:  COMPUTE  INITIAL  INNER  AND  OUTER  GIMBAL  POSITIONS. 

(NOTE:  TRANSFORM  CONSISTS  OF  TRANSLATION  PLUS  ROTATION.) 

PERFORM  TRANSLATION  SHIFT  TO  RADAR  FRAME  ORIGIN. 

DO  1 1-1,3 

1 ERTO( I )-ERT ( I )— DR( I ) 

C TRANSFORM  TARGET  POSITION  FROM  BODY  TO  RADAR  FRAME. 

CALL  MULT31 (TRB.ERTO.ER) 

C TRANSFORM  TARGET  VELOCITY  FROM  BODY  TO  RADAR  FRAME. 

CALL  MULT31(TRB.EVT.EV) 

SQ-SQRT(ER(2)*ER(2)+ER(3)»ER(3)) 

C COMPUTE  INNER(BETA)  GIMBAL  POSITION  BT. 

IF(ER(1 ) . EQ.0.0. AND.SQ. EQ.0.0)  STOP 
BT— ATAN2( ER( 1 ) ,SQ) 

ER2— ER(2) 


00015100 

00015110 

00015120 

00015130 

00015140 

00015150 

00015160 


00015170 


00015210 

00015250 


00015560 

00015570 

00015580 

00015590 

00015600 

00015610 

00015640 

00015650 

00015660 

00015670 

00015680 

00015690 

00015700 

00015710 

00015720 


B-16 


ooooooooo  ooooooooo  o o o o o oo  oooo 


c 


c 

c 

c 

c 


ER3— ER(3) 

COMPUTE  OUTER (ALPHA)  GIMBAL  POSITION  AL. 

I F( ER2 . EO . 0 . 0 . AND . ER3 . EQ . 0 . 0)  GO  TO  8 
AL— ATAN2(ER2,ER3) 

GO  TO  9 

8 IF(ER(1 ) .GT.0.0)  AL-PI/2. 

IF(ER(1).LT.0.0)  AL— PI/2. 

IF(ER(1 ) . EQ.0 .0)  STOP 

STEP  1-2:  COMPUTE  INITIAL  TARGET  INERTIAL  LOS  AZIMUTH  AND 
ELEVATION  RATES. 

PRELIMINARY  TRIGONOMETRIC  COMPUTATIONS. 

9 CA-COS(AL) 

SA-SIN(AL) 

CB-COS(BT) 

SB-SIN(BT) 

TRANSFORM  BODY  ANGULAR  VELOCITY  VECTOR  FROM  BODY  TO  OUTER 
GIMBAL(G)  REFERENCE  FRAME. 

WGX«CP*EWB(1 )+SP*EWB(2) 

WG  Y-C  A • ( -SP  • EWB  ( 1 ) 4CP  * EWB  ( 2 ) ) +S  A • EWB  ( 3 ) 

WGZ— SA*(-SP*EWB(1)+CP*EWB(2))+CA*EWB(3) 

COMPUTE  THE  RANGE  TO  TARGET. 

R—SQRT  (ER(1)*ER(1  )+ER(2)  *ER(2)+ER(3)  *ER(3)  ) 

YZR*SQRT(ER(2) *ER(2)+ER(3) *ER(3) ) 

COMPUTE  RANGE  RATE  TO  TARGET 

ARDOT«(ER(1)*EV(1)+ER(2)*EV(2)+ER(3)*EV(3))/R 
COMPUTE  RANGE  ACCELERATION  TO  TARGET. 
VSQ«EV(1)**2+EV(2)**2+EV(2)**2 

RACCEL*(VSO+ER(  1 ) *AAX+ER(2)*AAY+ER(3)*AAZ— ARDOT**2)/R 
COMPUTE  INITIAL  TARGET  INERTIAL  LOS  AZIMUTH  RATE(AZRATE) . 
VGY-CA*  EV ( 2 ) +SA*  EV( 3 ) 

AZRAT E*VGY/R+ ( CB  * WGX-SB  * WGZ ) 

COMPUTE  INITIAL  TARGET  INERTIAL  LOS  ELEVATION  RATE(ELRATE) . 
ELRATE— (CB*EV(  1 )-SB*  (-SA*EV(2  )+CA*EV(3)  ) )/R+WGY 


* STEP  1 : UPDATE  ROUGH  RANGE  RATE  ESTIMATE  • 


• STEP  1:  UPDATE  ANTENNA  LOS-TO-BODY  TRANSFORMATION  (NOTE:  TRANS-  • 

• FORMATION  INCLUDES  GIMBAL  BIAS  ERRORS  AND  RADAR  YAW  * 

• ANGLE  ERROR  WRT  BODY  FRAME).  * 


CALL  GAMMA(TX1 ,— (BT+BTBIAS) ) 
CALL  THETA(TX2 (AL+ALBIAS)) 
CALL  MULT33(TX2,TX1 ,TX3) 
CALL  PH I ( TX2 , —PS I ) 

CALL  MULT33(TX2.TX3.TBL) 


• STEP  6:  TRANSFORM  TARGET  ANGLES  AND  INERTIAL  ANGLE  RATES  TO  * 

• BODY  FRAME  FOR  USE  IN  DISPLAYS  AND  G AND  N. 


NOTE:  TRANSFORMATION  TBL  INCLUDES  GIMBAL  BIAS  ERRORS  AND  RADAR  YAW 
ANGLE  ERROR  WRT  BODY  FRAME. 

UPDATE  TARGET  INERTIAL  PITCH  RATE  IN  ORB I TER  BODY  COORDINATES 
FOR  DISPLAY. 

SPRT E— 1 000 . * ( TBL  ( 2 , 1 ) • AZRAT E+TB L ( 2 , 2 ) • ELRATE ) 

UPDATE  TARGET  INERTIAL  ROLL  RATE  IN  OR8ITER  BODY  COORDINATES 
FOR  DISPLAY. 

SRRTE— 1 000 . *(TBL(  1,1)  *AZRATE+TBL(  1 . 2)  * ELRATE) 

UPDATE  ANTENNA  PITCH  ANGLE  IN  ORBITER  BODY  COORDINATES  FOR  DISPLAY. 

SPANG— ASIN(TBL(1  ,3))*57. 29576 
UPDATE  ANTENNA  IN  ORBITER  BODY  COORDINATES  FOR  DISPLAY. 


00015730 
0001 574-0 
00015750 
00015760 
00015770 
00015780 
00015790 
00015800 
00015810 
00015820 
00015830 
00015840 
00015650 
00015860 
00015870 
00015880 
00015890 
00015900 
00015910 
00015920 
00015930 
00015940 
00015950 


00015960 
00015970 
000159 
00015990 
0001 6000 
00026710 
00026720 
00026730 
00025530 
00025540 
00025550 
00025560 
00025570 
00025580 
00025590 
00025600 
00025610 
00025620 
00025630 
00025640 
00026140 
00026150 
00026160 
00026170 
00026180 
00026190 
00026200 
00026210 
00026220 
00026230 
00026240 
00026250 
C0026260 
00026270 
00026280 
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c 

c 


IF(TBL(2.3) . EO. 0 . 0 . AND . TBL(3 , 3) . EO.0.0)  GO  TO  5 
SR ANG— AT AN2  ( -TB L ( 2 , 3 ) . TB L ( 3 . 3 ) ) • 57 . 29576 
GO  TO  7 

5 IF(TBL(1 ,3).GT.0.0)  SRANG— 90.0 
IF(TBL(1 ,3).LT.0.0)  SRANG-90.0 
I F(TBL( 1 ,3) .EQ.0.0)  STOP 

RESOLVE  POSSIBLE  ANGLE  AMBIGUITIES,  VIZ..  -90 . <SPANG<90 . AND 
—180. <SRANG<1 80 . 

7 I F ( SPANG . LE . 90 . ) GO  TO  i0 

SPANG— (180. -ABS ( SPANG ) ) * ( SP ANG/ABS ( SPANG ) ) 

SRANG- (180. -ABS ( SRANG ) ) * ( SRANG/ ABS ( SR ANG ) ) 

10  CONTINUE 
RETURN 
END 


• THIS  SUBROUTINE  INITIALIZES  ALL  DATA  REQUIRED  BY  THE  SEARCH.  * 

• ACQUISITION.  AND  TRACK  SUBPROGRAMS.  • 


• THIS  SUBROUTINE  INITIALIZES  ALL  DATA  REQUIRED  BY  THE  SEARCH.  • 

* ACQUISITION.  AND  TRACK  SUBPROGRAMS.  • 


SUBROUTINE  DATA 
REAL  IDUM1 

COMMON  /RTDAT/IDUM1 (2) , RBI AS ,DUM1 (9) 

COMMON  /SYSDAT/TSAM , DR ( 3 ) . CP , SP , PS I . PSB I AS , A LB I AS . BTB I AS . GP , GA , 
2 TGTSIG.GPS ,GAS,TRB(3 ,3) 

COMMON  /NO IS E/NS 1 ,NS2,NN(10) ,GAUSS(320) 

DIMENSION  A(3,3),B(3,3),C(3,3) 

REAL  LT.KTS 


• SYSTEM  PARAMETERS  * 


PI-3.1415926 

PI1-PI/180. 

RADAR  FRAME  YAW  ANGLE  IN  BODY  COORDINATES  (DEGREES). 

PS1-PI 1*67.0 
CP-COS(PSI) 

SP-SIN(PSI) 

RADAR  LOCATION  OFFSET  FROM  ORB I TER  C.G.  IN  BODY  COORD.  (FEET) 
• ••*  VALUES  MODIFIED  MAR  24  83  PER  FM8  MEMO  •»••****•*•• 
DR(1)-0.0 
DR(2)-11 .130 
DR(3)— 5.79 

RANGE  BIAS  ERROR  IS  COMPUTED  IN  SUBROUTINE  RTRACK  AS 
FUNCTION  OF  RANGE 
ALPHA  G1MBAL  BIAS. 

ALBIAS-0.0 
BETA  GIMBAL  BIAS. 

BTBIAS-0.0 

RADAR  PLATFORM  ORIENTATION  ERRORS  WITH  RESPECT  TO  BODY  FRAME. 

YAW  ANGLE  ERROR. 

PSBIAS— PI  1*0.0 

ROLL  ANGLE  ERROR. 


00026290 

00026300 

00026310 

00026320 

00026330 

00026340 

00026350 

00026360 

00026370 

00026380 

00026390 

00026400 

00026510 

00026520 

00029600 

00029610 

00029620 

00029630 

00029640 

00029650 

00029660 

00029670 

00029610 

00029620 

00029630 

00029640 

00029650 

00029660 

00029670 

00029680 

00029685 

00029690 

00029700 

00029710 

00029720 

00029725 

00029730 

00029740 

00029750 

00029760 

00029770 

00029780 

00029790 

00029800 

00029820 

00029830 

00029840 


00029920 

00029930 

00029940 

00029950 

00029952 

00029954 

00029956 

00029958 

00029962 

00029964 
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c 


RLBIAS— PI 1*0.0 
PITCH  ANGLE  ERROR. 
PTBIAS-PII*0.0 


C 

C NBIAS-0  FOR  N0  BIAS  AND  RADAR  AT  ORG1N 
C 


NB IAS-0 

IF(NBIAS.NE. 0)GO  TO  700 

701  FORMAT ( * ALL  ANGLE  BIAS  SET  TO  ZERO  RADAR  AT  ORGIN*  ) 

DO  4 1-1,3 
4 DR( I )-0.0 

C PSI-0.0 

PSBIAS— 0. 0 
R LB I AS— 0.0 
PTBIAS— 0.0 

700  CONTINUE 

C 

C COMPUTE  MATRIX  OF  TRANSFORMATION  FROM  BOOT  FRAME  TO  RADAR  FRAME. 
CALL  PHI(B,PSI+PSBIAS) 

CALL  THETA( A, RLBIAS) 

CALL  MULT33(A,B.C) 

CALL  GAMMA( A, PTBIAS) 

CALL  MULT33(A,C,TRB) 

C **•*******•••.***„*•*•««* 

C * SYSTEM  SAMPLE  INTERVAL  • 

c 

C MM*****t**MMMM««M 
C • COMPUTE  SNR  CONSTANT  • 

C 

C EQUIVALENT  ONE-SIDED  NOISE  POWER  SPECTRAL  DENSITY  (MW/KHZ) 

KTS— 137.5 

KTS— 1 0 . •* (0 . 1 *KTS) 

C SYSTEM  LOSSES  ON  TRANSMIT  (DB) . 

LT-2 . 5 

LT-10. **(0. 1*LT) 

C ONE-WAY  ANTENNA  GAIN  (DB) . 

G— 37.7 


G— 10 . **(0. 1 *G) 

ALMBDA-0. 070845 

C CONSTANT  FOR  PASSIVE  TRACKING  SNR  COMPUTATION. 

GP— 4 . • (G**2)  • ( ALMBDA* *2)/(  (4 . *PI  ) **3* LT *KTS) 
C BEACON  PARAMETER  (DBM) 

BCN-44.0 


BCN-10.**(0.1*BCN) 

C CONSTANT  FOR  ACTIVE  TRACKING  SNR  COMPUTATION. 

GA— 4 . *G • A LMBD A * * 2 * BCN/ ( (4 . *PI ) **2*KTS) 

C CONSTANT  FOR  PASSIVE  MODE  VIDEO  SNR  COMPUTATION  (DB) . 
GPS-183.9 

C CONSTANT  FOR  ACTIVE  MODE  VIDEO  SNR  COMPUTATION  (DB) . 
GAS-146.9 


C 

C 

C 

C 


C 


C 


• RANDOM  NUMBER  GENERATOR  SEEDS  * 


NS 1-48 
NS2-135 
NN( 1 )— 0 

INITIALIZE  NOISE  SEQUENCE. 
DO  2 1-1.320 

2 GAUSS ( I )— AN0RM(NS1 ,NS2) 
I F ( I TEST . EQ.2)GO  TP6341 
I TEST— 2 
WRITE(6 , 592) 


00029968 


00029972 

00029974 

00029976 

00029978 

00029980 

00029982 

00029984 

00029990 

00030000 

00030010 

00030030 

00030040 

00030050 

00030060 

00030070 

00030080 

00030090 

00030100 

00030110 

00030120 

00030130 

00030140 

00030150 

00030160 

00030170 

00030180 

00030190 

00030200 

00030210 

00030220 

00030230 

00030240 

00030250 

00030260 

00030270 

00030280 

00030290 

00030300 

00030310 

00030320 

00030330 

00030340 

00030350 

00030360 

00030370 
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592  FORMAT (1 HI  , ' RANDOM  NUMBER  INITIALIZATION’) 

C WRITE (6 ,593) (GAUSS( 1 ) , I“1 ,320) 

593  FORMAT (8F8. 4) 

C WRITE(6 ,592) 

6341  CONTINUE 

C 

C 

C • DEFINE  TARGET  PARAMETERS  • 

C 

C TARGET  SEARCH  CROSS-SECTION  ( FIXED  TEMPORARILY). 

TGTSIG-ie.e 

RETURN 

END 

SUBROUTINE  SET IT 
COMMON  /TARGET/ I TARG.SRCS 
COMMON  /LEN1/ANGOFF 

COfcMON  /SATDAT /RADAR ( 3 ) . KT AR . R ( 70 , 3 ) . S I G( 70 ) , ROLD . 

1 ICLOSE, ICOLD, JHOT(60) 

COMMON  /CNTL/IPWR, IMODE. ITXP . IASM, ISRCHC. ISRCHG. IAZS. IELS . ISLR , 

2 EDRNG , EDPA , EDRA 

COMMON  /ICNTL/IOLDPW, IOLDMD. IOLDSM. I SHOLD . KMSCLK . KWMUP , KSNCLK . 

2 KSNMAX , KACC  LK . MTP . MZ 1 , MZ0 , MSS , MTK 1 NT . MRNG , MS AM , MPRF 

T unk'TPk'  URTQ1  tki  kJRTYA^ 

COMMON  /OUTPUT /MSWF . MTF , MSF ! SRNG . SRDOT , SPANG , SRANG , SPRTE . 

2 SRRTE , SRSS . MADVF , MRDVF , MARDVF , MRRDVF 

COMMON  /INPUT/ERTO(3) , EVTO(3) , EWB(3) ,TBT(3,3) ,TBTD(3.3) 

COMMON  /ATDAT/DUM1 (10), PREF , RREF 
COMMON  /SYSDAT/TS , DUM2 (14) 

COMMON  /CGMAIN/RO(3) ,VO(3) ,AO(3) 

COMMON  /DSCRM/DUM3 ( 6 ) , S I GBAR , SNRD , S I GDB 
COMMON  /AGCDAT/AGCO , AGCODB , SNRDT . SNRDTD 
C ITARG  - 0 POINT  TARGET  RCS  OF  POINT  TARGET 
C SRCS  IS  VARIABLE  NAME  OF  RCS  VALUE 

C SRCS  - 3.27  IS  1MSQ  TARGET. 

C SRCS-3 . 27 
DO  1-1,3 
DO  J-1 ,3 
EWB(I)-0. 

TBT(I ,J)«0 

IF(  1 . EO. J)TBT(I , J)— 1 . 

TBTD( I , J )— 0 . 

ENDDO 
ENDDO 
KOLD— 1 
CALL  SYSINT 
IPWR-3 
I MODE-2 
I ASM-1 
ITXP— 1 
ISRCH-0 
IAZS-0 
IELS-e 
ISLR-e 
ISRCHG— 0 
EDRNG-500 . 0 
EDRA— 0 . 0 
EDPA— 0 . 0 

PI  1-3. 14159265/180. 

EDPA— EDPA*PI I 
EDRA«EDRA*PI  1 
MTF-0 
MTP-1 
MTP-1 
RETURN 


00030380 

00030390 

00030400 

00030410 

00030420 

00030430 

00030440 

00030450 
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END 


• THIS  FUNCTION  GENERATES  A RANDOM  NUMBER  FROM  A GAUSSIAN  PDF  • 

• WITH  ZERO  MEAN  AND  UNIT  VARIANCE.  • 


FUNCTION  ANORM(K1 ,K2) 

Y1*RNDU(K1 ) 

Y2-RNDU(K2) 

TP I *6  2831852 

ANORWNSORT(-2.  *ALOG(Y1 ) )*COS(TPI  *Y2) 

RETURN 

END 


• THIS  SUBROUTINE  UPDATES  A2  AND  EL  INERTIAL  LOS  RATES.  THE 

• ALPHA  AND  BETA  GIMBAL  RATES.  THE  ALPHA  AND  BETA  GIMBAL 

• POSITIONS.  AND  THE  TARGET  PITCH  AND  ROLL  ANGLES  FOR  THE 

• DISPLAY. 


SUBROUTINE  ATRACK 
REAL  INTT.K4.K5.K6 

INTEGER  ATI A( 10.2) .ATI E( 10.2) , AT2A( 1 0. 2) ,AT2E(10.2) 

COUPON  /CNTL/IPWR, IMOOE,  IDUMC(7)  ,DUMC(3) 

COMMON  /INPUT/DUM(6)  ,EWB(3).DUM2(18) 

COMMON  /OUTPUT/ 1 1 DUM(3)  , D1DUM( 2 ) , SPANG , SRANG , SPRTE . SRRTE . SRSS , 
2 IDUM1(4)  , SSALP.SSBET 

COMMON  /ICNTL/1 2DUM(  14)  .MRNG.MSAM.MPRF.  IDUM2(11) 

COMMON  /SYSDAT /TSAM , DR ( 3 ) .CP.SP.PSI  .PSBIAS. ALBIAS. BTBIAS , 

2 DUM4(5) 

COMMON  /ATDAT/CA . SA . CB  . SB . AZRATE . ELRATE . ALRATE , BTRATE . AL . BT , 

2 DUM3(4) 

COMMON  /DSCRM/AZD I SC . ELD  I SC . DUM1  ( 7 ) 

DIMENSION  TX1 (3,3) ,TX2(3 ,3) ,TX3(3. 3) . TBL(3,3) 

DIMENSION  TDC ( 3 ) 


00030820 

00030830 

00030840 

00030850 

00030860 

00030870 

00030880 

00030890 

00030900 

00030910 

00030920 

00030930 

00030940 

00030950 

00030960 

00025230 

00025240 

00025250 

00025260 

00025270 

00025280 

00025290 

00025300 

00025310 

00025320 

00025330 

00025335 


00025350 

00025360 

00025370 

00025380 

00025390 

00025400 

00025410 

00025420 

00025430 

00025440 

00025450 


ATRACK  MOOIFIED  JAN  28  1986  BY  M.  MEYER 
MODIFICATIONS  TO  SUBROUTINE  ATRACK  WERE  IMPLEMENTED 
TO  UPDATE  THE  LOOP  CONSTANTS  AND  MORE  ACCURATELY 
SIMULATE  THE  ACTUAL  SIGNAL  PROCEESSING  PERFORMED 
BY  THE  RADAR 


NEW  LOOP  CONSTANTS  JAN  28  1986- 


DATA  ATI A/9* 5 , 1 , 6*13 , 5 ,3*1/ 

DATA  AT1E/9*6.1 .6*16.6.2*1,2/ 

DATA  AT2A/9*407 .149.6*662.407.3*1 49/ 

DATA  AT2E/9*532 .195, 6*866 . 532 . 3* 1 95/ 

DATA  K6/3 . 60E-5/ , K4/ . 0048876/ . K5/ . 236/ , DTOR/ . 01 74533/ 


DATA  TDC/0 . 05 1 22 1 1 8 . 0 . 1 1 951 61 . 0 . 2561 557/ 

DEFINITION  AT1-KE0-(WN**2)/(4.*DIFFERENCE  PATTERN  SLOPE)  WHERE 
WN  IS  NATURAL  FREQUENCY  OF  THE  LOOP. 

DEFINITION:  AT2-KEQ*TAU  WHERE  TAU  IS  PROPORTIONAL  TO  STEP  RESPONSE 

CONVERGENCE  TIME. 


00025490 

00025500 

00025510 

00025520 


B-21 


oooooo  o o o o o oooo  ooooooo  ooooooooo 


c 

TCON-TSAM/TDC (MPRF) 

• STEP  1:  UPDATE  ROUGH  RANGE  RATE  ESTIMATE  • 


* STEP  1:  UPDATE  ANTENNA  LOS-TO-BODY  TRANSFORMATION  (NOTE:  TRANS-  • 

* FORMATION  INCLUDES  GIMBAL  BIAS  fRRORS  AND  RADAR  YAW  » 

* ANGLE  ERROR  WRT  BODY  FRAME).  • 


CALL  GAMMA(TX1 .-(BT+BTBIAS)) 
CALL  THETA(TX2,— (AL+ALBIAS)) 
CALL  MULT33(TX2,TX1 ,TX3) 

CALL  PHI(TX2,-PSI) 

CALL  MU LT 33 ( TX2 , TX3 , TBL ) 


• STEP  2:  UPDATE  ESTIMATED  TARGET  INERTIAL  AZIMUTH  AND  ELEVATION  • 

• RATES  IN  ANTENNA  LOS  FRAME.  • 


OUANTIZE  THE  ANGLE  DISCRIMINANTS  TO  3/16  DB. 

I AZDSC- 1 NTT ( 5 . 333333* AZD I SC*TCON+0 . 5 )/TCON 
I ELDSC-I NTT ( 5 . 333333*  ELD I SC*TCON+0 . 5)/TCON 
I F(  I ELDSC . GT . 255 ) I ELDSC-255 
I F ( 1 AZDSC . GT . 255 ) I AZDSC-255 
I F(  I ELDSC . LT  . -256)  I ELDSC— 256 
I F(  1 AZDSC . LT  .-256)  I AZDSC— 256 

NEW  CODE  AS  OF  JAN  28  1986 

UPDATE  ESTIMATED  TARGET  INERTIAL  AZIMUTH  RATE. 

I AZRAT E-KSAT ( I AZRATE+AT 1 A ( MRNG . I MODE ) • I AZDSC ) 
UPDATE  ESTIMATED  TARGET  INERTIAL  ELEVATION  RATE. 

I ELRATE-KSAT( I ELRATE+AT1 E(MRNG , IMODE) • IELDSC) 

AZRAT E—K 6 *DTOR* FLOAT ( IAZRATE) 
ELRATE-K6*DTOR*FLOAT( I ELRATE) 

IALRATE-KSAT( I AZRAT E+AT2A(MRNG , IMODE)* I AZDSC) 
IBTRATE-KSAT ( I ELRATE+AT2E(MRNG . IMODE) • I ELDSC) 

IF(IALRATE.GT.e)  THEN 

ALRATE-K4*K5*DT0R* FLOAT ( I ALRATE/32 ) 

ELSE 

ALRATE«K4*K5*DT0R*FL0AT( ( IALRATE— 31 )/32) 
END  IF 

IF(IBTRATE.GT.O)  THEN 

BTRATE—K4*K5*DT0R* FLOAT ( IBTRATE/32) 

ELSE 

BTRATE-K4*K5*DT0R*FL0AT( ( IBTRATE— 31 )/32) 
END  IF 


• STEP  3-  UPDATE  INNER  AND  OUTER  GIMBAL  RATES.  • 


COMPUTE  REQUIRED  COMPONENTS  OF  ORBITER  ANGULAR  VELOCITY  VECTOR  IN 
OUTER  GIMBAL  FRAME 

WGX*CP*EWB(1 )+SP*EWB(2) 

WGY-CA* (— SP*EWB( 1 )+CP*EWB(2) )+SA*EWB(3) 

WGZ— SA • ( -SP • EWB ( 1 ) +CP * EWB ( 2 ) ) 4CA * EWB ( 3 ) 

C OUTER  GIMBAL  RATE. 


00026706 

00026710 

00026720 

00026730 

00025530 

00025540 

00025550 

00025560 

00025570 

00025580 

00025590 

00025600 

00025610 

00025620 

00025630 

00025640 

00025650 

00025660 

00025670 

00025680 

00025690 

00025700 

00025720 


00025790 

00025800 

00025810 

00025820 


00025840 

00025850 

00025860 

00025870 

00025880 

00025890 

00025900 

00025910 

00025920 


OOOO  OOO  OOO  DO  o o o o oooooooo  oo  o ooooooo 


IF(ABS(C8).LT.1 .0E-6)  GO  TO  2 
ALRATE«(ALRATE+WGZ*SB)/CB-WGX 
GO  TO  4 
2 ALRATE-0. 

4 CONTINUE 
INNER  GIMBAL  RATE. 

BTRATE-BTRATE-WGY 


END  OF  JAN  28  1986  MODIFICATIONS- 


• STEP  4:  UPDATE  INNER  AND  OUTER  GIMBAL  POSITIONS.  • 


OUTER  GIMBAL  POSITION  (ALPHA  ANGLE) 
AL-AL+TSAM*ALRATE 
INNER  GIMBAL  POSITION  (BETA  ANGLE) 
BT«BT+TSAM*BTRATE 

ADD  ALPHA  AND  BETA  TO  OUTPUT  IN  DEG 
SSALP-AL*57. 29576 
SSBET-8T*57. 29576 


• STEP  6:  TRANSFORM  TARGET  ANGLES  AND  INERTIAL  ANGLE  RATES  TO  * 

• BODY  FRAME  FOR  USE  IN  DISPLAYS  AND  G AND  N.  • 


NOTE:  TRANSFORMATION  TBL  INCLUDES  GIMBAL  BIAS  ERRORS  AND  RADAR  YAW 
ANGLE  ERROR  WRT  BODY  FRAME. 

UPDATE  TARGET  INERTIAL  PITCH  RATE  IN  ORBITER  BODY  COORDINATES 
FOR  DISPLAY. 

SPRTE— 1 000 . • ( TBL(2 . 1 ) *AZRATE+TBL(2 . 2) *ELRATE) 

UPDATE  TARGET  INERTIAL  ROLL  RATE  IN  ORBITER  BODY  COORDINATES 
FOR  DISPLAY. 

SRRTE— 1000.*(TBL(1  .1  )*AZRATE+TBL(  1 ,2)*ELRATE) 

UPDATE  ANTENNA  PITCH  ANGLE  IN  ORBITER  BODY  COORDINATES  FOR  DISPLAY. 

SPANG— ASIN(TBL(1  ,3)  >*57.29576 
UPDATE  ANTENNA  IN  ORBITER  BODY  COORDINATES  FOR  DISPLAY. 

I F( TBL (2. 3) . EQ.0.0.AND.TBL(3,3) . EQ.0.0)  GO  TO  5 
SRANG— ATAN2(-TBL(2 . 3) , TBL (3 , 3) ) *57 . 29576 
GO  TO  7 

5 IF(TBL(1 .3) .GT.0.0)  SRANG— 90.0 
IF(TBL(1 .3) . LT.0.0)  SRANG-90.0 
IF(TBL(1 .3). EQ.0.0)  STOP 

RESOLVE  POSSIBLE  ANGLE  AMBIGUITIES.  VIZ..  -90 . <SPANG<90 . AND 
—180. <SRANG<1 80 . 

7 I F ( SPANG . LE . 90 . ) GO  TO  10 

SPANG—  ( 1 80 . -ABS  ( SPANG  ) ) * ( SP ANG/ABS  ( SPANG  ) ) 

SRANG* ( 1 80 . -ABS ( SRANG)  ) * ( SRANG/ ABS ( SRANG)  ) 

10  CONTINUE 

NOTE:  DEBUGGING  PRINT  STATEMENTS. 

WRITE(6,899) 

899  FORMAT (/’  ATRACK  DEBUGGGING  DATA*) 

WR I TE ( 6 . 900 ) ALRATE . BTRATE . AZRAT E . ELRATE , SRRTE . SPRTE 
WRITE(6.901 ) TBL(1 . 1 ) ,TBL(1 ,2) ,TBL(2, 1 ) .TBL(2.2) 

WR I TE ( 6 , 902 ) AZD I SC , ELD I SC . I AZDSC . I ELDSC 

900  FORMAT ( ’ ALR.BTR.AZR, ELR.SRR. SPR*’ .6F14.9) 

901  FORMAT ( ' TBL  2X2  «\4F10.4) 

902  FORMAT ( ' AZD. ELD. AD. ED  «’ .2F1 0.4. 219) 

RETURN 

END 


• INTEGER  FUNCTION  KSAT  JAN  28  1986 


00025930 

00025950 

00025960 

00025970 

00025980 


00026000 

00026010 

00026020 

00026030 

00026040 

00026050 

00026060 

00026070 

00026130 


00026140 

00026150 

00026160 

00026170 

00026180 

00026190 

00026200 

00026210 

00026220 

00026230 

00026240 

00026250 

00026260 

00026270 

00026280 

00026290 

00026300 

00026310 

00026320 

00026330 

00026340 

00026350 

00026360 

00026370 

00026380 

00026390 

00026400 

00026410 

00026420 

00026430 

00026440 

00026450 

00026460 

00026470 

00026480 

00026490 

00026500 

00026510 

00026520 
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c 

C THIS  FUNCTION  CHECKS  ATRACK  LOOP  FOR  SATURATION 
C 

INTEGER  FUNCTION  KSAT(K) 

C 

IF(K.GE.B)  THEN 

KSAT«JMIN0(K,2»*15) 

ELSE 

KSAT-JMAX0 ( K , -2  * • 1 5 ) 

END  IF 
RETURN 
END 


C 00024530 

C 00024540 

C • THIS  SUBROUTINE  IMPLEMENTS  THE  BREAK-TRACK  ALGORITHM  * 00024550 

C * 00024560 

C 00024570 

C 00024580 

SUBROUTINE  BRKTRK  00024590 

REAL  IVMAX , THRSHC , THRSHO , IVDISC , I NTT , IODISC  00024595 

COMMON  /ICNTL/IDUM2(17) ,M8KTRK,MBTSUM,MBT(8)  00024600 

COMMON  /DSCRM/DUM(3),VDISC.DUM1 ,ODISC.DUM2(3)  00024610 

DATA  I VMAX , THRSHC . THRSHO/5 1 . , 1 4 . . -1 1 ./  00024630 

C 00024640 

C 0002465 0 

C • STEP  1:  DETERMINE  STATUS  OF  L-H  DISCRETE  (FTH)  • 00024660 

C 00024670 

C 00024680 

C STEP  1-1:  OUANTIZE  THE  VELOCITY  DISCRIMINANT  TO  3/16  DB  STEPS.  00024690 

I VD I SC- 1 NTT ( VD I SC  » 5 . 333333+0 . 5 ) 00024700 

C 00024710 

C STEP  1-2:  DETERMINE  STATUS  OF  L-H  DISCRETE.  00024720 

I FTH-6  00024730 

IF(ABS( IVDISC) .GE. IVMAX)  IFTH-1  00024740 

C 00024750 

C .......................................................  00024760 

C • STEP  2:  DETERMINE  STATUS  OF  ON-TARGET  DISCRETE  (OT)  • 00024770 

C •••••  00024780 

C 00024790 

C STEP  2-1:  OUANTIZE  THE  O-DISCRIMINANT  TO  3/16  DB  STEPS.  00024800 

I OD I SC- 1 NTT ( OD I SC . 5 . 333333+0 . 5 ) 00024810 

C 00024820 

C STEP  2-2:  DETERMINE  STATUS  OF  ON-TARGET  DISCRIMINANT.  00024830 

IOT-0  00024840 

IF(IODISC.GE. THRSHC)  IOT-1  00024850 

C 00024860 

C .................................................................  00024870 

C • STEP  3:  DETERMINE  STATUS  OF  ADJACENT  ON-TARGET  DISCRETE  (AOT)  • 00024880 

C 00024890 

IAOT— 0 00024900 

IFOODISC.LE. THRSHO)  IAOT-1  00024910 

C 00024920 

C ................................................................  00024930 

C • STEP  4:  COMBINE  ABOVE  DISCRETES  TO  DETERMINE  STATUS  OF  O NO-  • 00024940 

C * TARGET®  DISCRETE  (NOTARG).  • 00024950 

C 00024960 

C DEFINITION:  THE  NO-TARGET  DISCRETE  IS  HIGH  (OR  1 ) IF  THE  DISCRETES  00024970 

C FTH.  OT,  AND  AOT  ARE  ALL  LOW  (OR  0).  00024980 

NOTARG- ( 1 - I FTH ) . ( 1 - 10T ) • ( 1 -1 AOT ) 00024990 

C 00025000 

C 00025010 

C * STEP  5:  DETERMINE  STATUS  OF  BREAK-TRACK  FLAG  (MBKTRK)  • 00025020 

C 00025030 

C DEFINITION:  BREAK-TRACK  SHALL  BE  DECLARED  IF  NOTARG— 1 FOR  AT  00025040 
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fPSZL.  PAGE  m 
0F  P00*  quality 


LEAST  5 OF  THE  MOST  RECENT  8 DATA  CYCLES. 

STEP  5-1:  UPDATE  MOVING  WINDOW-OF-8  SUM  (MBTSUM) . 

MBTSUKA*MBTSUM+  ( NOT  ARG-MBT  ( 1 ) ) 

STEP  5—2 : UPDATE  STORAGE  REGISTERS. 

DO  10  1-1,7 
10  MBT ( I )-MBT ( 1+1 ) 

M8T(8)«N0TARG 

STEP  5-3:  DETERMINE  STATUS  OF  BREAK-TRACK  FLAG  ( 1 -BREAK-TRACK ) . 
MBKTRK-MBT SUM/5 

NOTE:  DEBUGGING  PRINT  STATEMENTS. 

WR I T E ( 6 , 900 ) I OO  I SC . THRSHO , THRSHC . I VD I SC . I VMAX . MBTSUM 
900  FORMAT  ( * OD , THO , THC , VD , THV , SUM  —'.618) 

RETURN 

END 


• THIS  SUBROUTINE  CONTAINS  THE  CFAR  DETECTION  MODEL  • 


SUBROUTINE  CFAR 

COMMON  /CNTL/IPWR,  I MODE,  ITXP , I ASM , IDUMC(5)  . EDRNG  , DUMC  ( 2 ) 

COMMON  /OUTPUT/MSWF.MTF , MSF.DUM1  (7)  , IDUM1  (4) 

COMMON  /ICNTL/IDUM2(8)  ,KACCLK,MTP , IDUM3(4)  , MRNG , MSAM , MPRF 
COMMON  /TGTD AT/NT . DUM3  ( 500 ) , RO( 3 ) . ROU ( 3 ) , CGRNGE . CGVEL 
COMMON  /DETDAT/SIGMA,CGANG 

DIMENSION  RI(6) ,PW(6) ,NP(6) ,FW(3) . TPRI (3) ,TS(2) .P(41 ) 

DATA  NR  I , NSRCH/6 , 37  /,C,  ALMDA/983. 5, 0.070845/  ,R  1/2552  . ,5772.  , 

2 11544.  ,23089.  .43747.  ,57722. /.PW/0. 122.4. 15,8.3.16.6,33.2,66.4/, 

3 NP/1  ,2,4,8,16, 32/ , FW/7 .7215,3. 3090 , 0 . 2969/ , TS/0 .122,2. 075/ , 

4 TPR 1/1 43. 5. 334. 7, 3731 . 1/ 

DATA  P/6*0.0,  . 001 , .003, 2*. 004,  .008,  .012,  .015,  .043,  .053,  .076,  .107 

2 .147,  . 193,  .244,  .312,  .363,  .444,  .514.  .590,  .644,  .706,  .765,  .815,  .861 

3 .882, .918, .937, .955, .966, .976, .980, .989. .991 , .997, .996/ 
PI-3.14159265 


* STEP  1 : SET  INTERNAL  CONTROLS  BASED  UPON  SYSTEM  OPERATING  MODE  * 

STEP  1-1  : GPC  MODES  OR  AUTO/MANUAL  MODES" 

IF( I ASM. GE. 3)  GO  TO  15 

STEP  1-2:  SET  INTERNAL  CONTROLS  FOR  APPROPRIATE  MODE. 

CONTROL  SETTINGS  FOR  GPC  MODES. 

DETERMINE  RANGE  INTERVAL. 

DO  5 1-1 ,NRI 
MRNG— I 

IF(RI(I).GT. EDRNG)  GO  TO  10 
5 CONTINUE 

SET  SAMPLE  RATE 
10  MSAK^2 

DETERMINE  PRF 
MPRF— 1 

I F ( EDRNG .GE.RI(6))  MPRF-2 


00025050 

00025060 

00025070 

00025080 

00025090 

00025100 

00025110 

00025120 

00025130 

00025140 

00025150 

00025160 

00025170 

00025180 

00025190 

00025200 

00025210 

00025220 

00008520 

00008530 

00008540 

00008550 

00008560 

00008570 

00008580 

00008590 

00008600 

00008610 

00008620 

00008630 

00008640 

00008650 

00008660 

00008670 

00008680 

00008690 

,00008700 

,00008710 

00008720 

00008730 

00008740 

00008750 

00008760 

00008770 

00008780 

00008790 

00008800 

00008810 

00008820 

00008830 

00008840 

00008850 

00008860 

00008870 

00008880 

00008890 

00008900 

00008910 

00008920 

00008930 

00008940 

00008950 

00008960 

00008970 
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GO  TO  20  00008980 

C 00008990 

C CONTROL  SETTINGS  FOR  AUTO/MANUAL  MODES.  00009000 

C 00009010 

C SET  RANGE  INTERVAL.  00009020 

IS  MRNG-6  00009030 

C 00009040 

C SET  SAMPLE  RATE.  00009050 

MSAM-2  00009060 

C 00009070 

C SET  PRF.  00009080 

MPRF-1  00009090 

C 00009100 

C 00009110 

e • STEP  2:  COMPUTE  NOMINAL  SNR  AT  VIDEO  FILTER  OUTPUT  • 00009120 

C • 00009130 

20  SNR«SNRV( SIGMA, CGRNGE)  00009140 

C 00009150 

C ......................................................  00009160 

C • STEP  3:  IF  NOT  SCANNING  ADD  BEAMSHAPE  LOSS  TO  SNRV  • 00009170 

C 00009180 

C 00009190 

C STEP  3-1:  CHECK  SCAN  FLAG.  00009200 

IF(MSF.EQ.I)  GO  TO  25  00009210 

C 00009220 

C STEP  3-2:  COMPUTE  BEAMSHAPE  LOSS  BASED  UPON  C.G.  POSITION  OFF  00009230 

C BORESIGHT.  00009240 

BETA2-SPAT(CGANG)«»2  00009250 

C 00009260 

C STEP  3-3:  ADD  BEAMSHAPE  LOSS  TO  NOMINAL  SNRV.  I.E.  COMPUTE  ACTUAL  00009270 

C SNRV . 00009280 

SNR-SNR.BETA2  00009290 

C 00009300 

C ....................................................................  00009310 

C * STEP  4:  COMPUTE  NET  PROCESSOR  GAIN  AND  COMBINE  WITH  SNRV  TO  FORM  * 00009320 

C * SNRD.  • 00009330 

C 00009340 

C 00009350 

C STEP  4-1:  COMPUTE  RANGE  GATE  LOSS  (RGL)  DIFFERS  FOR  GPC  AND  00009360 

C AUTO/MANUAL  MODES.  00009370 

C 00009380 

C COMPUTE  EQUIVALENT  RANGE  OF  XMIT  PULSEWIDTH.  00009390 

25  CTD2-C*PW(MRNG)/2.  00009400 

C 00009410 

C DETERMINE  OPERATING  MODE  00009420 

IF(IASM.GE.3)  GO  TO  30  00009430 

C 00009440 

C COMPUTE  RGL  FOR  GPC  MODES.  00009450 

DEL-ABS(EDRNG-CGRNGE)/CTD2  00009460 

IF(DEL.GE. 1 .5)  RGL-0.0  00009470 

IF(DEL.GE.0.5.AND.DEL. LT. 1 .5)  RGL-. 6666666.(1 .5-OEL)»*2  00009480 

IF(DEL. LT.0.5)  RGL-. 6666666  00009490 

GO  TO  35  00009500 

C 00009510 

C COMPUTE  RGL  FOR  AUTO/MANUAL  MODES  ' 00009520 

30  DEL-ABS(CGRNGE)/CTD2  00009530 

DELI-DEL-INT(DEL)  00009540 

1F(DEL. LE. 1 .0)  RGL-DEL.DEL  00009550 

1F(DEL.GT. 1.0. AND.DEL.LT. 4. 5. AND. DELI .LT.0.5)  00009560 

2 RGL“(  1 . 0-DEL1 ) »*2  00009570 

IF(DEL.GT.1 .0. AND.DEL.LT. 4. 5. AND. DELI .GE.0.5)  00009580 

2 RGL-DEL1.DEL1  00009590 

C 00009600 

C STEP  4-2:  COMPUTE  NET  PRESUM  GAIN  SAME  FOR  ALL  PASSIVE  ANTENNA  00009610 
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STEERING  MODES. 

COMPUTE  DOPPLER  FREQUENCY  ASSOCIATED  WITH  TARGET  RADIAL  VELOCITY 
35  FDOP— 2 . *CGVEL/ALMDA*  1 . 0E-06 

COMPUTE  ARGUMENT  ASSOCIATED  WITH  TARGET  VELOCITY 
ARG-P I * FDOP* TS ( MSAM) 

COMPUTE  NET  PRESUM  GAIN 
PSG-SUM ( ARG . NP ( MRNG ) ) 

STEP  4-3:  COMPUTE  NET  DOPPLER  FILTER  GAIN  SAME  FOR  ALL  PASSIVE 

ANTENNA  STEERING  MODES. 

COMPUTE  NUMBER  OF  DOPPLER  FILTER  NEAREST  TARGET. 

MFI  L-MOD(  lNT(CGVEL/FW(MPRF)+320 . 5)  , 32) 

COMPUTE  ARGUMENT  ASSOCIATED  WITH  TARGET  DOPPLER 
ARG-PI . ( FLOAT(MFI L)/32.+FDOP*TPRI  (MPRF)  ) 

COMPUTE  NET  DOPPLER  FILTER  GAIN 
DFG-SUM(ARG,16) 

STEP  4-4:  COMPUTE  NET  PROCESSOR  GAIN. 

NPG-RGL*PSG*DFG 

STEP  4-5:  COMPUTE  SNR  AT  DOPPLER  FILTER  OUTPUT 
SNR*SNR*NPG 


* STEP  5:  DETERMINE  PROBABILITY  OF  DETECTION  BASED  UPON  SNR  • 


STEP  5-1  : DETERMINE  INDEX  TO  ACCESS  APPROPRIATE  CURVE 
IF( IASM.GE.3)  GO  TO  40 
NCRV-1 
GO  TO  45 
40  NCRV-3 

ADJUST  INDEX  FOR  SCANNING 
45  NCRV-NCRV+MSF 

STEP  5-2:  CONVERT  SNR  TO  DB. 

I F ( SNR . LE . 1 . 0E— 08 ) GO  TO  50 
SNR-10. *ALOG10(SNR) 

GO  TO  55 
50  SNR— 100. 

STEP  5-3:  SNR  OUTSIDE  (0  DB,  +20  DB)  INTERVAL"  IF  SO,  SET 

OUTCOME  APPROPRIATELY  AND  SKIP  REMAINING  STEPS. 

IF  SNRD  <0.  DB  DECLARE  A MISS. 

55  IF(SNR. LE.0. ) GO  TO  60 

IF  SNRD  > 20.  DB  DECLARE  A HIT. 

IF(SNR .GT .20. ) GO  TO  65 

STEP  5-4:  COMPUTE  INDEX  FOR  LOOKUP  TABLE  AND  FACTORS  FOR  LINEAR 
INTERPOLATION. 

SCALE— (SNR+0. ) *2 .+1 .0000001 
I SNR- I NT (SCALE) 

R EMA I N-SCA  LE-F  LOAT ( ISNR) 


00009620 

00009630 

00009640 

00009650 

00009660 

00009670 

00009680 

00009690 

00009700 

00009710 

00009720 

00009730 

00009740 

00009750 

00009760 

00009770 

00009780 

00009790 

00009800 

00009810 

00009820 

00009830 

00009840 

00009850 

00009860 

00009870 

00009880 

00009890 

00009900 

00009910 

00009920 

00009930 

00009940 

00009950 

00009960 

00009970 

00009980 

00009990 

00010000 

00010010 

00010020 

00010030 

00010040 

00010050 

00010060 

00010070 

00010080 

00010090 

00010100 

00010110 

00010120 

00010130 

00010140 

00010150 

00010160 

00010170 

00010180 

00010190 

00010200 

00010210 

00010220 

00010230 


00010240 


STEP  5-5:  DETERMINE  PD  USING  TABLE  AND  LINEAR  (IN  DB)  INTERPOLATION.  00010250 
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PROB— P( ISNR)+REMAIN* (P( ISNR+1 )— P( I SNR) ) 00010260 

C 00010270 

C 00010280 

C • STEP  6:  DETERMINE  OUTCOME  OF  DETECTION  ATTEMPT  . 00010290 

C 00010300 

C 00010310 

X-RNOU(NSRCH)  00010320 

IF(X. LE.PROB)  GO  TO  65  00010330 

C 00010340 

C **••• 00010350 

C » STEP  7:  SET  CONTROLS  BASED  UPON  OUTCOME  OF  DETECTION  ATTEMPT  • 00010360 

C 00010370 

C 00010380 

C STEP  7-1:  IF  NO  DETECTION  SET  TARGET  PRESENT  FLAG  LOW.  00010390 

60  MTP-0  00010400 

RETURN  00010410 

C 00010420 

C STEP  7-2:  IF  DETECTION  SUCCESSFUL  SET  TARGET  PRESENT  FLAG  00010430 

C HIGH  AND  INITIALIZE  ACQUISITION  CLOCK.  00010440 

65  MTP-1  00010450 

KACCLK-0  00010460 

RETURN  00010470 

END  00010480 

C 00028490 

C 00028500 

C ........................................................  0002851 0 

C .THIS  SUBROUTINE  UPDATES  ALL  RADAR  INTERNAL  CONTROLS.  * 00028520 

C ........................................................  00028530 

C 00028540 

C 00028550 

SUBROUTINE  CNTRLS  00028560 

REAL  INTT.NFIL, IRNG, IRDOT  00028565 

COMMON  /CNTL/IPWR, IMODE, IDUMC(7) ,DUMC(3)  00028570 

COMMON  /OUTPUT/IDUM0(3) , SRNG , SRDOT ,DUM2 (5) , IDUM(4)  00028580 

COMMON  /ICNTL/I 1DUM( 14) ,MRNG ,MSAM,MPRF, IDUM1 (10) .MPFOLD  00028590 

COMMON  /RTDAT/IRD0T,IRNG,RBIAS,VEST(4),MDF(5)  00028600 

DIMENSION  RI (10) ,FW(3)  00028610 

C RI (4)  CHANGED  TO  2560  FROM  2552 

DATA  R 1/1 20 . , 640 . , 1 520 . , 2560 . , 5760 ..11520.. 23040 . . 43520 . . 00028620 

2 49920. .1 .8228E+6/  00028630 

DATA  FW/7 . 7215,3. 3090 ,0 .2969/.NRI/10/  00028640 


C 

C 

C 

C IMPLEMENTATION  OF  HYSTERISIS  FOR  THE  SAMPLING  RATE 

C CHANGE  AND  FOR  THE  PRF  CHANGE  ALONG  WITH  CHANGES  IN 

C RI (RANGE  INTERVAL)  WAS  COMPLETED  FEB  6,1986  BY  M.  MEYER 


C 

c 00028650 

C 00028660 

C • STEP  1:  SET  RANGE  INTERVAL  PARAMETER  * 00028670 

C 00028680 

XRNG-IRNG.0.3125 

DO  60  1-1, NR I 00028690 

I F(XRNG . LE. RI ( I ) ) GO  TO  70  00028700 

60  CONTINUE  00028710 

70  MRNG-I  00028720 

I F ( MRNG . GT . NR I ) STOP  00028730 

C 00028740 

C 00028750 

C * STEP  2:  SET  SAMPLE  RATE  PARAMETER  • 00028760 

C 00028770 

IF(IMODE.GE.2)  GO  TO  74  00028780 

IF(MRNG.GT.9)  GO  TO  72  00028790 
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MSA&N1 
GO  TO  80 
72  MS AM-2 

GO  TO  80 

C*****  MODIFIED  FEB  6 1986  BY  M.  MEYER*******- 
74  IF(MSAM.EQ.1)THEN 

I F ( XRNG . GT . 3200 . ) THEN 
MSAWN2 
ELSE 

MSAM-1 

C*****  MODIFIED  FEB  17,1986  BY  M.  MEYER  *•••* 
C*****  GUARANTEES  THE  CORRECT  LOOP  BANDWIDTHS 
C*****  FOR  THE  HYSTERISIS  LOOP******* ******** 


C 

IF(XRNG.GT .2560)  MRNG-4 
C 



END  IF 
ELSE 

I F ( XRNG . GT . 2560 . ) THEN 
MS  AM-2 
ELSE 

MSAM-1 
END  IF 
END  IF 
C 

C 

C • STEP  3:  SET  PRF  PARAMETER  • 

C 

C STEP  3-1:  DETERMINE  IF  IN  ACTIVE  OR  PASSIVE  MODE. 

80  IF( IMODE.GE.2)  GO  TO  84 
C 

C STEP  3-2:  DETERMINE  CORRECT  PRF  FOR  GIVEN  OPERATING  MODE. 


IF(WKNG.GT.9)  GO  TO  82 
MPRF-1 
GO  TO  90 
82  MPRF-3 

GO  TO  90 

C ******  MODIFIED  FEB  6 1986  BY  M.  MEYER 
84  IF(MPRF. EQ. 1 )THEN 


I F( XRNG. GT. 49920. ) THEN 
MPRF-2 
ELSE 

MPRF-1 
END  IF 
ELSE 

I F ( XRNG . GT . 43520 . ) THEN 
MpRF— 2 

C*****  MODIFIED  FEB  17,  1986  BY  M.  MEYER*****-******* 

C**.**  GUARANTEES  THE  CORRECT  CONSTANTS  *•**••••••*•• 

C*.*.*  FOR  THE  LOW  PRF****** *•**•••*• •**••*•**•••••*• 

C 

MRNG-10 

C 

c**************************************************** 

ELSE 

MPRF-1 
END  IF 
END  IF 

90  CONTINUE 

C 

C STEP  3-3:  IF  PRF  HAS  CHANGED  FROM  PREVIOUS  DATA  CYCLE,  THEN 
C RESET  THE  5 DOPPLER  TRACKING  FILTERS  ACCORDINGLY. 


00028800 

00028810 

00028820 

00028830 


00028880 

00028890 

00028900 

00028910 

00028920 

00028930 

00028940 

00028950 

00028960 

00028970 

00028980 

00028990 

00029000 

00029010 


00029060 

00029070 

00029080 

00029090 
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I F (MPFOLD . EQ . MPRF)  GO  TO  96  00029100 

NFIL*INTT( (— SRDOT/FW(MPRF) )+0 . 5)+31998 . 00029110 

XX-AMOD(NFlL,32. ) 00029115 

MDF(1)-INT(XX)  00029120 

DO  95  1*1 ,4  00029130 

95  MDF(l+1)-MOD(MOF(1)+I ,32)  00029140 

96  MPFOLD-MPRF  00029150 

C 00029160 

C NOTE:  DEBUGGING  PRINT  STATEMENTS.  00029170 

C WRITE(6,999)  MPRF. MPFOLD, MDF(1 ) 00029180 

999  FORMAT ( ' MPRF, MPFOLD, MDF1  -’,318)  00029190 

RETURN  00029200 

END  00029210 

C 00006680 

C 00006690 

C ................. «... 

C • THIS  SUBROUTINE  PERFORMS  THE  TARGET  DETECTION  FUNCTION  FOR  ACTIVE  .00006710 

C » AND  PASSIVE  MODES  AND  ALL  ANTENNA  STEERING  MODES.  .00006720 

C 00006730 

C 00006740 

C 00006750 

SUBROUTINE  DETECT  00006760 

COMMON  /CNTL/IPWR,IM0DE.ITXP,IASM.IDUMC(5).EDRNG.DUMC(2)  00006770 

COMMON  /ICNTL/IDUM2(9) ,MTP , 1DUM3( 17)  00006780 

COMMON  /SYSDAT/DUM2 (12), TGTS I G , GPS , GAS  00006790 

COMMON  /TGTDAT/NT . DUM3 ( 500 ) . RO ( 3 ) . ROU ( 3 ) . CGRNGE . CGVE  L 00006800 

COKMON  /D ETDAT /S I GMA , CGANG  00006810 

C 00006820 

C 00006830 

C * STEP  1 : COMPUTE  TARGET  PARAMETERS  WRT  RADAR  • 00006840 

C 00006850 

C 00006860 

C STEP  1-1:  TRANSFORM  TARGET  C.G.  POSITION  AND  VELOCITY  TO  LOS  FRAME.  00006870 

CALL  TRNSFM  00006880 

CALL  PVTRAN  00006890 

C 00006900 

C STEP  1-2:  COMPUTE  TARGET  C.G.  ANGLE  OFF-BORESIGHT  (NON-SCANNING).  00006910 

CCCCCCCCCCCCCCCCCCCCCCC  MOD  MAR  24  1983  CCCCCCCCCCCCCCCCCCCCCC 

CGANG- ACOS ( —ROU ( 3 ) ) 00006920 

C 00006930 

C STEP  1-3:  DETERMINE  TARGET  CROSS-SECTION.  00006940 

SIGMA-TGTSIG  ' 00006950 

C 00006960 

C ....................................................  00006970 

C * STEP  2:  PRELIMINARY  DETECTION  MODE  DETERMINATION  • 00006980 

C •••••••*•••••••••••••••••••• 00006990 

C 00007000 

C STEP  2-1:  DETERMINE  WHETHER  ACTIVE  OR  PASSIVE.  00007010 

IF(IMODE.EQ.I)  GO  TO  5 00007020 

C 00007030 

C STEP  2-2:  GPC  MODES  OR  AUTO/MANUAL  MODES"  00007040 

1F(IASM.GE.3)  GO  TO  10  00007050 

GO  TO  15  00007060 

C 00007070 

C .........................................  00007080 

C • STEP  3:  ACTIVE  MODE  DETECTION  PROCESS  * 00007090 

C ...4. ......................... ...........  00007100 

C 00007110 

5 CALL  SINGLE  00007120 

RETURN  00007130 

C 00007140 

C 00007150 

C • STEP  4:  PASSIVE  AUTO/MANUAL  MODE  DETECTION  PROCESS  • 00007160 

C 00007170 
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o o ooo  ooooooooo  no  ooo  oooooo  ooo  ooo 


STEP  4-1:  CHECK  SHORT  RANGE  FIRST 
MODEL. 

10  CALL  SINGLE 


CALL  SINGLE-HIT  DETECTION 


STEP  4-2:  CHECK  FOR  SUCCESS  IN  SINGLE-HIT  DETECTION 
CESSFUL,  THEN  TRY  LONG  RANGE  SEARCH. 
IF(MTP.EQ.0)  CALL  CFAR 
RETURN 


• STEP  5:  PASSIVE  GPC  MODES  DETECTION  PROCESS  * 


STEP  5-1:  CHECK  DESIGNATED  RANGE. 
15  I F ( EDRNG . GT . 2552 . ) GO  TO  20 


IF  NOT  SUC 


STEP  5-2:  IF  DESIGNATED  RANGE  < 0.42  NM 
DETECTION  MODEL. 

CALL  SINGLE 
RETURN 

STEP  5-3:  IF  DESIGNATED  RANGE  > 0.42  NM 
20  CALL  CFAR 
RETURN 
END 


USE  SINGLE-HIT 


USE  CFAR  DETECTION  MODEL 


• THIS  SUBROUTINE  ADDS  THE  EQUIVALENT  NOISE  TO  THE  ANGLE,  RANGE, 

• VELOCITY  AND  ON-TARGET  DISCRIMINANT  COMPONENTS  AND  THEN  COM- 

• PUTES  THE  ANGLE,  RANGE.  VELOCITY,  AND  ON-TARGET  DISCRIMINANTS. 


SUBROUTINE  DISCRM 
REAL  LATE, MEAN 

COMMON  /OUTPUT/MSWF  .MTF.MSF,  SRNG , SRDOT , SPANG , SRANG , SPRTE , 

SRRTE , SRSS , MADVF , MRDVF , MARDVF , MRRDVF 
COMMON  /CNTL/IPWR,  IMODE,  ITXP,  I ASM,  IDUMC(5)  ,DUMC(3) 

C0M40N  /1CNTL/I3DUM(  1 4)  , MRNG , MS  AM , MPR  F , I DUM4  (10) 

COUPON  /SYSDAT/T  SAM , DR  ( 3 ) , CP , SP , PS  I , PSB I AS , A LB  I AS , BTB I AS , GP , G A . 
DUMS(3) 

COUPON  /TGTDAT /NT , DUM5 ( 506 ) .CGRNGE.CGVEL 

COMMON  /DSCRM/A2DISC , ELDISC,RDISC,VDISC,RRTE,ODISC,SIGBR1  , SNRD , 
SIGDB 

COfcAION  /SIGDAT/SPAZ , SMA2 , SPEL , SMEL  .EARLY , LATE , DF1  , DF5 . 
DF2.DF4.SIGBAR 

COUPON  /NO I S E/NS 1 ,NS2 ,NN( 10) , GAUSS ( 320 ) 

COMMON  / AGCDAT / AGCO , AGCODB , SNRDT . SNRDTD 

DIMENSION  NFREQ(2) .PD1A(2),PD1R(2),PDIV(2),PS(10,2),BN(2),PT(3) 
, TDC(3) 

DIMENSION  QNV(2) 


00007180 
00007190 
00007200 
00007210 
00007220 
00007230 
00007240 
00007250 
00007260 
00007270 
00007280 
00007290 
00007300 
00007310 
00007320 
00007330 
00007340 
00007350 
00007360 
00007370 
00007380 
00007390 
. 00007400 
00007410 
00007420 
00007430 
00022710 
00022720 
00022730 
00022740 
00022750 
00022760 
00022770 
00022780 
00022790 
00022800 
00022805 


00022810 

00022820 

00022830 

00022840 

00022850 

00022860 

00022870 

00022880 

00022890 

00022900 

00022910 

00022920 


-PS  AND  QNV  CONSTANT  CHANGES  FEB  17,1986  BY  M.  MEYER- 


DATA  NFREQ/1 , 5/ . BN/9772 .4,616.6/ 

DATA  PS/9 *4. ,2. ,5*4. ,2. ,4. ,8. ,8. ,16./ 

2 , PD  I A , PD  I R , PD  I V/ 1 .4142,3.1623,2.0,4.4721 .2.8284,6.3246/. 

3 PT/42658. .3125. ,195.3/ 

DATA  ONV/. 00067, .011/ 

DATA  TDC/0. 051 221 18,0. 1195161 ,0.2561557/ 

NOTE:  DEBUGGING  PRINT  STATEMENTS. 


00022940 


00022970 

00022980 
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C WRITE(6,900)  SPAZ.SMAZ.SPEL.SMEL, EARLY, LATE  00022990 

C WRITE(6,901)  DF1 ,DF5,DF2,Dr4,SIGBAR  00023000 

900  FORMAT ('  SP2 ,SM2 ,SPL , SML , E, L -’.6F10.2)  00023010 

901  FORMAT( ’ DF1 ,DF5,DF2,DF4.SIG  -’ .5F10.2)  00023020 

C 00023030 

C 00023040 

C » STEP  1:  COMPUTE  CONSTANT  USED  IN  SIGNAL  SCALING  AND  COMPUTATION  • 00023050 

C » OF  NOISE  STATISTICS.  • 00023060 

C 00023070 

C 

C 

TCON-(TSAM/TDC(MPRF)).. .5 

C 0002308 0 

C STEP  1-1:  COMPUTE  CONSTANT  (NOTE:  IT  IS  DIFFERENT  FOR  ACTIVE  AND  00023090 

C PASSIVE  MODES).  00023100 

IF(IMODE. EQ.2)  GO  TO  5 00023120 

C NOTE:  THIS  IS  THE  CONSTANT  USED  IN  ACTIVE  MODE.  00023130 

YY-GA*PS(MRNG, IMODE)/(CGRNGE..2*BN(MSAM))  00023140 

S1-YY/FLOAT (NFREQ( IMODE) ) 00023150 

GO  TO  10  00023160 

C NOTE:  THIS  IS  THE  CONSTANT  USED  IN  PASSIVE  MODE.  00023170 


CCCCCCCCCCCCCCCCCCCCCCCCCC  MODS  2-1 5-83  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C 

5 CONTINUE 

PTFIX-PT(ITXP) 

lF(SRNG.LT.640.)PTFlX-4.2 

ISTS7-0 

IF(lSTS7.EQ.1)PTFIX-4.2 


C 

YY-GP*PS(MRNG, IMODE) »PTFIX  /(CGRNGE»*4*BN(MSAM)) 

S 1 - YY/ F LOAT ( N FR EQ ( I MODE ) ) 

C 

C STEP  1-2:  COMPUTE  PEAK  SIGNAL  POWER  TO  AVERAGE  THERMAL  NOISE  POWER 
C AT  DOPPLER  FILTER  OUTPUT. 

10  SNRDT-YY.SIG8AR 
C WRITE(6,221 )YY,SIGBAR 

221  FORMAT ( 'YY.S I GBAR  -’ .2F14.5) 

SNRDTD-10.»ALOG10(SNRDT) 

SIGDB-10. *ALOG10(SIGBAR) 

SIGBR1-SIGBAR 

C222  WRITE(6 ,990)  SNRDTD.SIGDB 

990  FORMAT ( ’ SNRDTD.SIGDB  «’ ,2F14. 2) 

C 

C STEP  1-3:  COMPUTE  PEAK  SIGNAL  POWER  TO  TOTAL  (THERMAL  PLUS 
C QUANTIZATION)  NOISE  POWER  AT  THE  DOPPLER  FILTER  OUTPUT. 

CALL  SATNSE(SNF) 

XX-SNF.AGCO 

XX-XX/ ( XX+QNV ( MSAM) ) 

SI-SI. XX 
YY-YY.XX 
SNRD-YY.S  I GBAR 
SNRD-10 . *ALOG10(SNRD) 

C 

C STEP  1-4:  UPDATE  NOISE  SEQUENCE. 

NN(1)-MOD(NN(1)+1 ,320)+1 
DO  15  1-2,10 

15  NN(I )-MOD(NN( 1—1 )+29 ,320)+1 
ID1-NN( 1 ) 

GAUSS( ID1 )— ANORM(NS1 ,NS2) 

C 

C 

C » STEP  2:  COMPUTE  ANGLE  DISCRIMINANT  (INCLUDES  NOISE)  * 

C ...» 

c 


00023180 

00023190 

00023200 

00023210 

00023220 

00023230 


00023240 

00023250 

00023260 

00023262 

00023264 

00023270 

00023280 

00023290 

00023292 

00023294 

00023300 

00023310 

00023320 

00023330 

00023340 

00023350 

00023360 

00023370 

00023380 

00023390 

00023400 

00023410 

00023420 

00023430 

00023440 

00023450 
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OOO  OOOOOO  OO  OOO  ODD  OOOOOOOO  OO  OOO  OOO  OO  OOO 


00023460 

00023470 


STEP  2-1:  CHECK  ANTENNA  STEERING  MODE  SKIP  STEP  2 IF  IN 

GPC-DES  OR  MANUAL. 

ICCCCCCCCCCCCCCCCCC  MOD  FEB  16  1983  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
I F ( I ASM . EQ . 2 . OR . I ASM . EQ . 4)  GO  TO  20 

STEP  2—2 : COMPUTE  ANGLE  DISCRIMINANT  COMPONENT  SCALE  FACTOR. 
ASCALE-S1 *PDIA( IMODE) 

STEP  2-3:  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  ANGLE 
DISCRIMINANT  COMPONENTS. 

MEAN-PDIA( IMODE) 

VARPAZ*SQRT ( 2 . • S 1 *SPAZ+1 . ) 

VARMAZ«SQRT ( 2 . • S 1 *SMAZ+1 . ) 

VARPEL-SQRT(2. *S1 *SPEL+1 . ) 

VARMEL-SORT(2. *S1 *SMEL+1 . ) 

STEP  2-4:  ADD  EQUIVALENT  NOISE  TO  ANGLE  DISCRIMINANT  COMPONENT 
SIGNALS. 

ID6-NN(6) 

SPAZ-ABS  ( ASCALE*  SP  AZ+MEAN+VARPAZ  *GAUSS  ( ID1 ) ) 

SMAZ-ABS  ( ASCALE*  SMAZ+MEAN+VARMAZ  * GAUSS  ( ID6)  ) 

ID2-NN(2) 

ID7-NN(7) 

SPEL»ABS(ASCALE*SPEL+MEAN+VARPEL*GAUSS(  ID2)  ) 
SMEL«ABS(ASCALE*SMEL+MEAN+VARMEL*GAUSS(  ID7)  ) 

STEP  2-5:  CONFUTE  AZ  AND  EL  DISCRIMINANT  COMPONENTS. 

AZD I S0 1 0 . * A LOG  1 0 ( SP  AZ/SMAZ ) 

ELD  I SOI  0 . • AL0G1 0(SPEL/SMEL) 

AZDISO0. 

ELDISO0. 


• STEP  3:  COMPUTE  RANGE  DISCRIMINANT  (INCLUDES  NOISE)  * 


STEP  3-1:  COMPUTE  RANGE  DISCRIMINANT  COMPONENT  SCALE  FACTOR. 

20  RSCALE-S1 *PDIR( IMODE) 

STEP  3-2:  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  RANGE 
DISCRIMINANT. 

MEAN-PDIR( IMODE) 

VARELY-SQRT(2.  *S1  *EARLY+1 . )*TCON 
VARLTE«SQRT(2.*S1*LATE+1  . )*TCON 

STEP  3-3:  ADD  EQUIVALENT  NOISE  TO  RANGE  DISCRIMINANT  COMPONENT 
SIGNALS. 

ID3-NN(3) 

I D8*NN ( 8 ) 

EAR  LY-ABS  ( RSCALE*  EAR  LY+MEAN+VAR  ELY  * GAUSS  ( I D3  ) ) 

LATE-ABS(  RSCALE*  LATE+MEAN+VAR LT E *GAUSS ( I D8)  ) 

STEP  3-4:  COMPUTE  RANGE  DISCRIMINANT. 

RD I SOI  0 . *ALOG1 0(  LATE/EARLY) 


• STEP  4-  COMPUTE  VELOCITY  DISCRIMINANT  (INCLUDES  NOISE)  * 


STEP  4-1:  COMPUTE  VELOCITY  DISCRIMINANT  COMPONENT  SCALE  FACTOR. 
VSCALE*S1 *PDIV( IMODE) 

STEP  4-2:  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  VELOCITY 
DISCRIMINANT  COMPONENTS. 


00023480 

00023490 

00023500 

00023510 

00023520 

00023530 

00023540 

00023550 

00023560 

00023570 

00023580 

00023590 

00023600 

00023610 

00023620 

00023630 

00023640 

00023650 

00023660 

00023670 

00023680 

00023690 

00023700 

00023710 

00023720 

00023730 


00023740 

00023750 

00023760 

00023770 

00023780 

00023790 

00023800 

00023810 

00023820 

00023830 

00023840 

00023850 

00023860 

00023870 

00023880 

00023890 

00023900 

00023910 

00023920 

00023930 

00023940 

00023950 

00023960 

00023970 

00023980 

00023990 

00024000 

00024010 

00024020 

00024030 

00024040 

00024050 

00024060 
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MEAN*PDIV(  I MODE) 

VARDF2-SORT(2.*S1*DF2+1  .) 

VARDF4-S0RT(2.*S1*DF4+1  .) 

C 

C STEP  4—3 : ADD  EQUIVALENT  NOISE  TO  VELOCITY  DISCRIMINANT 
C COMPONENT  SIGNALS. 

ID4*NN(4) 

I D9*NN ( 9 ) 

DF2»ABS(VSCALE*DF2+MEAN+VARDF2*GAUSS( ID4) ) 

DF4*ABS (VSCALE*DF4+MEAN+VARDF4* GAUSS ( ID9) ) 

C 

C STEP  4-4:  COMPUTE  VELOCITY  DISCRIMINANT. 

VDISO10.  *ALOG10(DF2/DF4) 

C 

C M**M..MM*M.MM*tM*MM*M***.M»***MMM*MM*M*M.M 

C • STEP  5:  COMPUTE  ON-TARGET  DISCRIMINANT  USED  FOR  BREAK-  * 

C • TRACK  AND  VELOCITY  DATA  INVALID  DETERMINATION  * 

c 

C STEP  5-1:  COMPUTE  STATISTICS  OF  ADDITIVE  NOISE  FOR  OUTER  DOPPLER 
C FILTER  SIGNALS. 

VARDF1*SQRT (2 . *S1 *DF1+1 . ) 

VARDF5*SQRT(2.*S1*DF5+1 . ) 

C 

C STEP  5-2:  ADD  EQUIVALENT  NOISE  TO  OUTER  DOPPLER  FILTER  SIGNALS. 
ID5-NN(5) 

ID10*NN(10) 

DF1«ABS(VSCALE*DF1+MEAN+VARDF1 *GAUSS( ID5) ) 
DF5-ABS(VSCALE*DF5+MEAN+VARDF5*GAUSS( ID10) ) 

C 

C STEP  5-3:  COMPUTE  ON-TARGET  DISCRIMINANT. 

C NOTE:  THE  FACTOR  OF  SORT(2.)  IS  DUE  TO  THE  METHOD  OF 

C NORMALIZATION  OF  DISCRIMINANT  COMPONENTS. 

ODISC-1 0 . *ALOG10( ( EARLY+LATE) • SORT (2. )/(DF1+DF5) ) 

C 

C NOTE:  DEBUGGING  PRINT  STATEMENTS. 

C WRITE(6 . 902)  AZDISC , ELDISC .RDISC . VDISC .ODISC 

C WRITE(6 . 903)  SNRD, SIGDB . SIGBAR 

C WRITE(6 ,904)  SPAZ , SMAZ , SPEL , SMEL , EARLY , LATE 

C WRITE(6 , 905)  DF1 .DF5.DF2.DF4 .SIGBAR 

902  FORMAT (/*  AZD. ELD,RD,VDtOD  •’ ,5F14.6) 

903  FORMAT ( * SNRD. SIGDB. SIGBAR  «’ ,3F14. 6) 

904  FORMAT ( ' SPZ.SMZ.SPL.SML. E. L+NOISE  .6F10.2) 

905  FORMAT ( * DF1 .DF5.DF2.DF4.SIG+N0ISE  -* .5F10.2) 

RETURN 

END 

C 

C 

C • THIS  FUNCTION  CONFUTES  THE  DOPPLER  FILTER  OUTPUT  AMPLITUDE  * 

C * AND  PHASE  FOR  AN  INPUT  SIGNAL  OF  FREQUENCY  X.  • 

c 

c 

COMPLEX  FUNCTION  DOPFIL(X) 

COMPLEX  DENOM, NUMER 
DENOM-1  -CEXP(Clyff>U(0.  .X)) 

DENOM-16.*DENOM 

C CHECK  FOR  DENOMINATOR  EQUAL  TO  ZERO. 

XX-CABS(DENOM) 

1F(XX.GT . 1 .0E— 06)  GO  TO  10 
DOPFIL-0  .0.0.0) 

RETURN 

10  NUMER*  1 .-CEXP(CMPLX(0.  , 1 6 . *X)  ) 


00024070 

00024080 

00024090 

00024100 

00024110 

00024120 

00024130 

00024140 

00024150 

00024160 

00024170 

00024180 

00024190 

00024200 

00024210 

00024220 

00024230 

00024240 

00024250 

00024260 

00024270 

00024280 

00024290 

00024300 

00024310 

00024320 

00024330 

00024340 

00024350 

00024360 

00024370 

00024380 

00024390 

00024400 

00024410 

00024420 

00024430 

00024440 

00024450 

00024460 

00024470 

00024480 

00024490 

00024500 

00024510 

00024520 

00031150 

00031160 

00031170 

00031180 

00031190 

00031200 

00031210 

00031220 

00031230 

00031240 

00031250 

00031260 

00031270 

00031280 

00031290 

00031300 

00031310 

00031320 
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DOPFI L-NUMER/DENOM 

RETURN 

END 


THIS  FUNCTION  GIVES  THE  ANTENNA  DIFFERENCE  PATTERN  WEIGTHING  OF 
THE  RADAR  SIGNAL  FOR  THE  GIVEN  ANGLE( IN  RADIANS)  OFF  BORESIGHT. 
NOTE:  THIS  PATTERN  IS  THE  DERIVATIVE  OF  THE  SUM  PATTERN 


1< 


0 


FUNCTION  DPAT(X) 

IF(ABS(X) .GT. 1 . E— 4)  GO  TO 
DPAT— 0.6228 *X 
RETURN 
Y-93.80*X 

DPAT-1 . 1 465* (Y*COS(Y)-SIN(Y)  )/(  Y*Y) 

RETURN 

END 


00031330 
00031340 
00031350 
00030650 
00030660 
00030670 
00030680 
00030690 
00030700 
00030710 
00030720 
00030730 
00030740 
00030750 
00030760 
00030770 
00030780 
00030790 
00030800 
00030810 
00003000 
00003010 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003020 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003030 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003040 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003050 

$$00003060 
$$00003070 

PREPARE  TO  RECEIVE  THE  PRODUCT  YOU'VE  BEEN  WAITING  FOR  . . . $$00003080 

$$00003090 

THE  ACTUAL  SES  SPACE  SHUTTLE  RADAR  SIMULATION  000  $$00003100 

$$00003110 
$$00003120 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003130 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003140 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003150 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$00003160 

00003170 
00003180 
00003190 
00003200 
00003210 
00003220 
00003230 
00003240 
00003250 
00003260 
00003270 
00003280 
00003290 
00003300 
00003310 
00003320 
00003330 
00003340 
00003350 
00003360 
00003370 
00003380 
00003390 


$$ 

$$ 

$$ 

$$ 

$$ 

$$ 

$$ 


• EXECUTIVE  PROGRAM:  INTERFACE  WITH  PARENT  SIMULATION  * 


SUBROUTINE  EXEC 

COMMON  /CNTL/IPWR,  IMODE.  ITXP.IASM,  IDUMC(5)  ,DUMC(3) 

COMMON  /OUTPUT /MSWF  .MTF . MSF , DUM(7)  , IDUM2(4) 

COMMON  / 1 CNT L/ 1 OLDPW , 1 0 LDMD , 1 0 LDSM . I SHOLD . KMSCLK , KWMUP , IDUM1  (3)  , 
MTP,  IDUM5(  17) 

DATA  DAT I NT/1.0/ 

KWMUP- 1 


• STEP  0:  INITIALIZE  ALL  TARGET  AND  SYSTEM  DATA  • 

IF(DATINT.NE.1 .0)  GO  TO  1 
CALL  SETIT 
CALL  DATA 
CALL  SYS I NT 
IOLDPW— IPWR 


00003400 

00003410 

00003420 
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DAT  I NT-0.0  00003430 

1 1 1.1  00003440 

IF(Il.EQ.I)  GO  TO  30  00003450 

C 00003460 

C 00003470 

C • STEP  1:  CHECK  SYSTEM  POWER  SWITCH  * 00003480 

C 00003490 

IF(IPWR.GT.I)  GO  TO  5 00003500 

C IF  POWER  OFF  INITIALIZE  ALL  SYSTEM  FLAGS  AND  CLOCKS.  00003510 

KMSCLK-0  00003520 

CALL  SYS I NT  00003530 

RETURN  00003540 

C IF  POWER  ON  UPDATE  MASTER  CLOCK  AND  DETERMINE  OPERATING  MODE.  00003550 

5 KMSCLK-KMSCLK+1  00003560 

C 00003570 

C 00003580 

C • STEP  2:  CHECK  SYSTEM  MODE  SWITCH  • 00003590 

C 00003600 

I F( IMOOE.LT. 3)  GO  TO  7 00003610 

C IF  SYSTEM  IN  COKiW( I MODE-3)  INITIALIZE  ALL  SYSTEM  FLAGS.  0000362 0 

CALL  SYSINT  00003630 

RETURN  00003640 

C IF  SYSTEM  IN  RADAR  MODE  CHECK  FOR  CHANGE  IN  MODE  (I.E.  ACTIVE-TO  00003650 

C -PASSIVE  OR  PASSIVE-TO-ACTIVE) . 00003660 

7 IF(IMODE.EQ. IOLDMD)  GO  TO  10  00003670 

C IF  RADAR  MODE  CHANGE  RESET  SYSTEM  TO  SEARCH.  00003680 

CALL  SYSINT  0000369 0 

C UPDATE  STATUS  OF  IOLDMD.  00003700 

10  IOLDMD— IMODE  00003710 

C 00003720 

C .............................................  00003730 

C • STEP  3:  DETERMINE  WHETHER  SYSTEM  IN  STANDBY  * 00003740 

C 00003750 

I F(  1PWR .GT .2)  GO  TO  15  00003760 

CALL  SYSINT  00003770 

RETURN  00003780 

C 00003790 

C ..................................................  00003800 

C • STEP  4:  DETERMINE  WHETHER  WARMUP  PERIOD  EXCEEDED  • 00003810 

C 00003820 

15  IF(KMSCLK.GT.KWMUP)  GO  TO  20  00003830 

C IF  NOT  EXCEEDED  INITIALIZE  ALL  SYSTEM  FLAGS  AND  RETURN.  00003840 

CALL  SYSINT  00003850 

RETURN  00003860 

C IF  EXCEEDED  CONTINUE  SYSTEM  OPERATING  MODE  DETERMINATION.  00003870 

C 00003880 

C 0000389 0 

C » STEP  5:  DETERMINE  IF  THERE  HAS  BEEN  AN  ANTENNA  STEERING  MOOE  * 00003900 

C » CHANGE  * 00003910 

C 00003920 

20  IF(IASM.EQ. IOLDSM)  GO  TO  25  00003930 

C IF  CHANGE  HAS  OCCURRED  RESET  ALL  FLAGS  AND  GO  TO  NEW  MODE.  00003940 

CALL  SYSINT  00003950 

25  IOLDSM  I ASM  00003960 

C 00003970 

C ..............................................................  00003980 

C • STEP  5:  DETERMINE  WHETHER  SYSTEM  IS  IN  SEARCH  AND  ACQUISITION  • 00003990 

C » OR  TRACK  MODE.  • 00004000 

C ..............................................................  00004010 

IF(MTF. EO. 1 .OR.MTP. EQ. 1 ) GO  TO  30  00004020 

C IF  TRACK  FLAG  DOWN  GO  TO  SEARCH  MODE.  00004030 

CALL  SEARCH  00004040 

RETURN  00004050 

C IF  TRACK  FLAG  IS  UP  GO  TO  TRACK  MODE.  00004060 
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CALL  TRACK 

RETURN 

END 


•THIS  SUBROUTINE  GENERATES  A (3X3)  MATRIX  TGA  THAT  PRODUCES  • 
• A ROTATION  OF  GA  RADIANS  ABOUT  THE  Y-AXIS.  * 


SUBROUTINE  GAMMA(TGA.GA) 
DIMENSION  TGA(3 ,3) 

DO  10  1-1.3 
DO  10  J-1,3 
10  TGA( I , J)— 0. 0 
TGA(2,2)-1 .0 
TGA( 1 , 1 )-COS(GA) 

TGA(  1 ,3)— SIN(GA) 
TGA(3.3)-TGA(1 .1) 

TGA(3 . 1 )— -TGA(  1 .3) 

RETURN 

END 


• THIS  FUNCTION  CHECKS  FOR  NEGATIVE  ARGUMENT  FOR  I NT  FUNCTION  • 

• AND  CORRECTS  THE  QUANTIZATION  PROCEDURE.  • 


REAL  FUNCTION  INTT(Y) 
X-Y 

IF(X.LT.0.0)  X-X-1.0 
INTT-AINT(X) 

RETURN 

END 


• THIS  SUBROUTINE  MULTIPLIES  THE  (3X3)  MATRIX  A AND  THE  (3X1)  * 

• VECTOR  B TO  OBTAIN  THE  (3X1)  VECTOR  C.  • 


SUBROUTINE  MULT31 (A.B.C) 
DIMENSION  A(3,3).0(3).C(3) 
DO  10  1-1.3 
C( I)-0.0 
DO  10  J-1,3 

0 C(I)  - C( I )+A( I , J)*B( J) 
RETURN 
END 


• THIS  SUBROUTINE  MULTIPLIES  THE  (3X3)  MATRIX  A AND  THE  (3X3)  * 

• MATRIX  B TO  OBTAIN  THE  (3X3)  MATRIX  C.  • 


SUBROUTINE  MULT33(A.B,C) 
DIMENSION  A(3 ,3) , B(3.3),  C(3,3) 


DO  10  1-1,3 


00004070 

00004080 

00004090 

00032440 

00032450 

00032460 

00032470 

00032480 

00032490 

00032500 

00032510 

00032520 

00032530 

00032540 

00032550 

00032560 

00032570 

00032580 

00032590 

00032600 

00032610 

00032620 

00032630 

00031360 

00031370 

00031380 

00031390 

00031400 

00031410 

00031420 

00031430 

00031440 

00031450 

00031460 

00031470 

00031480 

00031490 

00031880 

00031890 

00031900 

00031910 

00031920 

00031930 

00031940 

00031950 

00031960 

00031970 

00031980 

00031990 

00032000 

00032010 

00032020 

00032030 

00031710 

00031720 

00031730 

00031740 

00031750 

00031760 

00031770 

00031780 

00031790 

00031800 

00031810 
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DO  10  J-1,3  00031820 

C(l,J)-0.0  00031830 

DO  10  K-1,3  00031840 

10  C(I,J)  - C(I,J)+A(I,K)*B(K.J)  00031850 

RETURN  00031860 

END  00031870 

C 00032240 

C 00032250 

C 00032260 

C • THIS  SUBROUTINE  GENERATES  A (3X3)  MATRIX  TPH  THAT  PRODUCES  • 00032270 

C • A ROTATION  OF  PH  RADIANS  ABOUT  THE  Z-AXIS.  • 00032280 

C 00032290 

C 00032300 

C 00032310 

SUBROUTINE  PHI (TPH. PH)  00032320 

DIMENSION  TPH(3 ,3)  00032330 

DO  10  1-1,3  00032340 

DO  10  J-1,3  00032350 

10  TPH(I , J)— 0.0  00032360 

TPH(3,3)-1 . 00032370 

TPH( 1 , 1 )-COS(PH)  00032380 

TPH ( 2 , 2 )-TPH (1,1)  00032390 

TPH(1 ,2)-SIN(PH)  00032400 

TPH(2 , 1 )— TPH(  1,2)  00032410 

RETURN  00032420 

END  00032430 

C 00031500 

C 00031510 

C 00031520 

C • THIS  SUBROUTINE  GENERATES  A (3X3)  MATRIX  TPHD  THAT  REPRESENTS  • 00031530 

C • THE  DERIVATIVE  OF  A MATRIX  THAT  REPRESENTS  UNIFORM  ROTATION  * 00031540 

C • ABOUT  THE  Z-AXIS.  THE  ROTATION  SPEED  IS  W AND  THE  ANGLE  AT  * 00031550 

C * WHICH  THE  DERIV.  IS  TAKEN  IS  PH.  • 00031560 

C 00031570 

C 00031580 

C 00031590 

SUBROUTINE  PHID(TPHD.PH.W)  00031600 

DIMENSION  TPHD(3 ,3)  00031610 

DO  10  1-1,3  00031620 

TPHD(3, I)-0.0  00031630 

10  TPHD(I .3)— 0.0  00031640 

TPHD( 1 , 1 )— — W.SIN(PH)  00031650 

TPHD  (2, 2)— TPHD ( 1,1)  00031660 

TPHD( 1 , 2)-W*COS(PH)  00031 670 

TPHD(2, 1 )— TPHD(1 ,2)  00031680 

RETURN  00031690 

END  00031700 

C 00010980 

C 00010990 

C 00011000 

C • THIS  SUBROUTINE  UPDATES  THE  POSITION  OF  THE  ANTENNA  GIMBALS  • 00011010 

C 00011020 

C 00011030 

C 00011040 

SUBROUTINE  POINT  00011050 

COkMON  /OUTPUT/IDUM1 (3) ,DUM4(2) ,SPANG,SRANG,DUM5(3) , IDUM2(4)  00011060 

COkMON  /SYSDAT/TS ,DUM(3) ,CG,SG,DUM2(9)  00011070 

COMMON  /ATDAT/DUM1(4),SALRTE,SBTRTE,DUM3(2).AL.BT.PREF,RREF,  00011080 

2 AREF.BREF  00011090 

DATA  AK/2.0/.TAU/1. 414/, PI/3. 141592653/  00011100 

C 00011110 

C 00011120 

C • STEP  1:  PRELIMINARY  COMPUTATIONS  » 00011130 

C ....................................  00011140 


B-38 


CR-COS(-RREF)  000111 50 

SR-SIN(-RREF)  00011160 

CP-COS(-PREF)  00011170 

SP-SIN(-PREF)  00011180 

C 00011190 

C * 00011200 

C • STEP  2:  COMPUTE  ANTENNA  REFERENCE  ROLL/PITCH  ANGLES  IN  THE  * 00011210 

C • RADAR  FRAME.  • 00011220 

C *•«•*•• 00011230 

XX-CG*SP-SG*SR*CP  00011240 

YY«SG*SP4CG*SR*CP  0001 1 250 

ZZ-CR*CP  00011260 

I F( YY . EQ . 0 . 0 . AND . ZZ . EO . 0 . 0)  GO  TO  1 00011270 

AREF-ATAN2(YY.ZZ)  00011280 

GO  TO  2 00011290 

1 IF(XX.GT.0.0)  AREF— PI/2.  00011300 

IF(XX. LT.0.0)  AREF-PI/2.  00011310 

2 BREF-ASIN(XX)  00011320 

C 00011330 

C 00011340 

C * STEP  3:  UPDATE  OUTER  (ALPHA)  GIMBAL  RATE  AND  POSITION  • 00011350 

C .........................................................  00011360 

C COMPUTE  ALPHA  LOOP  POSITION  ERROR.  00011370 

ERRA-AREF-AL  00011380 

C UPDATE  SMOOTHED  ALPHA  GIMBAL  RATE  ESTIMATE.  00011390 

SALRTE»SALRTE+TS*AK»ERRA  00011400 

C UPDATE  ALPHA  GIMBAL  RATE.  00011410 

A LRAT  E*AK • T AU  * ERRA+SA  LRT  E 00011420 

C CHECK  FOR  ALPHA  GIMBAL  RATE  LIMITING.  00011430 

IF(ABS(ALRATE) .GT .56. ) ALRATE-56. *ALRATE/ABS(ALRATE)  00011440 

C UPDATE  ALPHA  GIMBAL  POSITION.  00011450 

AL-AL+TS.ALRATE  00011460 

C 00011470 

C 00011480 

C • STEP  4:  UPDATE  INNER  (BETA)  GIMBAL  RATE  ANO  POSITION  • 00011490 

C • •* ••••••  00011500 

C COMPUTE  BETA  LOOP  POSITION  ERROR.  00011510 

ERRB-BREF-BT  000 1 1 520 

C UPDATE  SMOOTHED  BETA  GIMBAL  RATE  ESTIMATE.  00011530 

SBTRT E-SBTRT  E+TS  * AK • ERRB  000 11540 

C UPDATE  BETA  GIMBAL  RATE.  00011550 

BTRATE-AK.TAU*ERRB+SBTRTE  00011560 

C CHECK  FOR  BETA  GIMBAL  RATE  LIMITING.  00011570 

IF(ABS(BTRATE) .GT.56. ) BTRATE-56 . *BTRATE/ABS(BTRATE)  00011580 

C UPDATE  BETA  GIMBAL  POSITION.  00011590 

BT-BT+TS  * BTRAT  E 00011 600 

C 00011610 

C «••• 00011620 

C * STEP  5 : ANTENNA  IN  OBSCURATION  REGION"  • 00011630 

C 00011640 

C CALL  SCNWRN  00011650 

C 00011660 

C 00011670 

C • STEP  6:  COMPUTE  ANTENNA  ROLL/PITCH  ANGLES  IN  THE  BODY  FRAME  * 00011680 

C mm 00011690 

CA-COS(AL)  00011700 

SA-SIN(AL)  00011710 

CB-COS(BT)  00011720 

SB-SIN(BT)  00011730 

XX-CA*SB+SG*SA*C8  00011740 

YY— SG*SB+CG*SA*CB  00011750 

ZZ-CA.C8  0001 1^60 

I K ( YY . EQ . 0 . 0 . AND . ZZ . EQ . 0 . 0 ) GO  TO  3 000117/0 

SRANG— 57 . 29576* AT AN2(YY , ZZ)  00011 780 
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GO  TO  4 0001 1790 

3 I F(XX .GT .0.0)  SRANG-+90 . 0 00011800 

IF(XX. LT.0.0)  SRANG— 90.0  00011810 

4 SPANG— 57. 29576*ASIN(XX)  00011820 

C RESOLVE  POSSIBLE  ANGLE  AMBIGUITIES,  VIZ.,  -90 . <SPANG<90 . AND  00011830 

C —180. <SRANG<1 80 . 00011840 

I F ( SPANG . LE . 90 . ) GO  TO  10  00011850 

SPANG— (180. -ABS ( SPANG ) ) • ( SPANG/ ABS ( SPANG ) ) 00011860 

SRANG- ( 1 80 . -ABS ( SRANG ) ) • ( SRANG/ABS ( SRANG ) ) 00011870 

10  RETURN  00011880 

END  00011890 

C 00018390 

C 00018400 

C **••. ... 00018410 

C • THIS  SUBROUTINE  COMPUTES  TARGET  C.G.  POSITION  AND  VELOCITY  • 00018420 

C * WRT  ANTENNA  LOS  COORDINATES  AND  INDIVIDUAL  SCATTERER  POSI-  • 00018430 

C . TIONS  AND  VELOCITIES  WRT  ANTENNA  LOS  COORDINATES.  * 00018440 

C 00018450 

C 00018460 

C 00018470 

SUBROUTINE  PVTRAN  00018480 

COMMON  /TEST1/RA(3) 

COMMON  /CNTL/IPWR, I MODE  00018490 

COMMON  /INPUT/ERT(3).EVT(3),DUM(21)  00018500 

COMMON  /0UTPUT/MSWF,MTF,MSF,DUM0(7) , IDUM0(4)  00018510 

COMMON  /ICNTL/IDUM6(9) ,MTP, IDUM7(3) .MTKINT  00018520 

COMMON  /SYSDAT/TSAM, DR(3) , DUM2( 1 1 ) 00018530 

COMMON  /TGTDAT/NT,RAU(3, 100) ,RANGE(100) ,RADVEL(100) ,RO(3) , 00018540 

2 ROU(3) .CGRNGE.CGVEL  00018550 

COMMON  /SATDAT /RADAR ( 3 ) , N20 , RT ( 70 , 3 ) , S I G ( 70 ) , ROLD , I C LOSE , I C LOLD  00018560 
COMMON  /XFORMS/TLB(3,3),TLBD(3,3).TLT(3.3).TLTD(3.3)  00018570 

COMMON  /TARGET/  ITARG.SRCS 

DIMENSION  ROR(3) ,ROD(3) ,V1 (3) ,RL(3) ,RAD(3) ,RLD(3) ,XRT(3)  00018580 

C 00018600 

C • STEP  1:  COMPUTE  TARGET  C.G.  POSITION  IN  ANTENNA  LOS  FRAME  • 00018610 

C •••••  00018620 

C 00018630 

C STEP  1-1:  ADD  RADAR  OFFSET  IN  ORBITER  BODY  FRAME.  00018640 

DO  5 1-1,3  00018650 

5 ROR( I )— ERT ( I )— DR( I ) 00018660 

C 00018670 

C STEP  1-2:  TRANSFORM  TARGET  C.G.  POSITION  FROM  BODY  FRAME  TO  00018680 

C ANTENNA  LOS  FRAME.  00018690 

CALL  MULT31 (TLB.ROR.RO)  00018700 

C 00018710 

C STEP  1-3:  COMPUTE  RANGE  OF  TARGET  C.G.  WRT  RADAR.  00018720 

CGRNGE— SQRT(RO(1 )*RO(1 )+RO(2)*RO(2)+RO(3)»RO(3))  00018730 

C 00018740 

C STEP  1-4:  COMPUTE  UNIT  VECTOR  IN  DIRECTION  OF  TARGET  C.G.  WRT  00018750 

C ANTENNA  LOS  FRAME.  00018760 

DO  10  1-1,3  00018770 

10  ROU( I )— RO( I )/CGRNGE  00018780 

C 00018790 

C ...............................................................  00018800 

C • STEP  2:  COMPUTE  TARGET  C.G.  RADIAL  VELOCITY  WRT  ANTENNA  LOS  • 00018810 

C * FRAME  (OR  RADAR).  • 00018820 

C 00018830 

C 00018840 

C STEP  2-1:  COMPUTE  TARGET  C.G.  VELOCITY  COMPONENTS  WRT  ANTENNA  00018850 

C LOS  FRAME.  00018860 

CALL  MULT31 (TLBD,ROR,V1 ) 00018870 

CALL  MULT31 (TLB.EVT.ROD)  00018880 

DO  15  1-1,3  00018890 

15  ROD(I )— ROD( I )+V1 (I)  00018900 
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00018910 

STEP  2-2:  COMPUTE  TARGET  C.G.  RADIAL  VELOCITY  WRT  ANTENNA  LOS.  00018920 

CGVEL-0.0  00018930 

DO  20  1-1 ,3  00018940 

20  CGVEL-CGVEL+ROD(I)*ROU(I)  00018950 

00018980 

00018990 

• STEP  3:  COMPUTE  TARGET  SCATTERING  CHARACTERISTICS  - OF  • 00019000 

• ILLUMINATED  POINTS.  THE  POINT  LOCATIONS.  AND  THE  • 00019010 

• RCS  FOR  EACH  POINT . » 00019020 

• 00019030 

00019040 


STEP  3—1  : IF  IN  ACTIVE  MODE.  SEARCH  MODE.  OR  TRACKER  INITIALIZATION  00019050 
ASSUME  SINGLE  SCATTERER  LOCATED  AT  TARGET  FRAME  ORIGIN. 0001 9060 


00019070 

ITARG-0  POINT  TARGET 
ITARG-1  SPAS 
ITARG- 2 SJJU 

IF(ITARG.EO.0)  GO  TO  24  00019090 

CHECK  CONDITION.  00019100 

IF(  IMODE.NE.  1 .AND.MTKINT.NE.0.AND.MTP.NE.0)  GO  TO  30  00019110 

IF  ABOVE  CONDITION  TRUE  THEN  SET  PARAMETERS  AS  FOLLOWS  AND  DO  00019120 

NOT  CALL  TARGET  MODEL.  00019130 

24  NT-1  00019140 

SIG(1 )-SRCS  00019150 

DO  25  1-1 .3  00019160 

25  RT( 1 , I )-0 . 0 00019170 

00019360 

STEP  3-2:  COMPUTE  LOCATION  OF  RADAR  IN  TARGET  FRAME.  00019370 

30  DO  35  1-1,3  00019380 

RADAR ( I )— 0 . 0 00019390 

DO  35  J-1 ,3  00019400 

35  RADAR ( I )— RADAR ( I )-TLT(  J , I )*R0(  J)  00019410 

IF( ITARG. EQ. 0)GO  TO  40 


STEP  3-3:  COMPUTE  TARGET  SCATTERING  CHARACTERISTICS. 
I F( ITARG . EQ. 2)CALL  SMM 
IF( ITARG . EQ. 1 )CALL  SPAS 
NT— N20 

40  DO  70  K— 1 .NT 


• STEP  4:  COMPUTE  KTH  SCATTERER  POSITION,  RANGE.  AND  DIRECTION  • 

• VECTOR  WRT  ANTENNA  LOS  FRAME  (OR  RADAR).  * 


STEP  4-1:  COMPUTE  KTH  SCATTERER  POSITION  WRT  ANTENNA  LOS  FRAME. 
DO  45  J-1 ,3 
RL( J )— 0.0 
DO  45  1-1 ,3 

45  RL( J )— RL( J )+TLT( J ,I)*RT(K,I) 

DO  50  1-1,3 
50  RA( I )— RO( I )+RL( I ) 

STEP  4-2:  COMPUTE  RANGE  OF  KTH  SCATTERER  WRT  RADAR. 

RANGE(K)— SQRT(RA(1 )*RA(1 )+  RA(2) *RA(2)+RA(3) *RA(3) ) 

STEP  4-3:  COMPUTE  UNIT  VECTOR  IN  DIRECTION  OF  KTH  SCATTERER  WRT 
ANTENNA  LOS  FRAME. 

DO  55  1-1  ,3 

55  RAU( I ,K)» RA( I )/RANGE(K) 


00019430 

00019440 


00019460 
00019470 
00019480 
00019490 
00019500 
00019510 
00019520 
00019530 
00019540 
0001 9550 
00019560 
00019570 
00019580 
00019590 
00019620 
00019630 
00019640 
00019650 
00019660 
00019670 
00019680 
00019690 
00019700 
00019710 
00019720 
00019730 


00019450 
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C * STEP  5:  COMPUTE  KTH  SCATTERER  RADIAL  VELOCITY  WRT  RADAR  • 

C 

c 

C STEP  5-1 : COMPUTE  KTH  SCATTERER  VELOCITY  COMPONENTS  WRT  ANTENNA 
C LOS  FRAME. 

DO  58  1-1 .3 
58  XRT ( I )— RT (K , I ) 

CALL  MULT31 (TLTD ,XRT , RLD) 

DO  60  1-1  .3 

60  RAD(I)«ROD(I)+RLD(I) 

C 

C STEP  5-2:  COMPUTE  KTH  SCATTERER  RADIAL  VELOCITY  WRT  TO  RADAR. 
RADVEL(K)— 0 .0 
DO  65  1-1,3 

65  RADVEL(K)-RADVEL(K)+RAD(  I )*RAU(  I ,K) 

70  CONTINUE 
C 

C NOTE:  DEBUGGING  PRINT  STATEMENTS. 

C WRITE(6,900)  RO(T),RO(2),RO(3),CGRNGE.CGVEL 

C WRITE(6,901 ) RAU(1 , 1 ) ,RAU(2, 1 ) , RAU(3, 1 ) . RANGE(1 ) , RADVEL(1 ) 

C WRITE(6,902) 

C WRITE(6 , 903) (I,(RT(I,J), J— 1 ,3) ,SIG( I ) . 1-1 ,N20) 

900*  FORMAT (// ’ ROI , R02 , R03 ,CGR ,CGV  — *,5F10.2) 

901  FORMAT ( ’ RAU1  ,RAU2.RAU3,R.V  -\5F10.2) 

902  FORMAT ( * SPAS  RCS  DATA:',/, 

1 /,9X, ' I ' , 4X, *R(I ,1) ' , 4X, *R(I ,2) * , 4X,'R(I,3)',9X,,SIG(I)' ,/) 

903  FORMAT (I10,3F10.2,F15.1) 

RETURN 

END 

C 

c 

C 

C * THIS  FUNCTION  GENERATES  A RANDOM  NUMBER  FROM  A UNIFORM  00,1©  • 

C * DISTRIBUTION.  • 

C 

FUNCTION  RNDU( IRAN) 

DATA  MU/524287/, I ETA/997/ 

IF(IRAN.EO.0)  GO  TO  10 
I RAN- 1 ETA*  I RAN 
I KEEP- 1 RAN/MU  . 

IRAN-IRAN-IKEEP*MU 
XRAN- 1 RAN 
XRAN-XRAN/MU 
RNDU-XRAN 
10  RETURN 
END 
C 
C 

C * 

C • THIS  SUBROUTINE  COMPUTES  THE  RADAR  SIGNAL  STRENGTH  AND  UPDATES  • 
C * THE  AGC  SETTING.  * 

c 

c 

SUBROUTINE  RSS 

COMMON  /CNTL/IPWR, IMODE, IDUM1 (7) ,DUM1 (3) 

COMMON  /ICNTL/IDUM2( 14) , MRNG , MSAM , IDUM6( 1 1 ) 

COMMON  /OUTPUT / 1 DUM7 ( 3 ) ,DUM3(6)  ,SRSS , IDUM4(4) 

COMMON  /AGCDAT/AGCO , AGCODB , SNRDT , SNRDTD 
DIMENSION  PS( 10 , 2) ,0NV(2) , A1 (2) 

DATA  PS/9 *4 . ,2. ,5*4. ,2. ,4. ,8. ,8. ,16./ 

DATA  ONV/. 00067, .01 1/,A1/.032l , .51/ 

C SUBROUITNE  RSS  HAS  BEEN  UPDATED  TO  CORRESPOND  TO  THE 


00019740 

00019750 

00019760 

00019770 

00019780 

00019790 

00019800 

00019810 

00019820 

00019830 

00019840 

00019850 

00019860 

00019870 

00019880 

00019890 

00019900 

00019910 

00019920 

00019930 

00019940 

00019950 

00019960 

00019970 

00019980 

00019990 

00020000 

00020010 

00020020 

00030970 

00030980 

00030990 

00031000 

00031010 

00031020 

00031030 

00031040 

00031050 

00031070 

00031080 

00031090 

00031100 

00031110 

00031120 

00031130 

00031140 

00029220 

00029230 

00029240 

00029250 

00029260 

00029270 

00029280 

00029290 

00029300 

00029310 

00029330 

00029340 
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DERIVATION  OF  AGO ERR  PRESENTED  IN  THE  FINAL  REPORT  ON 
KU8AND  COMPUTER  SIMULATION.  M.  MEYER  FEB  17.  1986 


• STEP  1 : UPDATE  SYSTEM  AGC  * 


STEP  1-1:  COMPUTE  AGC  ERROR  AND  CHECK  LIMITS. 

UPDATED  FEB  17.  1986 

AGCERR-A1 (MSAM) *4 . *PS(MRNG , IMODE)/(AGCO*(SNRDT+1 ,0)4ONV(MSAM)  ) 
I F( AGCERR . GT . 1 0 . ) AGCERR-10.0 
I F (AGC ERR . LT . 0 . 1 ) AGCERR-0.1 

STEP  1-2:  COMPUTE  NEW  AGC  VALUE  AND  CHECK  LIMITS. 

AGCO-AGC ERR* AGCO 

UPDATED  FEB  17,  1986 

IF(AGCO.GT.0.25)  AGCO-0.25 
AGCOOB— 1 0 . • ALOG1 0( AGCO) 


• STEP  2:  UPDATE  RADAR  SIGNAL  STRENGTH  VALUE  • 


IF(AGCO.LT.1 .0E-15)  AGCO-1. 0E-15 
SRSS— 1 ./AGCO 

-UPDATED  FEB  17,  1986 

SRSS— 10. *ALOG10(SRSS)— 6.0 

RETURN 

END 


• THIS  SUBROUTINE  UPDATES  RANGE  AND  RANGE  RATE  ESTIMATES.  • 


SUBROUTINE  RTRACK 

REAL  INTT, IRDISC, IRNG, IRDOT 

COMMON  /CNTL/IPWR, IMODE. IDUMC(7) ,DUMC(3) 

COMMON  /OUTPUT/ IDUM0(3) . SRNG , SRDOT , DUM2 (5) , IDUM(4) 

COMMON  /ICNTL/I1DUM(  14)  .MRNG.MSAM.MPRF,  IDUM1  (10)  .MPFOLD 
COMMON  /SYSDAT /TSAM , DUMS (14) 

COMMON  /RTDAT/ I RDOT . I RNG . RB I AS , VEST ( 4 ) , MDF ( 5 ) 

COMMON  /DSCRM/DUM ( 2 ) , RDSC . VD I SC . RRTE , OD I SC . DUM3 ( 3 ) 

DIMENSION  RT1 (10.2) ,RT2(10,2) ,TDC(3) ,RGBIAS(2) 

DATA  RT1/9*0. 125,0.25,4*0. 125,2. .1 ..2. ,2*0.5.0.25/.RT2/9*0.5, 
2 4. 0,4*0. 5, 8. ,8. ,4*16./ 

DATA  TDC/0.051221 18,0. 1195161 .0.2561557/ 

DATA  RGB I AS/32. 3. 94. 7 / 


* STEP  1 : UPDATE  ROUGH  RANGE  RATE  ESTIMATE  • 


STEP  1-1:  INTEGERIZE  RANGE  DISCRIMINANT  AND  CHECK  FOR  SATURATION. 
RDISC— 5 . 333333* RDSC 
TCON-TSAM/TDC (MPRF) 

I RD I SC- 1 NTT ( RD I SC*  TCON+0 . 5 ) /TCON 
IF(IRDISC.GT. 127. ) IRDISC-127. 

IF( IRDISC. LT.— 128. ) IRDISC— 128. 

STEP  1-2:  COMPUTE  ROUGH  RANGE  RATE  PREDICTION  FROM  ALPHA-BETA 
TRACK I NG  EQUAT I ONS 

DEFINITION:  RT1 (MRNG . IMODE)  CORRESPONDS  TO  BETA  IN  ALPHA-BETA  TRACK 


00029370 

00029380 

00029390 

00029400 

00029410 


00029440 

00029450 

00029460 

00029470 

00029480 


00029500 

00029510 

00029520 

00029530 

00029540 

00029550 


00029580 

00029590 

00026530 

00026540 

00026550 

00026560 

00026570 

00026580 

00026590 

00026600 

00026605 

00026610 

00026620 

00026630 

00026640 

00026650 

00026660 

00026670 

00026680 

00026690 


00026700 

00026710 

00026720 

00026730 

00026740 

00026750 

00026760 

00026770 
00026780 
00026790 
00026800 
00026810 
00026820 
. 00026830 


B-43 


RR1«IRDISC*RT1 (MRNG, IMODE) 

I RDOT- I RDOT+ I NTT ( RR 1 +C . 5 ) 

C 

C **»».*.»»»*»**••»***»**•••»**»*** 

C * STEP  2:  UPDATE  RANGE  ESTIMATE  • 

C 

c 

C STEP  2-1:  UPDATE  RANGE  ESTIMATE  USING  ALPHA-BETA  TRACKER  EQUATIONS. 

C DEFINITION:  RT2  CORRESPONDS  TO  ALPHA  IN  ALPHA-BETA  TRACKER. 
R1«IRDISC*RT2(fc#?NG, IMODE) 

I RNG- I RNG+ I RDOT+ I NTT ( R 1 +0 . 5 ) 

C 

C STEP  2-2:  CONVERT  RANGE  ESTIMATE  ( IRNG)  TO  FEET  USING  THE  FACT  THAT 
C THE  LSB  OF  IRNG  REPRESENTS  5/16  FEET. 

RNG»0.3125*IRNG 

C 

C STEP  2-3:  ADD  FIXED  BIAS  TO  FINAL  RANGE  ESTIMATE. 

SRNG-RNG+RGB I AS ( MS AM ) 

C 

C FORCE  BREAK  TRACK  IF  RANGE  LESS  THAN  100  FT 
C 

I F($RNG . LT . 1 00 . )CALL  SYSINT 
C 

RETURN 

END 

C 

C 

C 

C * THIS  SUBROUTINE  DETERMINES  WHETHER  THE  SIGNAL  PLUS  NOISE  * 

C * IS  SATURATING  THE  A/D  IF  SO, THEN  THE  SNR  AT  DOPPLER  * 

C • FILTER  OUTPUT  IS  LIMITED  TO  THE  VALUE  THAT  JUST  SATUR-  • 

C • ATES  THE  A/D.  * 

C 

C 

c 

SUBROUTINE  SATNSE(SNF) 

COWON  /CNTL/IPWR,  IMODE 

COMMON  /ICNTL/IDUM(14)  ,MRNG 

COMMON  / AGCD AT /AGCO , AGCODB , SNRDT . SNRDTD 

DIMENSION  PS( 10,2) 

C 

C PS  VALUES  WERE  UPDATED  FEB  17,1986  BY  M.  MEYER 

C 

DATA  PS/9*4. 0 ,2. ,5»4. ,2. ,4. ,8. ,8. ,16./ 

SNF«1 . 

X-AGC0*(SNRDT/(4.*PS(MRNG, IMODE) )+1 .0) 

C **.*»****•**.*•**************•*******•»*»*«***•»•****» 

C X-12.25/X  WAS  REPLACED  BY  X*6.25/X  TO  MORE  ACCURATELY 
C REFLECT  A/D  SATURATION  BY  M.  MEYER  FEB  17,  1986 

X-6.25/X 

IF(X.GT.I)  RETURN 
SNF-X 
RETURN 
END 
C 
C 

C ****•»»••***•****»»*•*•*»*****»***•***»*•*•****•»»****»*»»»»»•**»*+ 

C * THIS  SUBROUTINE  CYCLES  THRU  THE  LOGIC  FOR  ANY  SCAN  GENERATION.  * 

C 

c 

SUBROUTINE  SCAN 

COMMON  /CNT  L/ 1 DUM  ( 4 ) , I SRCHC , I SRCHG . I DUMC  ( 3 ) , EDRNG , DUMC  ( 2 ) 


00026840 

00026850 

00026860 

00026870 

00026880 

00026890 

00026900 

00026910 

00026920 

00026930 

00026940 

00026950 

00026960 

00026970 

00026980 

00026990 

00027000 

00027010 


00027020 

00027030 

00035530 

00035540 

00035550 

00035560 

00035570 

00035580 

00035590 

00035600 

00035610 

00035620 

00035630 

00035640 

00035650 

00035660 


00035690 

00035700 


00035720 

00035730 

00035740 

00035750 

00012670 

00012680 

00012690 

00012700 

00012710 

00012720 

00012730 

00012740 

00012750 
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COMMON  /OUTPUT/MSWF,MTF,MSF,DUM1 (7) , IDUM2(4)  00012760 

COMMON  /ICNTL/IDUM3(6) .KSNCLK. IDUM4(2) ,MTP, IDUM5(17) .MSWTCH,  00012770 

2 KSN . 1 AROLD , I TROLD  000 1 2780 

COMMON  /SYSDAT /TSAM , DUMS (14)  00012790 

COMMON  /TGTDAT/NT,DUM2(503) ,ROU(3) ,DUM3(2)  00012800 

COMMON  /ATDAT/DUM4(8) ,AL.BT,DUM5(2) ,AREF,BREF  00012810 

DIMENSION  TIMINT(31 ) , ANGINT(31 ) ,RSW( 10) ,TSW( 10)  00012820 

DATA  TIMINT/.7.1 .4,1 .9,2. 6,3. 4, 4. 3 .5. 1.6., 7.. 8., 9.1 . 10. 4, 11. 8,  00012830 

1 13.3.14.9.16.9,18.9.21.1,23.4,25.9.28.6.31.5,33.5.36.6.39.8,  00012840 

2 43.2,46.8,50.5,54.3,58.4.60.0/  00012850 

DATA  ANGINT/0. . .7. 1.5, 2. ,2. 7, 3. 6, 4. 4. 5. 2. 6.1 .7. .7.9.8.8.9.8.10.9.00012860 

1 11.9,13.0.14.2.15.3,16.5.17.6.18.8,19.9,21.1.22.2,23.4,24.5.  00012870 

2 25.6.26.7,27.8,28.9.30./  00012880 

DATA  TSW/60. 0,54. 3, 43. 2, 33. 5. 28. 6. 21 .1 ,14.9,11 .8. 8. 0.6.0/,  00012890 

2 RSW/48609. 2. 55900. 6. 62584. 3. 71698. 6. 91142. 5. 151903. 8.  00012900 

3 243046.0.394949.8,881041.8.1822845.0/  00012910 

PII-180./3. 141592653  00012920 

C 00012930 

C 00012940 

C • STEP  1:  DETERMINE  WHETHER  TO  PERFORM  SCAN  INITIALIZATlON(MSF-0)  . 00012950 

C « OR  SCAN  UPDATE (MSF-1 ) . * 00012960 

C 00012970 

IF(MSF.EQ.I)  GO  TO  15  00012980 

C 00012990 

C 00013000 

C • STEP  2:  PERFORM  SCAN  INITIALIZATION  * 00013010 

C 00013020 

C INITIALIZE  ALL  FLAGS.  00013030 

MSF-1  00013040 

C INITIALIZE  RING  MONITORS.  00013050 

IAROLD— 0 00013060 

I TROLD— 10  00013070 

C INITIALIZE  SCAN  CLOCK.  00013080 

KSNCLK— 0 0001 3090 

C INITIALIZE  SCAN  TIME  PARAMETER.  00013100 

KSN— 0 00013110 

C 00013120 

C DETERMINE  SWITCH  POINT  PARAMETER.  00013130 

DO  5 1-1 ,10  00013140 

I F( EDRNG . LT . RSW( I ) ) GO  TO  10  00013150 

5 CONTINUE  00013160 

10  MSWTCH*  I 00013170 

C 00013180 

C 00013190 

C • STEP  3:  UPDATE  SCAN  CLOCKS  • 00013200 

C 00013210 

C 00013220 

C STEP  3-1:  UPDATE  SCAN  CLOCK  (TRACKS  TOTAL  ELAPSED  TIME  FROM  SCAN  00013230 

C INITIATION).  00013240 

15  KSNCLK-KSNCLK+1  00013250 

T-FLOAT( KSNCLK). TSAM  00013260 

C 00013270 

C STEP  3-2:  UPDATE  SCAN  TIME  PARAMETER  (USED  TO  DETERMINE  BORESIGHT  00013280 

C POSITION  IN  SCAN  PATTERN).  00013290 

IF(T . LE.TSW(MSWTCH) ) KSN-KSN+1  00013300 

IF(T.GT.TSW(MSWTCH))  KSN-KSW-1  00013310 

TSf*- FLOAT  (KSN).  TSAM  00013320 

C 00013330 

C 00013340 

C • STEP  4:  DETERMINE  ANTENNA  POSITION  TO  NEAREST  SCAN  RING  • 00013350 

C 00013360 

DO  20  1-1.31  00013370 

IF(TSN. LT.TIMINT(I))  GO  TO  25  00013380 

20  CONTINUE  00013390 


25  I ARNO  I 


00013400 

C 00013410 

C 00013420 

C • STEP  5:  DETERMINE  TARGET  POSITION  IN  SCAN  PATTERN  (SCAN  • 00013430 

C • RING  NUMBER  FOR  TARGET)  * 00013440 

C 00013450 

C 00013460 

C STEP  5-1:  DETERMINE  TARGET  POSITION  EXACTLY.  00013470 

ALOLD-AL  00013480 

BTOID-BT  00013490 

AL-AREF  00013500 

BT-BREF  00013510 

CALL  TRNSFM  00013520 

CALL  PVT RAN  00013530 

AL-ALOLD  00013540 

BT-BTOLD  00013550 

C 00013560 

C STEP  5-2:  DETERMINE  TARGET  SCAN  RING  NUMBER.  00013570 

C 00013580 

C DETERMINE  TARGET  ANGLE  OFF  SCAN  DESIGNATES  (DEGREES).  00013590 

CCCCCCCCCCCCCCCCCCCC  MOD  MAR  24  1983  CCCCCCCCCCCCCCCCCCCCC 

CGANOACOS(— ROU(3)  ) *PI  I 00013600 

C 00013610 

C DETERMINE  TARGET  SCAN  RING  NUMBER.  00013620 

DO  30  1-1,31  00013630 

IF(CGANG. LT. ANGINT( I ) ) GO  TO  35  00013640 

30  CONTINUE  00013650 

35  ITRNOI  00013660 

I F (CGANG . GT  . 30 . ) ITRN032  00013670 

C 00013680 

C 00013690 

C * STEP  6:  DETERMINE  IF  A DETECTION  SHOULD  BE  ATTEMPTED  * 00013700 

C 00013710 

C 00013720 

C STEP  6-1:  CHECK  CONDITION.  00013730 

IF(IARNG.EQ. ITRNG.AND. IAROLD.NE. ITROLD)  CALL  DETECT  00013740 

C 00013750 

C STEP  6-2:  UPDATE  RING  NUMBER  MONITOR.  00013760 

IAROLD— IARNG  00013770 

ITROLD— I TRNG  00013780 

C 00013790 

C 00013800 

C » STEP  7:  CHECK  FOR  SCAN  TERMINATION  CONDITIONS  • 00013810 

C .................................................  00013820 

C 00013830 

C STEP  7-1:  CHECK  ALL  POSSIBLE  TERMINATION  CONDITIONS.  00013840 

C 00013850 

C CONDITION  - 1:  T > 60.  SECONDS"  00013860 

IF(T.GE.60. ) GO  TO  40  00013870 

C 00013880 

C CONDITION  - 2:  NEXT  SCAN  TIME  PARAMETER  < 0.  " 00013890 

ITEMP-KSN— 1 00013900 

IF(  ITEMP . LT  .0)  GO  TO  40  00013910 

C 00013920 

C CONDITION  - 3:  DETECT  A TARGET"  00013930 

IF(MTP.  EQ.0)  RETURN  00013940 

C 00013950 

C STEP  7-2:  PERFORM  SCAN  TERMINATION  STEPS  IF  TERMINATION  COND  00013960 

C ITION  OBTAINED.  00013970 

40  MSF-0  00013980 

KSNCLK— 0 00013990 

KSN-0  00014000 

ISRCHG— 0 00014010 

ISRCHC— 0 00014020 
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RETURN 

END 


• THIS  SUBROUTINE  DETERMINES  WHETHER  THE  ANTENNA  IS  IN  THE  OB-  * 

* SCURATION  ZONE  AND  SETS  THE  SCAN  WARNING  FLAG  APPROPRIATELY . * 


SUBROUTINE  SCNWRN 

COMMON  /OUTPUTAlSWFtIDUMOCZj.DUMOCTJ.IDUMOiCA) 

COMMON  /ATDAT/DUM (8) ,A,B , DUMA ( 4 ) 

DIMENSION  ICLEAR(36,72) 

DATA  ICLEAR  /17*1 , 13*0,6*1 , 18*1 , 12*0,6*1 , 18*1 , 12*0.6*1 , 

1 18*1 ,12*0,6*1.19*1,11*0,6*1 ,19*1  ,11*0,6*1,19*1,11*0,6*1, 

2 19*1 .11*0,6*1 ,19*1 ,11*0,6*1 ,19*1  .11*0,6*1,20*1 ,10*0,6*1 , 

3 20*1 ,10*0,6*1 ,20*1 ,10*0,6*1 .20*1 ,10*0,6*1 ,20*1,10*0, 

4 6*1 ,20*1 ,10*0,6*1 ,19*1 ,11*0,6*1 ,18*1 ,12*0,6*1 ,17*1 ,13*0, 

5 6*1 ,16*1 ,14*0,6*1 ,15*1 ,15*0,6*1 ,14*1 ,16*0,6*1 ,14*1 ,16*0, 

6 6*1 ,13*1 .17*0,6*1 ,12*1 ,18*0,6*1 ,11*1 ,19*0,6*1 ,10*1 ,20*0,6*1 , 

7 9*1,21*0,6*1 ,9*1 ,21*0,6*1 ,8*1  .22*0,6*1 ,4*1 ,0.3*1 ,22*0,6*1 , 

8 4*1 ,26*0,6*1 ,4*1 ,26*0,6*1 ,4*1,26*0,6*1 ,4*1 ,26*0,6*1 ,4*1 ,26*0,6*1 

9 4*1 ,26*0.6*1 .4*1 ,26*0,6*1 ,4*1 ,26*0,6*1 ,4*1 ,26*0,6*1 .4*1 ,26*0,6*1 
A 4*1 ,26*0,6*1 ,4*1 ,26*0,6*1 ,4*1  ,26*0,6*1 ,4*1 .26*0,6*1 .4*1 .26*0,6*1 
B 4*1 ,26*0,6*1 ,4*1 .26*0,6*1 ,4*1 ,26*0.6*1  ,4*1 . 7*0,2* 1 ,17*0,6*1 , 

C 4*1 ,7*0, 2*1 , 17*0,6*1 .4*1 ,6*0, 3*1 .17*0,6*1 ,4*1 .5*0, 4*1 ,17*0,6*1  , 

D 4*1 ,5*0, 6*1 ,15*0,6*1 .4*1,0,12*1 ,13*0,6*1 ,19*1,11*0,6*1, 

E 21*1 ,9*0, 6*1  ,24*1 .6*0, 6*1 ,26*1  ,4*0, 

F 6*1 ,27*1 ,3*0, 6*1 ,28*1 ,2*0, 6*1  ,29*1 ,0,6*1 ,29*1 .0,6*1 ,28*1 . 

G 2*0, 6*1 ,27*06,3*0,6*1 ,26*1 ,4*0, 6*1  ,25*1 .5*0, 6*1 .23*1 ,7*0, 6*1  , 

H 23*1 ,7*0, 6*1 ,22*1 .8*0, 6*1 ,19*1  ,11*0,6*1 ,18*1 ,12*0,6*1/ 


ALPHA- A *57. 3 
BETA— B* 57 .3 

IF(ABS(BETA) . L£. 90. ) GO  TO  1 
BETA— ( 1 80-ABS(B)  ) * (B/ABS(B) ) 
ALPHA-( 1 80-ABS( A) ) * ( A/ABS( A) ) 
CONTINUE 

I A— I NT ( (ALPHA+180 . )/5 .+1 . ) 
IB*INT ( (90-BETA)/5 .+1 . ) 
MSWF-ICLEAR(IB.IA) 

RETURN 

END 


* THIS  SUBROUTINE  COMPUTES  THE  RESPONSE  TO  ALL  DISPLAYS  AND  * 

• CONTROLS  WHEN  THE  RADAR  IS  IN  ANY  OF  THE  SEARCH  MODES.  • 


SUBROUTINE  SEARCH 

COMMON  /CNTL/IDUM(3)  , IASM,  ISRCHC.  ISRCHG,  IAZS,  I ELS,  I SLR , EDRNG , 

2 EDPA.EDRA 

COMMON  /OUTPUT/MSWF , MTF , MSF , SRNG . SRDOT , SPANG , SRANG . SPRTE , 

2 SRRTE , SRSS , I DUM2  ( 4 ) 

COMMON  /ICNTL/IOLDPW , IOLDMD , IOLDSM , ISHOLD , KMSCLK . KWMUP , KSNCLK , 

2 KSNMAX  .KACCLK  ,MTP  ,MZ1  . MZ0 , MSS . MTK I NT  , MRNG , MSAM , MPRF 

3 IDUM1 (10) 

COMMON  /SYSDAT/TS , DUMS (14) 

COMMON  / ATDAT/DUM2 (10)  ,PREF,RREF.DUMA(2) 

DIMENSION  SLWRTE(2) 

DATA  SLWRTE/6.9814E— 3,3. 4907E— 1/ 


00014030 

00014040 

00011900 

00011910 

00011920 

00011930 

00011940 

00011950 

00011960 

00011970 

00011980 

00011990 

00012000 

00012010 

00012020 

00012030 

00012040 

00012050 

00012060 

00012070 

00012080 

00012090 

,00012100 

,00012110 

,00012120 

00012130 

00012140 

00012150 

00012160 

00012170 

00012180 

00012190 

00012200 

00012210 

00012220 

00012230 

00012240 

00012250 

00012260 

00012270 

00012280 

00012290 

00012300 

00012310 

00005010 

00005020 

00005030 

00005040 

00005050 

00005060 

00005070 

00005080 

00005090 

00005100 

00005110 

00005120 

00005130 

00005140 

,00005150 

00005160 

00005170 

00005180 

00005190 

00005200 
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C 00005210 

C ••.... 00005220 

C • DETERMINE  ANTENNA  STEERING  MODE.  • 00005230 

C 00005240 

GO  TO  (10,20,30,40) . IASM  00005250 

C 00005260 

C 00005270 

C .00005280 

C ................  GPC-ACO  SEARCH  AND  ACQUISITION  MODE.  00005290 

C 

C 00005310 

C 00005320 

C 00005330 

C • STEP  1 : DETERMINE  WHETHER  SEQUENCING  THRU  POINT  OR  SCAN  * 00005340 

C 00005350 

10  IF(MSF.EQ.I)  GO  TO  14  00005360 

IF(MZ1 .EQ.1 .AND. ISRCHG.EQ.1)  GO  TO  14  00005370 

C 00005380 

C 00005390 

C * STEP  2:  PERFORM  GIMBAL  POINTING  SEOUENCE  • 00005400 

C «... 00005410 

C 00005420 

C STEP  2-1 : UPDATE  ROLL/PITCH  REFERENCES  00005430 

IF(ISHOLD. EQ.1 .AND.  ISRCHG.EQ.1)  GO  TO  12  00005440 

RREF-EDRA  00005450 

PREF-EDPA  00005460 

12  ISHOLD-ISRCHG  00005470 

C 00005480 

C STEP  2-2:  UPDATE  POSITION  OF  GIMBALS.  00005490 

CALL  POINT  00005500 

C 00005510 

C STEP  2-3:  DETERMINE  WHETHER  BORESIGHT  IN  ZONE  I AND/OR  ZONE  0 AND  00005520 

C TAKE  APPROPRIATE  ACTION.  00005530 

CALL  ZONECK  00005540 

C IF  NOT  IN  ZONE  0.  THEN  DETECTION  IS  NOT  ALLOWED.  00005550 

IF(MZ0.EQ.0)  RETURN  00005560 

C 00005570 

C *• 00005580 

C • STEP  3:  CHECK  FOR  TARGET  DETECTION  IF  IN  ZONE  0 • 00005590 

C 00005600 

C 00005610 

CALL  DETECT  00005620 

RETURN  00005630 

C 00005640 

C 00005650 

C » STEP  4:  PERFORM  SCAN  SEOUENCE  • 00005660 

C .................................  00005670 

14  CALL  SCAN  00005680 

RETURN  00005690 

C 00005700 

C 00005710 

C .....................................................................00005720 

c ••••••«. GPC-OES  SEARCH  AND  ACQUISITION  MODE  .......... ......00005730 

c .. .00005740 

C 00005750 

C ............................................  00005760 

C • STEP1  : PERFORM  GIMBAL  POINTING  SEQUENCE  • 00005770 

C ............................................  00005780 

C 00005790 

C STEP  1-1:  UPDATE  ROLL/PITCH  REFERENCE  ANGLES.  00005800 

20  PREF-EDPA  00005810 

RREF-EDRA  00005820 

C ' 00005830 

C STEP  1-2:  UPDATE  POSITION  OF  GIMBALS.  00005840 
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CALL  POINT  00005850 

C 00005860 

C STEP  1-3:  DETERMINE  WHETHER  BORESIGHT  IN  ZONE  1 AND/OR  ZONE  0 AND  00005870 

C TAKE  APPROPRIATE  ACTIN.  00005880 

CALL  ZONECK  00005890 

C IF  BORESIGHT  NOT  IN  ZONE  0.  THEN  TARGET  DETECTION  NOT  ALLOWED.  00005900 

IF(MZ0. EQ.0)  RETURN  00005910 

C 00005920 

C 00005930 

C • STEP  2:  CHECK  FOR  TARGET  DETECTION  IF  IN  ZONE  0.  * 00005940 

C *..•**...*..**•*****. ••..*...*.*•..****•*•*•••*. *••**..*  00005950 

C 00005960 

CALL  DETECT  00005970 

RETURN  00005980 

C 00005990 

C 00006000 

c AUTO  SEARCH  AND  ACQUISITION  MODE  *.•****♦*♦**•••**00006020 

C •*****•••*••••*•*•*••*******•••**•***•**•***•••*•*•*••* ••••*••***•*••00006030 

C 00006040 

C 00006050 

C ••*•******••••**•**•*••*«•*•*••*••*•*•*••**••*•***•**•*•**•  00006060 

C • STEP  1 : DETERMINE  WHETHER  SEQUENCING  THRU  POINT  OR  SCAN  * 00006070 

C ••******•••*•********•*•**•*****,•*•*********•***•••*••*«••  00006080 

30  I F ( I SRCHC . EQ . 1 ) GO  TO  32  00006090 

C 00006100 

C ****•**•••*••••*•********••**•*•«**•*•*••*••  000061 10 

C • STEP  2:  PERFORM  GIMBAL  POINTING  SEQUENCE  * 00006120 

C ••***••*»•**.***•********••**•*,*,••«••***»•*  00006130 

C 00006140 

C STEP  2-1:  UPDATE  ROLL/PITCH  REFERENCE  ANGLES.  00006150 

PREF«PREF+FLOAT(  I ELS)  *SLWRTE(  ISLR+1  ) *TS  00006160 

RR EF-RR EF+FLOAT  ( I AZS ) • SLWRT E ( I S LR+ 1 ) • TS  00006 1 70 

C 00006180 

C STEP  2-2:  UPDATE  POSITION  OF  GIMBALS.  00006190 

CALL  POINT  00006200 

C 00006210 

C STEP  2-3:  DETERMINE  SLEW  RATE  AND  TAKE  APPROPRIATE  ACTION.  00006220 

C IF  SLEW  RATE  IS  GREATER  THAN  0.4  DEG/SEC.  THEN  TARGET  DET-00006230 

IF(ISLR.GT.0)  RETURN  00006240 

C 00006250 

C •**••**••*•********•*•***•**•*•••*••*«*••****•*****•••*•*••***••  00006260 

C • STEP  3:  CHECK  FOR  TARGET  DETECTION  IF  SLEW  RATE  <0.4  DEG  • 00006270 

C * PER  SECONO.  * 00006280 

C ****************************************************************  00006290 

CALL  DETECT  00006300 

RETURN  00006310 

C 00006320 

C ***•*•••*••**•***••**••***«••*•**  00006330 

C • STEP  4:  PERFORM  SCAN  SEQUENCE  * 00006340 

C .•**********•*****•****••*»**••«»  00006350 

32  CALL  SCAN  00006360 

RETURN  00006370 

C 00006380 

C 00006390 

C ********************************************************************* 00006400 

c •******••****•*••  MANUAL  SEARCH  AND  ACQUISITION  MODE  ***..**..*******00006410 

C ***••• ••••••••••*••••••••••••**•••••••••••••••*•••••••••••*••••*•••••00006420 

C 00006430 

C 00006440 

C •***•*•*•**•*•••**•*•«***•*•*•*•**•  00006450 

C * STEP  1 : UPDATE  ANTENNA  POSITION  * 00006460 

C ****•*•***•***,*****•****»•**•*.«••  00006470 

C 00006480 
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C STEP  1-1:  UPDATE  ROLL/PITCH  REFERENCE  ANGLES.  00006490 

40  PREF»PREF+FLOAT( I ELS) *SLWRTE( ISLR+1 )»TS  00006500 

RREF«RREF+FLOAT(IAZS)*SLWRTE(ISLR+1)*TS  00006510 

C 00006520 

C STEP  1-2:  UPDATE  POSITION  OF  GIMBALS.  00006530 

CALL  POINT  00006540 

C 00006550 

C STEP  1-3:  DETERMINE  SLEW  RATE  AND  TAKE  APPROPRIATE  ACTION.  00006560 

C IF  SLEW  RATE  IS  GREATER  THAN  0.4  DEG/SEC.  THEN  TARGET  DET-00006570 

C ECTION  IS  NOT  ALLOWED.  00006580 

IF(ISLR.GT.0)  RETURN  00006590 

C 00006600 

C 00006610 

C * STEP  2:  CHECK  FOR  TARGET  DETECTION  IF  SLEW  RATE  <0.4  DEG  * 00006620 

C * PER  SECOND.  • 00006630 

C •••••  00006640 

CALL  DETECT  00006650 

RETURN  0000666 0 

END  00006670 

C 00020030 

C 00020040 

C 00020050 

C .THIS  SUBROUTINE  GENERATES  THE  NOISE-FREE  ANGLE.  RANGE.  VELOCITY  • 00020060 

C » AND  0N-TARGET  DISCRIMINANT  COMPONENTS.  * 00020070 

C 00020080 

C 00020090 

C 00020100 

SUBROUTINE  SIGNAL  00020110 

REAL  I ROOT , IRNG  00020115 

COMMON  /CNTL/IPWR, I MODE, ITXP, I ASM, IDUMC(5) ,DUMC(3)  00020120 

COMMON  /OUTPUT/I 1DUM(3) .SRNG.DUM1 (6) ,IDUM2(4)  00020130 

COMMON  /ICNTL/IDUM5(13).MTKINT,MRNG.MSAM.MPRF.MBKTRK,MBTSUM.  00020140 

2 M8T(8)  00020150 

COMMON  /TGTDAT/NT,RAU(3, 100) ,RANGE(100) ,RADVEL(100) ,RO(3) , 00020160 

2 ROU(3) , CGRNGE , CGVEL  00020170 

COMMON  /SATDAT/RADAR(3).N20.RT(70,3),SIG(70)  00020180 

COMMON  /RTDAT/IRDOT , IRNG,DUM2(5) ,MDF(5)  00020190 

COMMON  /SIGDAT/SPAZ, SMAZ . SPEL , SMEL , EARLY. LATE. DF1 .DF5.  00020200 

2 DF2,DF4,SIGBAR  00020210 

COMMON  /XFORMS/TLB(3,3),TLBD(3,3),TLT(3.3).TLTD(3,3)  00020220 

COMMON  /SUDIPH/  X.Y.Z.PAZ.PEL 

COMPLEX  CSUM , CD I FAZ , CD I FEL , CEARLY , C LATE , CDF1 , CDF5 , CDF2 , CDF4 , 00020230 

2 DFWTS. PHASE. PHASE1 .DOPFIL  00020240 

DIMENSION  CTP(10,2).DFWTS(5,100),ALAM(5),ALAMD(3),NFREQ(2)  00020250 

DATA  CTP/9* . 03318 . 9 . 799E-4 . 4* . 03318 , 1 . 9599E-3 . 9 . 8E-4 , 4 . 9E-4 . 00020270 

2 2»2 . 45E— 4 . 1 . 225E— 4/  00020280 

DATA  NFREQ/1 ,5/ .ALAM/1 77 . 3733 . 176 .0447 , 178.7149 . 176 . 7089 . 00020290 

2 1 78 . 0393/ , ALAM0/1 . 272461 E— 2 , 2 . 969089E— 2 , 3 . 309023E— 1 / 00020300 

REAL  LATE  00020310 

COMPLEX  DAZ.DEL 
DATA  I LOOP/ 1/ 

C 

C 

c 


C MODIFIED  JAN  10  1986  BY  M.  MEYER 
C MODIFICATIONS  TO  SUBROUTINE  SIGNAL  INCLUDE 
C CALCULATION  OF  THE  AZIMUTH  AND  ELEVATION  ANGLES 
C USE  OF  MEASURED  ANTENNA  PATTERNS  INSTEAD 
C OF  FUNCIONS  SPAT  AND  DP AT  AND  A 
C FACTOR  IN  THE  DIFFERENCE  CHANNELS  SIGNAL 
C WHICH  ACCOUNTS  FOR  THE  FINITE  WIDTH  PHASE 
C TRANSITION  IN  THE  REAL  PHASE  PATTERNS. 

C 

C 
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c 

C 

C * STEP  0:  READ  IN  ANTENNA  PATTERNTERNS  AND  SET  PHASE  BALANCE  • 

C 

c 

IF  ( I LOOP . NE . 1 ) GO  TO  11 
CALL  READPAT 
PBAL-O. 

I LOOP-0 

11  CONTINUE 

C 00020320 

C 00020330 

C • STEP  1 : PRELIMINARY  COMPUTATIONS  AND  PARAMETER  INITIALIZATION  . 00020340 

C «•«.••• 00020350 

C 00020360 

C STEP  1-1:  INITIALIZE  DISCRIMINANT  COMPONENTS  (NOTE:  THESE  ARE  THE  00020370 

C COMPONENT  SIGNALS  AFTER  SQUARE-LAW  DETECTION).  00020380 

SPAZ-0 . 0 00020390 

SMAZ— 0 . 0 00020400 

SPEL-0.0  00020410 

SMEL— 0 . 0 00020420 

EAR  LY— 0 . 0 00020430 

LATE— 0.0  00020440 

DF 1-0.0  00020450 

DF5— 0 . 0 00020460 

DF2— 0 . 0 00020470 

DF4-0 . 0 00020480 

SIGBAR-0.0  00020490 

C 00020500 

NFMAX-NFREQ(IMOOE)  00020510 

DO  55  I-1.NFMAX  00020520 

C 00020530 

C STEP  1-2:  INITIALIZE  COMPLEX  DISCRIMINANT  COMPONENTS  8EF0RE  EACH  00020540 

C XMIT  FREQUENCY  (NOTE:  THESE  ARE  THE  COMPONENT  SIGNALS  00020550 

C BEFORE  SQUARE-LAW  DETECTION).  00020560 

CSUHK0  • . 0 • ) 00020570 

COIFAZ— (0. .0. ) 00020580 

CDIFEL-(0. .0. ) 00020590 

C EARLY— ( 0 . . 0 . ) 00020600 

CLATE— (0. .0. ) 00020610 

CDF1-(0 . ,0. ) 00020620 

CDF5— (0,0.)  00020630 

CDF2— (0 . , 0 . ) 00020640 

CDF4— (0. ,0. ) 00020650 

DO  45  K— 1 .NT  00020660 

C 00020670 

IF(I.GT.I)  GO  TO  35  00020680 

C 00020690 

C 00020700 

C • STEP  2:  COMPUTE  SUM  CHANNEL  MULTIPLICATION  FACTOR  FOR  KTH  • 00020710 

C • SCATTERER.  • 00020720 

C 00020730 

C 00020740 

C STEP  2-1 : COMPUTE  AZIMUTH  AND  ELEVATION  ANGLE.  00020770 

AZ— ATAN2D(RAU(2 ,K) , ABS(RAU(3,K)  ) ) 

EL— ATAN2D(RAU( 1 ,K) ,ABS(RAU(3,K))) 

C STEP  2-2:  COMPUTE  ANTENNA  SUM,  DIFFERENCE  AND  PHASE  FACTORS  00020780 

CALL  INTERP(AZ.EL)  00020790 

C 00020800 

C STEP  2-3:  COMPUTE  SUM  CHANNEL  MULTIPLICATION  FACTOR.  00020810 

XX— SIG(K) «X  00020820 

C NOTE:  IF  IN  ACTIVE  MODE  SET  XX-1.0.  00020830 

I F ( I MODE . EQ . 1 ) XX-1.0  00020840 

S-XX*X  00020850 
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STEP  2-4:  CHECK  ANTENNA  STEERING  MODE  (IF  IN  GPC-DES  OR  MANUAL 
SKIP  STEP  4) . 

IF(IASM. EQ.2.0R. I ASM. EQ.4)  GO  TO  20 


• STEP  3:  COMPUTE  A2  AND  EL  DIFFERENCE  CHANNEL  MULTIPLICATION  * 

* FACTORS  FOR  KTH  SCATTERER.  • 


STEP  3-3:  COMPUTE  A2  AND  EL  DIFFERENCE  CHANNEL  MULTIPLICATION 
FACTORS  (INCLUDE  RCS  AND  SUM  PATTERN  WEIGHTINGS). 
AND  PHASE  DIFFERENCE  AND  BALANCE  WEIGHTINGS 
DAZ«XX*  Y*CMPLX  (COSD ( PAZ+PBAL ) . S I ND ( PAZ+PBAL) ) 
DEL*XX*Z*CMPLX(COSD(PEL+PBAL)  , SIND(PEL+PBAL)  ) 


* STEP  4:  COMPUTE  RANGE  GATE  WEIGHTING  FOR  KTH  SCATTERER  * 


DEFINITION:  CTP-4 ./(C*PULSEWIDTH)  WHERE  C IS  SPEED  OF  LIGHT. 

STEP  4-1:  COMPUTE  RANGE  GATE  LOCATION  WRT  RANGE  GATE  CENTER. 
;CCCCCCCCCCCCCCCC  MOD  MAR  24  1983  CCCCCCCCCCCCCCCCCC 

20  CONTINUE 

SRNGX»10 . *AINT(0 . 031 25* IRNG) 

D E LX-CTP ( MRNG , I MOD  E ) * ( RANG  E ( K ) -SRNGX ) 

STEP  4-2:  CONFUTE  EARLY  AND  LATE  RANGE  GATE  WEIGHTINGS  FOR 
KTH  SCATTERER. 

I I»INT(  (DELX+7.  )/2.  ) 

IF(II.LE.I)  1 1—1 
IF( 1 1 .GE.5)  1 1*5 
GO  TO  (21 ,22, 23,24, 21). II 

21  RGE-1.0E-4 
RGL*1 . 0E— 4 
GO  TO  25 

22  RGE-3.+DELX 
RGL-0.0 

GO  TO  25 

23  RGE-1.-DELX 
RGL«1  .+OELX 
GO  TO  25 

24  RGE-0.0 
RGL*3 .— OELX 

STEP  4-3:  COMPUTE  RANGE  GATE  WEIGHT  FOR  NON-RANGE  DISCRIMINANT 
COMPONENTS . 

25  RGWGT*0 . 5*  (RGL+RGE) 

STEP  4-4:  APPLY  RANGE  GATE  WEIGHTING  TO  SUM  AND  DIFFERENCE 
CHANNEL  MULTIPLICATION  FACTORS. 

RGE«S*RGE 
RGL«S*RGL 
S~S*RGWGT 
DAZ*D AZ  * RGWGT 
DEL*DEL*RGWGT 


00020860 

00020870 

00020880 

00020890 

00020900 

00020910 

00020920 

00020930 

00020940 

00020950 

00021040 

00021050 

00021060 

00021070 

00021080 

00021090 

00021100 

00021110 

00021120 

00021130 

00021140 

00021150 


00021160 

00021170 

00021180 

00021190 

00021200 

00021210 

00021220 

00021230 

00021240 

00021250 

00021260 

00021270 

00021280 

00021290 

00021300 

00021310 

00021320 

00021330 

00021340 

00021350 

00021360 

00021370 

00021380 

00021390 

00021400 

00021410 

00021420 

00021430 

00021440 

00021450 

00021460 

00021470 

00021480 


• STEP  5:  COMPUTE  DOPPLER  FILTER  PHASE  SHIFT  AND  WEIGHTING  FOR  KTH  * 00021490 

• SCATTERER.  NOTE:  THIS  CALCULATION  IS  INDEPENDENT  OF  XMIT  • 00021500 

• FREQUENCY  AND  ASSUMES  NO  ACCELERATION  OVER  DATA  CYCLE.  • 00021510 

00021520 

00021530 
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DEFINITION:  ALAMO (MPRF)«2 . *PI/(PRF* LAMBDA) 

DEFINITION:  THE  CONSTANT  0 . 1 96348-PI/I 6 . 

STEP  5-2:  COMPUTE  DOPPLER  FREQUENCY  CORRESPONDING  TO  RADIAL  VELOCITY 
OF  KTH  SCATTERER. 

FDT— 2.  *ALAMO(MPRF)*RADVEL(K) 


00021540 

00021550 

00021560 

00021570 

00021580 

00021590 


STEP  5-3:  COMPUTE  DOPPLER  FILTER  WEIGHTING  FOR  EACH  OF  FIVE  DOPPLER  00021610 
TRACKING  FILTERS.  00021620 

DO  30  J-1.5  00021630 

ARG-0 . 1 96348*MDF( J )— FDT  0002 1 640 

30  DFWTS( J ,K)— DOPFI L(ARG)  00021650 

00021660 

00021670 

* STEP  6:  COMPUTE  PHASE  FACTOR  ASSOCIATED  WITH  KTH  SCATTERER  RANGE  • 00021680 

* (NOTE:  PHASE  IS  REFER ENCD  TO  PHASE  ASSOCIATED  WITH  RANGE  • 00021690 

* OF  TARGET  C.G.)  * 00021700 

00021710 


DEFINITION: 


00021720 

RANGE (K)  IS  RANGE  OF  KTH  SCATTERER  TO  ANTENNA  PHASE  CENTR00021730 


DEFINITION:  ALA*A*4 . *P I/LAMBDA  WHERE  LAMBDA  IS  XMIT  FREOUENCY. 

STEP  6-1:  COMPUTE  PHASE  REFERENCED  TO  TARGET  C.G. 

35  DELPSI»ALAM(  I ) * (RANGE(K)— CGRNGE) 

STEP  6-2:  COMPUTE  PHASE  FACTOR.  I.E.  EXP( J*DELPHI ) . 

PHAS  E— C EXP ( CMP  LX ( 0 . .DELPSI)) 

PHAS El -PHASE 

STEP  6-3:  COMBINE  RANGE  PHASE  FACTOR  AND  DOPPLER  FILTER  -3 
WEIGHT  AND  PHASE  FACTOR. 

PHASE— PHASE*DFWTS (3 , K ) 

• STEP  7:  ADD  (VECTORIALLY)  KTH  SCATTERER  CONTRIBUTION  TO  EACH  • 

* DISCRIMINANT *S  COMPONENT  SIGNALS.  • 


STEP  7-1:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  SUM  CHANNEL  SIGNAL. 
CSUM— CSUM+S  * PHASE 


STEP  7-2:  CHECK  ANTENNA  STEERING  MODE  — 
GPC-OES  OR  MANUAL  MODE. 

I F ( I ASM. EG. 2. OR. I ASM. EQ. 4)  GO  TO  40 


SKIP  STEP  8-3  IF  IN 


STEP  7-3:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  AZ  AND  EL  DIFFERENCE 
CHANNELS  SIGNALS. 

CDIFAZ-CDI FAZ+DAZ*PHASE 
CDIFEL-CDI FEL+DEL*PHASE 

STEP  7-4:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  RANGE  DISCRIMINANT 
COMPONENT  SIGNALS. 

40  C EAR L Y-C EAR LY+RGE* PHASE 
C LATE-C LATE+RG L*PHASE 

STEP  7-5:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  VELOCITY  DISCRIMINANT 
COMPONENT  SIGNALS. 

PHASE 1— PHAS El *S 
CDF2-CDF2+PHASE1 * DFWTS (2 ,K) 

CDF4— CDF4+PHASE1  *DFWTS(4,K) 

STEP  7-6:  ADD  KTH  SCATTERER  CONTRIBUTION  TO  ON-TARGET  DISCRIMINANT 
COMPONENT  SIGNALS. 

CDF1-CDF1+PHASE1 *DFWTS( 1 ,K) 


00021740 

00021750 

00021760 

00021770 

00021780 

00021790 

00021800 

00021810 

00021820 

00021830 

00021840 

00021850 

00021860 

00021870 

00021880 

00021890 

00021900 

00021910 

00021920 

00021930 

00021940 

00021950 

00021960 

00021970 

00021980 

00021990 

00022000 

00022010 

00022020 

00022030 

00022040 

00022050 

00022060 

00022070 

00022080 

00022090 

00022100 

00022110 

00022120 

00022130 

00022140 

00022150 

0002^160 

00022170 
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45 


CDF5-CDF5+PHASE1 *DFWTS(5,K) 
CONTINUE 


STEP  8:  FORM  NOISE-FREE  ANGLE,  RANGE,  VELOCITY,  AND  ON-TARGET 
DISCRIMINANT  COMPONENTS  AT  ITH  FREQUENCY  AND  SOUARE 
LAW  DETECT  THESE  COMPONENTS. 


SKIP  STEPS  9-2  AND  9-3 


00022180 
00022190 
00022200 
00022210 
00022220 
00022230 
00022240 
00022250 
00022260 
00022270 
00022280 
00022290 
00022300 
00022310 
00022320 
00022330 
00022340 
00022350 
00022360 
00022370 
00022380 

COMPUTE  RANGE  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW  DETECT00022390 


STEP  8-1 : CHECK  ANTENNA  STEERING  MODE  - 
IF  IN  GPC-DES  OR  MANUAL. 

I F( IASM. EQ. 2 .OR . IASM. EQ.4)  GO  TO  50 


STEP  8-2:  COMPUTE  A2  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW  DETECT. 
SPAZ-SP  AZ+CABS  ( CSUM+CD I FA2 ) * • 2 
SMAZ-SMAZ+CABS  ( CSUM-CD I FA2  ) * • 2 

STEP  8-3:  COMPUTE  EL  DISCRIMINANT  COMPONENTS  AND  SQUARE-LAW  DETECT. 
SP  EL*SPEL+CABS ( CSUM+CD I FEL ) • • 2 
SMEL-SME  L+CABS  ( CSUM-CD  I FE L ) • • 2 

STEP  8-4: 


50  EAR  LY«EAR  LY+CABS ( CEAR  LY) • • 2 
LATE*LATE+CABS(CLATE)**2 

STEP  8-5:  COMPUTE  VELOCITY  DISCRIMINANT  COMPONENTS  AND  SOUARE-LAW 
DETECT . 

DF2=DF2+CABS(CDF2) **2 
D F4-D  F4+CABS ( CD F4 ) * * 2 

STEP  8-6:  COMPUTE  ON-TARGET  DISCRIMINANT  COMPONENTS  AND  SOUARE-LAW 
DETECT. 

DF1-DF1+CABS(CDF1)**2 
D F5-D F54CABS ( CD F5 ) * * 2 

* STEP  9:  COMPUTE  EFFECTIVE  CROSS-SECTION  AVERAGED  OVER  PROPER  • 

* NUMBER  OF  TRANSMIT  FREQUENCIES.  • 

S I GBAR*S I GBAR+CABS ( CSUM) * * 2 
55  CONTINUE 

SIGBAR«SlGBAR/FLOAT(NFREO( IMODE) ) 


00022400 

00022410 

00022420 

00022430 

0002244-0 

00022450 

00022460 

00022470 

00022480 

00022490 

00022500 

00022510 

00022520 

00022530 

00022540 

00022550 

00022560 

00022570 

00022580 

00022590 


NOTE:  DEBUGGING  PRINT  STATEMENTS 
WRITE(6 , 900)  (I.SIG(I).  1-1 .NT) 

900  FORMAT ( * I ,-SIG  -\I8,  F14.4) 

WRITE(6,902)  NT , S , DAZ , DEL , RGE , RGL , RGWGT f MDF(3) 

WRITE( 6 , 901 ) DFWTS( 1 ,K) , DFWTS(2,K) ,DFWTS(3. 1 ) ,DFWTS(4, 1 ) , 
2 DFWTS(5, 1 ) 

902  FORMAT ( * NT , S , DAZ . DEL , RGE, RGL , RGWGT , F3  -M5,6F10.2, 15) 

901  FORMAT ( * DF  WTS  -’.10F12.4) 

RETURN 

END 


• THIS  SUBROUTINE  CONTAINS  SINGLE-HIT  DETECTION  MODEL  * 


SUBROUTINE  SINGLE 
DIMENSION  P(41 ) 

COMMON  /CNTL/IPWR , IMODE, ITXP, IASM, IDUM(5) ,DUMC(3) 
COMMON  /OUTPUT/MSWF ,MTF ,MSF , DUM(7) . IDUM1 (4) 


00022610 

00022620 

00022630 

00022640 

00022650 

00022660 

00022670 

00022680 

00022690 

00022700 

00007440 

00007450 

00007460 

00007470 

00007480 

00007490 

00007500 

00007510 

00007520 

00007530 

00007540 
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C 


COMMON  /ICNTL/IDUM2(8)  , KACCLK.MTP,  IDUM3(5)  , MS  AM,  IDUM4(1 1 ) 

COMMON  /TGTDAT/NT  , DUM1  (500) ,R0(3) , R0U(3) ,CGRNGE,CGVEL 
COMMON  /DETDAT/SIGMA.CGANG 
DATA  NSRCH/105/ 

DATA  P/6*0 . 0 , .001 , .003,2* .004, . 008 . . 01 2, . 01 5 , . 043 , . 053 , .076, .107, 

2 .147, .193, .244, .312, .363, .444, .514, .590, . 644, .706, .765, .815, .861 , 

3 .882. .918. .937, .955, .966, .976, .980, .989,-991 , .997, .996/ 


• STEP  1:  COMPUTE  NOMINAL  SNR  AT  VIDEO  FILTER  OUTPUT  • 


STEP  1-1:  SET  SAMPLE  RATE  TO  OBTAIN  CORRECT  NOISE  BW  IN  SNRV  COMP. 
MSAfcNI 

IF  ( IMOOE . EQ. 1 ) MSAM-2 


STEP  1-2:  COMPUTE  NOMINAL  SNRV. 
SNR-SNRV (SIGMA, CGRNGE ) 


• STEP  2:  IF  NOT  SCANNING  ADD  BEAMSHAPE  LOSS  TO  SNRV  • 


STEP  2-1:  CHECK  SCAN  FLAG. 
IF(MSF.EO.I)  GO  TO  1 

STEP  2-2:  COMPUTE  BEAMSHAPE  LOSS 
OFF  BORESIGHT. 
BETA2-SPAT (CGANG ) * *2 


BASED  UPON  C.G.  POSITION 


STEP  2-3:  ADD  BEAMSHAPE  LOSS  TO  NOMINALV,  I.E.  COMPUTE  ACTUAL  SNR 
SNRV. 

SNR— SNR*BETA2 


* STEP  3:  DETERMINE  PROBABILITY  OF  DETECTION,  PD,  BASED  UPON  SNR  * 

STEP  3-1 : DETERMINE  INDEX  TO  ACCESS  APPROPRIATE  PD  VERSUS  SNR 
CURVE. 

1 I F ( IMODE. EQ . 2)  GO  TO  5 
NCRV-1 
GO  TO  15 

5 I F ( I ASM . LT . 3 ) GO  TO  10 
NCRV-3 
GO  TO  15 
10  NCRV-5 

ADJUST  INDEX  FOR  SCANNING. 

1 5 NCRV-NCRV+MSF 


STEP  3-2:  CONVERT  SNRV  TO  DB . 

I F ( SNR . LT . 1 . E— 08 ) GO  TO  20 
SNR-10  *ALOG10(SNR) 

GO  TO  25 
20  SNR— 100 

STEP  3-3:  SNR  OUTSIDE  (-30  DB,  0 DB)  INTERVAL"  IF  SO,  SET 

OUTCOME  APPROPRIATELY  AND  SKIP  REMAINING  STEPS. 

IF  SNR  < -25  DB  THEN  SET  PD-0.0  (DECLARE  A MISS). 

25  I F ( SNR . LT . —25 . ) GO  TO  30 


00007550 

00007560 

00007570 

00007580 

00007590 

00007600 

00007610 

00007620 

00007630 

00007640 

00007650 

00007660 

00007670 

00007680 

00007690 

00007700 

00007710 

00007720 

00007730 

00007740 

00007750 

00007760 

00007770 

00007780 

00007790 

00007800 

00007810 

00007820 

00007830 

00007840 

00007850 

00007860 

00007870 

00007880 

00007890 

00007900 

00007910 

00007920 

00007930 

00007940 

00007950 

00007960 

00007970 

00007980 

00007990 

00008000 

00008010 

00008020 

00008030 

00008040 

00008050 

00008060 

00008070 

00008080 

00008090 

00008100 

00008110 

00008120 

00008130 

00008140 

00008150 

00008160 

00008170 

00008180 


B-55 


C IF  SNR  > -5  DB  THEN  SET  PD-1.0  (DECURE  A HIT).  00008190 

IF(SNR.GT.-5.0)  GO  TO  35  00008200 

C 00008210 

C STEP  3-4:  COMPUTE  INDEX  FOR  LOOKUP  TABLE  AND  FACTORS  FOR  LINEAR  00008220 

C INTERPOLATION.  00008230 

SCALE- (SNR+25. )*2.+1 .000081  00008240 

I SNR- 1 NT (SCALE)  00008250 

REMAIN— SCALE-FLOAT(ISNR)  00008260 

C 00008270 

C STEP  3-5:  DETERMINE  PD  USING  TABLE  AND  LINEAR  (IN  DB)  INTERPOLATION.  00008280 
PROB-P ( I SNR )+REMA I N« ( P ( I SNR+1 )-P ( I SNR ) ) 00008290 

C 00008300 

C ... * 00008310 

C • STEP  4:  DETERMINE  OUTCOME  OF  DETECTION  ATTEMPT  • 00008320 

C 00008330 

C 00008340 

X— RNDU ( NSRCH ) 00008350 

IF(X. LE.PROB)  GO  TO  35  00008360 

C 00008370 

C 00008380 

C • STEP  5:  SET  CONTROLS  BASED  UPON  OUTCOME  OF  DETECTION  ATTEMPT  . 00008390 

C ................................................................  00008400 

C 00008410 

C STEP  5-1:  IF  NO  DETECTION  SET  TARGET  PRESENT  FUG  LOW.  00008420 

30  MTP-0  00008430 

RETURN  00008440 

C 00008450 

C STEP  5-2:  IF  DETECTION  SUCCESSFUL  SET  TARGET  PRESENT  FUG  00008460 

C HIGH  AND  INITIALIZE  ACQUISITION  CLOCK.  00008470 

35  MTP-1  00008480 

KACCLK— 0 00008490 

RETURN  00008500 

END  00008510 

C 00010640 

C 00010650 

C ................................................................  00010660 

C • THIS  FUNCTION  COMPUTES  THE  ©NOMINAL®  SNR  AT  THE  VIDEO  OUTPUT  • 00010670 

C • IT  ASSUMES  NO  BEAMS HAPE  OR  SCAN  LOSS.  • 00010680 

C 00010690 

C 00010700 

C 00010710 

FUNCTION  SNRV(SIGMA, RANGE)  00010720 

COMMON  /CNTL/IPWR . I MODE, ITXP , IDUMC(6) , DUMC(3)  00010730 

C0M40N  /ICNTL/IDUM( 12) ,MSS .MTKINT ,MRNG .MSAM.MPRF, IDUM2( 10)  00010740 

COMMON  /SYSDAT/DUM( 12) .TGTSIG ,GPS .GAS  00010750 

DIMENSION  PT(4),BN(2)  00010760 

CCCCCCCCCCCCCCCCC  MOD  MAR  24  1983  CCCCCCCCCCCCCCCCCCC 

DATA  PT/46.3.34.9,23. ,6.2/,  BN/69.9.57.9/  00010770 

C 00010780 

C 00010790 

C * DETERMINE  WHETHER  ACTIVE  OR  PASSIVE  MODE  • 00010800 

C 00010810 

IF(IMODE.EQ.I)  GO  TO  10  00010820 

C 00010830 

C • « 00010840 

C . PASSIVE  MODE  VIDEO  SNR  CALCUUTION  » 00010850 

C 00010860 

I F( (SRNG . LT . 640 . ) -OR . ( 1STS7 . EO. 1 ) ) ITXP— 4 
SNRV-GPS+PT ( I TXP )+ 1 0 . • ALOG 1 0 ( S I GMA ) -BN ( MSAM )-40 . • ALOG 1 0 ( RANGE)  000 1 0870 
SNRV-10 . ..(0,1 *SNRV)  00010880 

RETURN  00010890 

C 00010900 

C 00010910 

C » ACTIVE  MODE  VIDEO  SNR  CALCUUTION  • 00010920 
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10  SNRV-GAS-20 . *ALOG10( RANGE) 
SNRV-10.**(0.1*SNRV) 

RETURN 

END 

MOOIFIED  FOR  LENS 


• THIS  SUBROUTINE  MODELS  THE  SPAS  SPACECRAFT  SCATTERING  • 

* PROPERTIES.  . 


SES  SPAS  MODEL  AS  OF  JULY  7,1981. 


SUBROUTINE  SPAS 

COMMON  /SATDAT/RADAR(3)  ,KTAR,R(70,3)  ,SIG(70)  , ROLD,  ICLOSE,  ICLOLD 
1 ,JHOT(60) 

DIMENSION  SIGMA(61 ) ,TARG(61 ,3) ,PHIMIN(61 ,3) ,PHIMAX(61 ,3) 
DIMENSION  0FFSET(61)  ,PHI(61,3) 

DIMENSION  VECT(3) .COSPHI (61 ,3) 

DIMENSION  ALPH(24,3) . V(24 ,3) . NORMAL(24) ,DIM(24,3) ,WRAN(24 .3) 
DIMENSION  WSCALE(24,3),DPHI(24) ,PHIOLD(24) ,VOLD(24,3) ,KSEED(24,3 
DIMENSION  TTRAN(3) 


• DATA  DEFINITION:  INCLUDES  SCATTERER  LOCATION  IN  TARGET  FRAME.  • 

• MAXIMUM  SCATTERER  RCS  VALUE.  ANGULAR  EXTENT  • 

• OF  NONZERO  RCS,  ANO  OTHER  MISCELLANEOUS  DATA  . 

• REQUIRED  BY  THE  ROUTINE. 


SEED  FOR  RANDOM  NUMBER  GENERATOR 

DATA  KSEED/45 , 678 , 908 , 607 , 5678 , 897 . 345 , 7777 .67,4, 

1 560 . 809 . 444 , 888 , 999 . 555 . 222 .70,80. 8000 , 

2 5.15,25,35.45.55,65,75.85.95. 

3 7.17,27,37.47,57.67,77,87.97. 

4 9876,984,6666,2398,76,412.7589,409,899,561, 

5 205 . 3895 , 9457 , 9643 , 937 , 656 , 453 . 980 .567,2154. 

6 801,88.99.31.85.106,4,9,3.987, 

7 888,999/ 

DATA  DESCRIBING  DIMENSIONS  OF  WIDE-ANGLE  SCATTERERS 
DEFINITION:  D I M-2*D/ LAMBDA  (UNITLESS) 

DEFINITION:  WSCALE-SORT(D**2/( 12*NF) ) (UNITS-FEET.  NF—  OF  FREQ) 
DATA  DIM  /72*64.8/ 

DATA  WSCALE  /72*0.2965/ 

FOR  EACH  DIFFUSE  SCATTERER,  SPECIFY  NORMAL  COMPONENT 
DATA  NORMAL  /10*1 .2*2, 12*3/ 

SQUARE  ROOT  OF  RCS  VALUES  ( FEET). 

DATA  SIGMA/24*. 05, 3*2. 6. 2*61. ,1200. ,1.25,0.17.25.7,110. .90.  . 

2 100. ,850. ,1200. .1117. ,0.4,80. ,100. ,900. .85. ,750. .850. .920. . 

3 730. .6*0.03.1250. .1130. ,1400. ,900. .1000. .1150. .32.39/ 

COORDINATES  OF  SCATTERERS  IN  SPAS  FRAME  (FEET) 

DATA  TARG  /4. . 12. 6*-. 7 ,8*-. 35 , . 37 . 4*-. 35 . . 37 , 3* . 24,2* .37 . 

2 .66,3— .35, 3*. 12, 3*-. 3, 5*-. 35, 4*. 37. 6*. 24. 6*. 7. 0.0, 

3 1 .75,-1 .05.-1 .75. .35,1 .75,1.05, .35. -.35,-1 .05,-1.75,2.15, 

4 -2.15,1 .75.1 .05, .35. -.35,-1. 05,-1  .75, .35,1 .05. .35, -.35. 


00010930 

00010940 

00010950 

00010960 

00010970 

00032640 

00032650 

00032660 

00032670 

00032680 

00032690 

00032700 


00032710 

00032720 


00032800 

00032810 

00032820 

00032830 

00032840 

00032850 

00032860 

00032870 

00032880 

00032890 

00032900 


00032970 

00032980 

00032990 

00033000 
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5 -1  .75. .35,-. 83.-1 .05.-1 . 27 . 1 . 05 . 35 , . 35 , 3—1 .05.1.9,-1-05. 

6 -1  .8, 2.0, -2.0. .0.1 .75.1 .05. .35, -.35,-1 .75.2*1 .05.2— .35. 

7 2— .83,2— 1 .05,2—1 .27, 1 .75, 1 .05, .35 ,-.35,-1 .05,-1 .75,0.0, 

8 12*. 0,7*. 48, 5— .48, 3*. 15, 3* .0.3*-. 8, 3* .0,3* .67, -.86, 

9 4— .48,  .425, -.425,  .425, -.425, -.02,  .3, -.02,  .3, -.02,  .3, 

A 6*0.0,2.38/ 

C 

C MINIMUM  SUBTENDED  ANGLE 

DATA  PHIMIN  /4* .0,6*90. , 14*0. , 16*0. ,4*88.5,4*88.0,6*0.0, 

2 6*177.9,0. , 

3 11*0,90. ,12*. 0,50. ,35. ,30. , .0,45. 0,3*. 0,10. 0,4*. 0,177. 4, 

4 89.7, .0,4*88.5.4*88.0, 12*. 0.48. . 

5 19*0. ,5*90. ,3*85.9,3*88.5. 156. ,90. ,87.7,3*88.5,2*87.4, .0, 

6 90. ,4*178.5.0. .178. .0. ,178. ,90. ,0. .90. .0. ,90. ,0. ,6*88.5. 

7 48.0/ 

C 

C MAXIMUM  SUBTENDED  ANGLE 

DATA  PHIMAX  /4*90. ,20*180. .5*90. .2. 1 ,3*180. .3*2. 1 .4*180. , 

2 4*91.5,4*92. ,6*90. ,6*180. .48.. 

3 10*180. ,90. ,13*180. ,4*150. .155. .135. .2*180. .145. ,3*180. . 

4 2.6,180. ,90.3,180. .4*91 .5.4*92. ,6*180. ,6*180. .138. . 

5 12*180. ,7*90. ,5*180. ,3*94.1 ,3*91 .5,180. ,156. .92.3.3*91 .5,2*92.6, 

6 125. .5*180. ,2. .180. .2. .2*180. .90. .180. ,90. ,180. ,90. .6*91 .5,138./ 
C 

C RADII  OF  THE  SCATTERERS  (FEET) 

DATA  OFFSET  /24* .0,3* . 1 ,2* .29. .0,2* .35, .315,5* .0. .24, .35,8*0. , 

2 6*. 1,6*. 0,0.0/ 

C 

C MISCELLANEOUS  DATA. 

DATA  NTAR/6 1 / . KWI DE/24/ , P I /3 . 1 41 592653/ 

DATA  TTRAN/3*0 .0/, INIT1/1/ 

C 

C •*****•••»•••*••***••***•****•**•«*******»*••»•••***••••*****•*••* 

C * STEP  0:  TRANSLATE  POINT  TARGETS  BY  TARGET  FRAME  OFFSET  (TTRAN)  * 

C •****»•«•••*********•*••*»*•*»*•»**»**•************•**•******•**•• 

IF(  INIT1 .NE. 1)  GO  TO  2 
C 

C RANDOMIZE  DIFFUSE  SCATTERER  RCS  VALUES. 

C 

I SEED- 100 
DO  107  1-1 , 1000 

107  X— RNDU( I SEED) 

DO  108  1-1 , KWIDE 
X-RNDU( I SEED) 

C CHANCE  MADE  9-11-81 

108  SIGMA( I)— SIGMA( I )+(X*0. 005)— 0.0025 
C 

C CONVERT  TARGET  DATA  APPROPRIATELY . 

C 

FTM-0 . 3048 
DO  101  I-1.NTAR 

101  SIGMA(I)— SORT(SIGMA(I))/FTM 
DO  102  J-1 ,NTAR 

DO  102  1-1  .3 

102  TARG( J , I )-TARG( J , I )/FTM 
DO  103  J-1.NTAR 

DO  103  1-1 .3 

PHIMIN( J , I )-COS(PHIMIN( J . I)*PI/180. ) 

103  PHIMAX (J . I )— COS (PH I MAX (J , I)*PI/180. ) 

DO  105  1-1 , NTAR 

1 05  OFFSET ( I )— OFFSET ( I )/FTM 

C 

DO  1 K-1.NTAR 
DO  1 1-1,3 


00033580 

00033590 


00033620 

00033630 


00033660 

00033670 

00033680 

00033690 

00033700 


00033710 

00033720 
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1 TARG ( K . I )-TARG ( K . I )+TTRAN ( I ) 00033730 

INIT1-0 

C 00033740 

C 00033750 

C • STEP  1:  DETERMINE  WHICH  SCATTERER  ARE  ILLUMINATED  AND  HAVE  A • 00033760 

C • NONZERO  RCS  IN  THE  DIRECTION  OF  THE  RADAR.  . 00033770 

C 00033780 

C 00033790 

C STEP  1-1:  PERFORM  REQUIRED  INITIALIZATIONS.  00033800 

2 CONTINUE  00033810 

NW IDE-0  00033820 

KTAR-0  00033830 

C 00033840 

C STEP  1-2:  COMPUTE  UNIT  VECTOR  IN  DIRECTION  OF  RADAR  FOR  00033850 

C ITH  SCATTERING  CENTER.  00033860 

DO  15  I-1.NTAR  00033870 

DO  5 J-1 .3  00033880 

VECT(J)«RAOAR(J)-TARG(I . J)  00033890 

5 CONTINUE  00033900 

VNOR^SORT  ( VECT  ( 1 ) . . 2+VECT  ( 2 ) • • 2+VECT ( 3 ) • »2 ) 000339 1 0 

OO  10  J-1,3  00033920 

I F(ABS(VECT( J ) ) . GT . ABS(VNORM))WRITE(6 , •) 'VECT  GREATER  THAN  VNORM’ 

COSPHI ( I , J )— VECT( J)/VNORM  00033930 

C 00033940 

C STEP  1-3:  DETERMINE  WHETHER  ITH  SCATTERER  HAS  A NONZERO  RCS  IN  THE  00033950 

C DIRECTION  OF  THE  RADAR.  00033960 

I F (COSPHI ( I , J ) . LT.PH1MAX(I , J)  .OR. COSPHI ( I . J) .GT .PHIMIN( I , J ) ) 00033970 

2 GO  TO  15  00033980 

10  CONTINUE  00033990 

C 00034000 

C STEP  1-4:  IF  ITH  SCATTERER  RCS  IS  NONZERO  THEN  ADD  TO  VECTOR  OF  00034010 

C ILLUMINATED  SCATTERERS.  00034020 

KTAR-KTAR+1  00034030 

JHOT(KTAR)-I  00034040 

SIG(KTAR)-SIGMA(I)  00034050 

IF( I . LE.KWIDE)  NWIDE-NWIDE+1  00034060 

15  CONTINUE  00034070 

C 00034080 

C 00034090 

C * STEP  2:  COMPUTE  LOCATION  OF  SPECULAR  POINTS  THAT  ARE  ILLUMINATED  • 00034100 

C ....................................................................  00034110 

DO  20  K-1.KTAR  00034120 

I-JHOT(K)  00034130 

DO  20  J-1.3  00034140 

R(K, J )-TARG( I , J )+OFFSET( I ) ‘COSPHI ( I , J)  000341 50 

20  CONTINUE  00034160 

C 00034170 

C 00034180 

C • STEP  3:  COMPUTE  SOUARE  ROOT  OF  RCS  FOR  ALL  ILLUMINATED  WIDE  * 00034190 

C » ANGLE  SCATTERERS  (REPRESENTING  DIFFUSE  SCATTERING  . 00034200 

C • AREAS).  • 00034210 

C 00034220 

DO  22  K-1.NWIDE  00034230 

I-JHOT(K)  00034240 

IQ-NORMAL(I) 

22  SIG(K)-SQRT(ABS(COSPHI(I,IQ  )))»SIGMA(I)  00034250 

C 00034260 

C 00034270 

C • STEP  4:  CHECK  FOR  SHORT  RANGE  CONDITION  » 00034280 

C ...........................................  00034290 

C 00034300 

C STEP  4—1 : DETERMINE  RANGE  TO  RADAR  IN  TARGET  FRAME.  00034310 

24  RANG  E— SQR  T ( RADAR ( 1 ) • * 2+R ADAR ( 2 ) • • 2+R ADAR ( 3 ) • * 2 ) 00034320 

C 00034330 


C STEP  4-2:  SET  HYSTERESIS  LOOP  MONITORING  VARIABLE.  00034340 

I F( (ROLD . LT . . 01 . OR . RANGE-ROLD . LE . 0 . ) . AND . RANGE . LE . 270 . ) ICLOSE-1  00034350 
I F(RANGE-ROLD . GT . 0 . . AND . RANGE . GT . 50 . ) I CLOSE-0  4360 

C 00034370 

C STEP  4-3:  CHECK  MONITORING  VARIABLE  TO  DETERMINE  IF  SHORT  RANGE  00034380 

C CONDITION  EXISTS.  00034390 

IF(ICLOSE. EQ.0.OR.NWIDE. EQ.0)  GO  TO  55  00034400 

C 00034410 

C • •• 00034420 

C » STEP  5:  PROCEDURE  FOR  UPDATING  OF  DIFFUSE  SCATTERING  * 00034430 

C * CENTER  LOCATION  SHORT  RANGE  CONDITION  ONLY.  • 00034440 

C 00034450 

C 00034460 

C STEP  5-1:  IF  FIRST  TIME  THRU  PERFORM  INITIALIZATION  OF  00034470 

C DIFFERENCE  EQUATIONS  FOR  ALL  DIFFUSE  SCATTERERS.  00034480 

IF( ICLOLD. EQ. 1 ) GO  TO  35  00034490 

DO  30  I-1.KWIDE  00034500 

lO-NORMAL(I) 

PHI0LD( I )— ACOS(COSPHI ( I , IQ  ))  - 00034510 

DO  25  J-1,3  00034520 

IF(J.EQ. IQ  ) GO  TO  25  00034530 

V(  I , J )*WSCALE( I , J ) . (RNDU(KSEED( I , J ) )- . 5)  00034540 

VOLD( I , J )— V( I , J ) 00034550 

R ( I , J )— R ( I , J )+V ( I ,J)  00034560 

25  CONTINUE  00034570 

30  CONTINUE  00034580 

GO  TO  55  00034590 

C 00034600 

C STEP  5-2:  UPDATE  ANGULAR  INCREMENT  FOR  EACH  DIFFUSE  SCATTERER  00034610 

C CHANGE  IN  ANGLE  FROM  SAMP LE-TO-S AMPLE.  00034620 

35  DO  40  I-1.KWIDE  00034630 

I(^NORMAL(I) 

PHI  (I. IQ  )— ACOS(COSPHI ( I , IQ  ))  00034640 

DPHI ( I )— (PHI ( I , IQ  )-PHIOLD(I))  00034650 

PHIOLD( I )— PHI ( I , IQ  ) 00034660 

40  CONTINUE  00034670 

C 00034680 

C 00034690 

C STEP  5-3:  UPDATE  SCATTERER  LOCATION  FOR  ALL  ILLUMINATED  DIFFUSE  00034700 

C SCATTERER  UPDATE  DIFFERENCE  EQUATIONS.  00034710 

DO  50  K-1.NWIDE  00034720 

1— JHOT(K)  00034730 

DO  45  J-1.3  00034740 

IQ-NORMAL(I) 

IF( J . EQ. IQ  ) GO  TO  45  00034750 

ALPH( I , J )— EXP(— DIM( I , J ) .ABS(DPHI ( I ) .COSPHI ( I , IQ  )))  00034760 

WRAN( I , J )— SORT ( 1 .-ALPH(I , J) »*2) »WSCALE( I . J)* (RNDU(KSEED( 1 , J ))-. 5)00034770 
V(  I , J )-ALPH( I , J ) «VOLD( I . J )+#RAN( I , J ) 00034780 

VOLD( I , J )— V( I , J ) 00034790 

R(K,  J)— R(K , J )+V( I , J)  00034800 

45  CONTINUE  00034810 

50  CONTINUE  00034820 

55  CONTINUE  • 00034830 

C 00034840 

C 00034850 

C * STEP  6:  UPDATE  PARAMETERS  USED  TO  MONITOR  TARGET  POSITION  • 00034860 

C • ON  SHORT  RANGE  HYSTERESIS  CURVE.  • 00034870 

C .............................................................  00034880 

ROLD-RANGE  00034890 

1CLOLD-ICLOSE  00034900 

C 00034910 

C 00034920 

C WRITE(6 , 908)  KTAR.NWIDE, ICLOSE.ROLD  00034930 

908  FORMAT(/’  TT.WT.IC.R  -* .3I8.F12.4)  00034940 
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C 00034956 

C • NOTE:  THE  FOLLOWING  STATEMENTS  ARE  PRINT  STATEMENTS  USED  IN  THE  • 00034960 

C > DEBUGGING  PROCESS.  * 00034970 

C • 00034980 

C 00034990 

C 00035000 

C NOTE:  DEBUGGING  PRINT  STATEMENTS.  00035010 

C PRINT  LOCATION  OF  RADAR  IN  TARGET  FRAME.  00035020 

C WRITE(6,900)  RADAR  00035030 

C 00035040 

C PRINT  TABULAR  LISTING  OF  ALL  DATA  ASSOCIATED  WITH  SPAS  SCATTERERS.  00035050 

C WRITE(6,901  )(I  ,SIGMA(  I ) ,TARG(1 , 1 ) ,TARG(  1 ,2)  ,TARG(  1 ,3)  ,OFFSET( I ) 00035060 

C 8 ,PHIMIN( 1,1),  00035070 

C 1 PH  I MAX  ( I,1),PHIMIN(I,2)  ,PHIMAX(  1 ,2)  ,PHIMIN(  1.3)  ,PHIMAX(  1 .3)  , 00035080 

C 2 I-1.NTAR)  00035090 

C 00035100 

C PRINT  TOTAL  - OF  SCATTERERS  AND  - OF  DIFFUSE  SCATTERERS.  00035110 

C WRITE(6,902)  KTAR.NWIDE  00035120 

C 00035130 

C PRINT  INFORMATION  ASSOCIATED  WITH  ILLUMINATED  SCATTERERS.  00035140 

C WRITE(6 ,903)  00035150 

C WRITE( 6,904)  ( I . JHOT( 1 ) ,SIG(I ) . (R( I . J) . J-1 .3) , 00035160 

C 1 I-1.KTAR)  00035170 

C 00035180 

C PRINT  DATA  ASSOCIATED  WITH  DIFFUSE  SCATTERER  DIFFERENCE  EOUATION.  00035190 

C WRITE(6 , 905) I ,PHIOLD( I ) , 00035200 

C 1 (V(I,L),L-1,3),(R(I.L).L-1,3)  00035210 

C IG-NORMAL(I) 

C WRITE(6,906)  I . PHI ( I , IQ  ) ,PHIOLD( I ) ,DPHI ( I ) 00035220 

C WRITE(6,907)K.I,(VOLD(I,J).J-1  .3) . (ALPH(I , J) . J-1 .3) , 00035230 

C 1 (WRAN(IfJ).J-1.3).(V(I>J).J-1.3),(R(I.J).J-1.3)  00035240 

C 00035250 

C ALL  PRINT  FORMAT  STATEMENTS.  00035260 

900  FORMAT ( ’ IN  FEET.  RADAR  - (\F8. 1 . \ . F8. 1 . ’ . ’ .F8. 1 . * ) ’ ) 00035270 

901  FORMAT(I12.F10.2.3F8.3.F12.3,4X.2F8.2.4X.2F8.2.4X,2F8.2)  00035280 

902  FORMAT ( ' TOTAL  - OF  TARGETS  - ’ , 13, ’ OF  THESE.  - MARKOV  - ’.00035290 

1 12)  00035300 

903  FORMAT (// , 9X , ’ I ’ ,3X, ’ JHOT(I) ’ ,7X,  ’RCS’ .5X. ’PH1-X’ ,5X, ’PHI-Y’ . 00035310 

1 5X. ’PHI-Z* ,/)  00035320 

904  FORMAT(2I10.4F10.3)  00035330 

905  FORMAT (I3,F15.3,2(5X,3F10.3))  00035340 

906  FORMAT ( ’ 1 ,PHI .PHIOLD.DPHI ’ ,/. I3.3F10.3)  00035350 

907  FORMAT(2I3 . 5(2X ,3F7 . 3) ) 00035360 

RETURN  . 00035370 

END  00035380 

C 00030460 

C 00030470 

C ................................................................  00030480 

C « THIS  FUNCTION  GIVES  THE  ANTENNA  SUM  PATTERN  WEIGHTING  OF  THE  * 00030490 

C • RADAR  SIGNAL  FOR  THE  GIVEN  ANGLE(  IN  RADIANS)  OFF  BORESIGHT  • 00030500 

C 00030510 

C 00030520 

C 00030530 

FUNCTION  SPAT(X)  00030540 

C NOTE:  THE  FOLLOWING  VALUE  OF  B GIVES  THE  SUM  PATTERN  A SINGLE-SIDED  00030550 

C 3 DB  BEAMWIDTH  OF  0.85  DEGREES.  00030560 

Y-93.80*X  00030570 

TEMP-ABS(Y)  00030580 

IF(TEMP.GT. 1 .0E-06)  GO  TO  10  00030590 

SPAT- 1.0  00030600 

RETURN  00030610 

10  SPAT-SIN(Y)A  * 00030620 

RETURN  00030630 

END  00030640 


C 00010490 

C 00010500 

C 00010510 

C • THIS  FUNCTION  COMPUTES  THE  EXPRESSION  (SIN(NX).*2/(N  SIN(X)*»2))  • 00010520 

C 00010530 

C 00010540 

C 00010550 

FUNCTION  SUM(X.N)  00010560 

Y-SIN(X).*2  00010570 

IF(Y.GT. 1 .0E— 08)  GO  TO  10  00010580 

SUM-N  00010590 

RETURN  00010600 

10  SLtMSIN(N*X).*2/(N*Y)  00010610 

RETURN  00010620 

END  00010630 

C 00004100 

C 00004110 

C 00004120 

C * THIS  SUBROUTINE  RESETS  THE  SYSTEM  UNDER  THE  FOLLOWING  CONDITIONS  • 00004130 

C . (1)  BREAK-TRACK  (TO  SEARCH).  (2)  PASSIVE/ACTIVE  MODE  CHANGE  (TO  • 00004140 

C • SEARCH).  AND  (3)  SYSTEM  IN  STANDBY  (TO  IDLE).  * 00004150 

C ................MM............. 00004160 

C 00004170 

C 00004180 

SUBROUTINE  SYSINT  00004190 

COMMON  /CNTL/IPWR , I MODE. 1TXP , I ASM, IDUMC(5) ,DUMC(3)  00004200 

COMMON  /OUTPUT /MSWF . MT F . MS F . SRNG . SRDOT . SPANG . SRANG . SPRT E . SRRT E , 00004210 

2 SSRS . MADVF . MRDVF . MARDVF . MRRDVF  00004220 

COMMON  /ICNTL/IOLDPW , IOLDMD , IOLDSM, ISHOLD , KMSCLK , KWMUP .KSNCLK , 00004230 

2 KSNMAX , KACC  LK , MTP , MZ 1 ,MZ0. MSS. MTKINT.MRNG.MSAM.MPRF, 00004240 

3 MBKTRK . M8TSUM , MBT ( 8 ) 00004250 

COMMON  /ATDAT/DUM1 (4) ,ALRATE,BTRATE,DUM2(2) .AL.BT.PREF.RREF  00004260 

C 00004270 

C 00004280 

C • STEP  1:  INITIALIZE  ALL  INTERNAL  FLAGS  AND  CONTROLS  • 00004290 

C 00004300 

lOLDMD-IMOOE  00004310 

IOLDSM.  I ASM  00004320 

ISHOLD-0  00004330 

MTP-1  00004340 

MZ1-0  00004350 

MZ0-0  00004360 

MSS— 0 00004370 

MTKINT-0  00004380 

C 00004390 

C 00004400 

C • STEP  2:  INITIALIZE  ALL  INTERNAL  CLOCKS  • 00004410 

C ........................................  00004420 

KACCLK-0  00004430 

KSNCLK-0  00004440 

C 00004450 

C ......................................  00004460 

C • STEP  3:  INITIALIZE  ALL  DISPLAY  FLAGS  • 00004470 

C ......................................  00004480 

MSWF-0  00004490 

MSF-0  00004500 

MTF-0  00004510 

MADVF-0  00004520 

MRDVF-0  00004530 

MRRDVF— 0 00004540 

MARDVF— 0 00004550 

C 00004560 

C 00004570 

C * STEP  4:  INITIALIZE  ALL  DISPLAY  METERS  • 00004580 
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SRNG-0.0 

SRDOT-0.0 

SPRTE-0.0 

SRRTE-0.0 

SRSS-0.0 


• STEP  5:  INITIALIZE  GIMBAL  POINTING  LOOP  • 


PI  1-3. 14159265/180. 

ALRATE— 0.0 
BTRATE— 0.0 

I F ( I PWR . NE . 1 . AND . KMSCLK . NE . 1 ) GO  TO  5 

STEP  5-1:  IF  SYSTEM  POWER  OFF  THEN  ALIGN  BORESIGHT  WITH  ZENITH. 
PREF-0.0 
RREF-0.0 
AL-0.0 
BT-0.0 
SPANG— 0 . 0 
SRANG— 0 . 0 
IOLDPW— IPWR 
RETURN 

5 IF( IPWR.GT.2)  GO  TO  15 

STEP  5-2:  IF  SYSTEM  IN  STANDBY  THEN  HOLD  GIMBALS  AT  POSITION  WHEN 
STANDBY  ENTERED  AND  ZERO  DISPLAYS. 

I F ( I OLDPW . EQ . 1 PWR ) GO  TO  10 
PREF— PI  I ♦SPANG 
RREF-PI I * SRANG 
10  SPANG— 0 . 0 
SRANG— 0 . 0 
IOLDPW— IPWR 
RETURN 

STEP  5-3:  PREPARE  GIMBAL  LOOP  FOR  ENTRY  INTO  ANY  OF  SEARCH  MOOES. 
15  PREF— PI  I * SPANG 
RREF-PI I • SRANG 
I OLDPW- IPWR 
RETURN 
END 


•THIS  SUBROUTINE  UPDATES  THE  DATA  VALID  FLAG  STATUS  • 


SUBROUTINE  TGTACO 

COMMON  /CNTL/1PWR,  IMODE,  ITXP , I ASM,  IDUMC(5)  .DUMC(3) 

COMMON  /OUTPUT/MSWF.MTF.MSF.DUMI  (7)  , MADVF , MRDVF , MARDVF , MRRDVF 
COMMON  /1CNTL/IDUM3(8)  , KACCLK  ,MTP  ,MZ1  .MZ0.MSS.MTKINT, 

2 MRNG , IDUM4( 12) 

COUPON  /SYSDAT/TS,  DUMS(  14) 

DIMENSION  ADV(10,2) , RDV(10,2) ,ARDV(10,2) 

DATA  ADV/9* 1 .02,5. 12, 8*1 .02.2*2.33/ 

DATA  RDV/9*6 . 15,28.69,8*6.97,2*29.76/ 

DATA  ARDV/9*8.2,28.69,7*8.2,26.23,2*29.76/ 


• STEP  1:  UPDATE  ACQUISITION  CLOCK  • 

**********************»**»»***v***«* 

KACCLK— KACCLK+1 
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ACCLK-KACCLK.TS 


00017416 

C 00017420 

C ................ 00017430 

C • STEP  2:  PERFORM  ANGLE  DATA  VALID  TEST  GPC-ACQ  + AUTO  ONLY  . 00017440 

C 00017450 

IF(1ASM.EQ.2.0R. IASM.E0.4)  GO  TO  10  00017460 

IF(ACCLK. LT . ADV(MRNG, IMODE) ) GO  TO  10  00017470 

MADVF-1  00017480 

C 00017490 

C 00017500 

C • STEP  3:  PERFORM  RANGE  AND  RANGE  RATE  DATA  VALID  TEST  • 00017510 

C 00017520 

10  IF(ACCLK. LT ,RDV(MRNG, IMODE))  GO  TO  15  00017530 

MRDVF-1  00017540 

MRRDVF-1  00017550 

C 00017560 

C IF  GPC-DES  OR  MANUAL  INITIALIZE  RADAR  TRACKING  PARAMETERS.  00017570 

CCCCCCCCCCCCCCCCCCC  MOO  MAR  24  1983  CCCCCCCCCCCCCCCCCCCCCCC 

15  I F( ( IASM. EQ . 2 .OR . I ASM. EQ.4) . AND .MRDVF . EQ. 1 ) GO  TO  20  00017580 

C 00017590 

C 00017600 

C » STEP  4:  PERFORM  ANGLE  RATE  DATA  VALID  TEST  GPC-ACQ  + AUTO  • 00017610 

C • MODES  ONLY.  * 00017620 

C 00017630 

IF(ACCLK.LT.ARDV(MRNG. IMODE))  RETURN  00017640 

MARDVF-1  00017650 

C 00017660 

C 00017670 

C . STEP  5:  PERFORM  STEADY  STATE  RADAR  TRACKING  INITIALIZATION  . 00017680 

C 00017690 

20  KACCLK-0  00017700 

MTF-1  00017710 

RETURN  00017720 

END  00017730 

C 00032040 

C 00032050 

C * 00032060 

C • THIS  SUBROUTINE  GENERATES  A (3X3)  MATRIX  TTH  THAT  PRODUCES  • 00032070 

C » A ROTATION  OF  TH  RADIANS  ABOUT  THE  X-AXIS.  * 0003208 0 

C ..............................................................  00032090 

C 00032100 

C 00032110 

SUBROUTINE  THETA ( TTH, TH)  00032120 

DIMENSION  TTH(3,3)  00032130 

DO  10  1-1,3  00032140 

DO  10  J-1,3  00032150 

10  TTH( I , J )— 0 . 0 00032160 

TTH( 1 , 1 )— 1 . 0 00032170 

TTH(2 , 2)— COS(TH)  00032180 

TTH  (3, 3)— TTH (2. 2)  00032190 

TTH(2,3)— SIN(TH)  00032200 

TTH(3.2)— TTH(2.3)  00032210 

RETURN  00032220 

END  00032230 

C 00015100 

C 00015110 

C 00015120 

C » THIS  SUBROUTINE  INITIALIZES  THE  ANGLE  TRACKING  LOOPS,  THE  • 00015130 

C • RANGE  TRACKING  LOOP,  AND  THE  VELOCITY  PROCESSOR  STEADY  • 00015140 

C » STATE  CONDITIONS  ARE  ASSUMED.  • 00015150 

C ..............................................................  00015160 

C 00015170 

C 00015180 

SUBROUTINE  TKINIT  00015190 
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REAL  INTT , IRNG, IRDOT , IVR 

COMMON  /CNTL/IPWR, I MODE, ITXP, IASM, IDUMC(5) ,DUMC(3) 

COMMON  /INPUT/  ERT(3) , EVT(3) , EWB(3) ,DUM(18) 

COMMON  /OUTPUT/  I30UM(3) , SRNG.DUM1 (6) , IDUM1 (4) 

COMMON  / 1 CNT  L/ 1 1 DUM  (13),  MTK I NT , MRNG , MSAM , MPRF , MBKTRK , M6TSUM , 

2 M8T(8) .MPFOLD 

COMMON  /SYSOAT/TSAM , DR ( 3 ) , CP , SP , PS I , PSB I AS . DUM2 ( 7 ) , TRB ( 3 , 3 ) 
COMMON  /TGTDAT/NT , DUM5 ( 500 ) ,RO(3)  ,R0U(3)  .CGRNGE.CGVEL 
COMMON  /SAT0AT/RADAR(3) ,KTAR,RT(70,3) ,SIG(70) .ROLD, ICLOSE, ICLOLD 
COMMON  /ATDAT/CA , SA , CB . SB , AZRATE , ELRATE . ALRATE , BTRATE  .AL.BT. 

2 DUM3(2) 

COMMON  /RTDAT/IRDOT , IRNG.RBIAS , VEST(4)  ,MDF(5) 

COMMON  /XFORMS/  TLB(3,3)  .TLBD(3,3)  ,TLT(3,3)  ,TLTD(3,3) 

COMMON  / AGCDAT/AGCO , AGCOOB , SNRDT , SNRDTD 

DIMENSION  ER(3)  . EV(3)  . ERTO(3) , FLTWID(3)  .RI  (10) 

DATA  FLTWID/7 .7215,3. 3090 , 0 . 2969/ 

C •***RI  DATA  STATEMENT  UPDATED  FEB  6.1986  BY  M.  MEYER  **.•*****.•* 

DATA  RI/120. .640. .1520. .2560. .5760. . 1 1520. ,23040. ,43520. , 

2 49920 . , 1 . 8228E+6/ , NRI/1 0/ , P 1/3 . 1 41 592653/ 


• STEP  0:  INITIALIZE  BREAK-TRACK  ALGORITHM  * 


STEP  0-1:  INITIALIZE  MOVING  WINDOW-OF-8  REGISTERS. 
DO  3 1-1  ,8 
3 M8T ( I )— 0 

STEP  0-2:  INITIALIZE  SUM  REGISTER . 

MBTSuiyM 

STEP  0-3:  SET  BREAK-TRACK  FLAG  TO  LOW  (OR  0)  STATE. 
MBKTRK— 0 


• STEP  1:  INITIALIZE  ANGLE  TRACKING  LOOP  * 

IF( IASM. E0.2.0R. IASM. EQ.4)  GO  TO  5 

STEP  1-1:  COMPUTE  INITIAL  INNER  AND  OUTER  GIMBAL  POSITIONS. 
(NOTE:  TRANSFORM  CONSISTS  OF  TRANSLATION  PLUS  ROTATION.) 

PERFORM  TRANSLATION  SHIFT  TO  RADAR  FRAME  ORIGIN. 

DO  1 1-1 ,3 

1 ERTO( I )— ERT ( I )— OR( I ) 

TRANSFORM  TARGET  POSITION  FROM  BODY  TO  RADAR  FRAME. 

CALL  MULT31 (TRB, ERTO, ER) 

TRANSFORM  TARGET  VELOCITY  FROM  BODY  TO  RADAR  FRAME. 

CALL  MULT31 (TRB, EVT , EV) 

SO«SORT(ER(2)*ER(2)-fER(3)*ER(3)) 

COMPUTE  INNER(BETA)  GIMBAL  POSITION  BT . 

IF(ER(1).EQ.0.0. AND . SO . EQ . 0 . 0 ) STOP 
BT— ATAN2(ER(  1 ) .SO) 

ER2— ER(2') 

ER3— ER(3) 

COMPUTE  OUTER (ALPHA)  GIMBAL  POSITION  AL. 

I F ( ER2 . EO . 0 . 0 . AND . ER3 . EQ . 0 . 0)  GO  TO  8 
A L— AT AN2  ( ER2 , ER3 ) 

GO  TO  9 

8 IF(ER(1 ) .GT.0.0)  AL— PI/2 . 

IF(ER(1).LT.0.0)  AL— PI/2. 

IF(ER(1 ) . EQ.0.0)  STOP 

STEP  1-2:  COMPUTE  INITIAL  TARGET  INERTIAL  LOS  AZIMUTH  AND 
ELEVATION  RATES. 
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C PRELIMINARY  TRIGONOMETRIC  COMPUTATIONS. 

9 CA-COS(AL) 

SA-SIN(AL) 

CB-COS(BT) 

SB-SIN(BT) 

C TRANSFORM  BODY  ANGULAR  VELOCITY  VECTOR  FROM  BODY  TO  OUTER 
C GIMBAL(G)  REFERENCE  FRAME. 

WGX-CP * EWB ( 1 )+SP * EWB ( 2 ) 

WGY-CA* (— SP*EWB( 1 )+CP*EWB(2) )+SA*EWB(3) 

WGZ— SA*(-SP*EWB(1)+CP*EWB(2))+CA*EWB(3) 

C COMPUTE  THE  RANGE  TO  TARGET. 

R-SQRT(ER(1)*ER(1)+ER(2)*ER(2)+ER(3)*ER(3)) 

C COMPUTE  INITIAL  TARGET  INERTIAL  LOS  AZIMUTH  RATE(AZRATE) . 
VGY«CA*EV(2)+SA*EV(3) 

AZRAT  E— VG Y/R+ ( CB* WGX— SB  *WGZ ) 

C COMPUTE  INITIAL  TARGET  INERTIAL  LOS  ELEVATION  RATE(ELRATE) . 

ELRATE— (CB*EV(1)-SB*(-SA*EV(2)+CA*EV(3)))/R+WGY 
C 

C STEP  1-3:  COMPUTAE  INITIAL  INNER  AND  OUTER  GIMBAL  RATES. 

C CONFUTE  INITIAL  OUTER  GIMBAL  RATE(ALRATE) . 

RCB-R*CB 

IF(ABS(RCB).LT.1 .0E-6)  GO  TO  2 
ALRATE-VGY/RCB 
GO  TO  4 
2 A LR  ATE-0. 

4 CONTINUE 

C COMPUTE  INITIAL  INNER  GIMBAL  RATE(BTRATE) . 

BTRATE-ELRATE-WGY 


• STEP  2:  INITIALIZE  RANGE  TRACKING  LOOP  * 


STEP  2-1;  TRANSFORM  TARGET  C.G.  POSITION  AND  C.G.  VELOCITY  FROM 
BODY  TO  ANTENNA  LOS  FRAME. 

5 CALL  TRNSFM 
CALL  PVTRAN 

STEP  2-2:  INITIALIZE  THE  RANGE  ESTIMATE  REGISTER. 

SRNG-CGRNGE 

I RNG* I NTT ( SRNG • 3 . 2+0 . 5 ) 

STEP  2-3:  INITIALIZE  THE  RANGE  RATE  ESTIMATE  REGISTER. 

I RDOT- 1 NTT ( CG VE  L * TSAM*  3 . 2+0 . 5 ) 


* STEP  3:  SET  OPERATING  PARAMETERS  BASED  UPON  INITIAL  RANGE  * 

* AND  SYSTEM  MODE.  • 


STEP  3-1:  DETERMINE  CORRECT  RANGE  INTERVAL. 
DO  30  1-1 , NR1 
MRNG-I 

IF(RI ( I ) .GT.  SRNG)  GO  TO  40 
CONTINUE 

STEP  3-2:  DETERMINE  CORRECT  SAMPLE  RATE. 

40  1F( IM0DE.GE.2)  GO  TO  44 

IF(MRNG.GT .9)  GO  TO  42 
MSAKM 
GO  TO  50 
42  MS  AM-2 

GO  TO  50 

44  IF(MRNG.GT .4)  GO  TO  46 
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MSAM-1 
GO  TO  50 
MS  AM-2 

STEP  3-3:  DETERMINE  CORRECT  PRF. 

I F( I MODE. GE. 2)  GO  TO  54 

IF(MRNG.GT.9)  GO  TO  52 

MPRF-1 

GO  TO  60 

MPRF-3 

GO  TO  60 

IF(MRNG.GT.9)  GO  TO  56 

MPRF-1 

GO  TO  60 

MPRF-2 

CONTINUE  * 

STEP  3-4:  SET  PRF  TRANSITION  FUG. 
MPFOLD-MPRF 


• STEP  4:  INITIALIZE  VELOCITY  PROCESSOR  • 


STEP  4-1:  INITIALIZE  MOVING  WINDOW  VELOCITY  AVERAGING. 
DO  10  1-1 ,4 
VEST ( I )— CGVEL^20 . 

STEP  4-2:  SET  INITIAL  POSITION  OF  5 DOPPLER  FILTERS. 
VR— CGVEL/FLTWI D ( MPRF) 

I VR— I NTT ( VR+0 . 5 ) + 1 6000 . 

XX— AMOD  ( I VR , 32 . ) 

MDF(3)— INT (XX) 

DO  20  1-1  ,5 

MD— MDF(3)+I— 3+1 60 

MDF(I)-MOD(MD,32) 


• STEP  5:  INITIALIZE  AGC  LOOP  * 


AGCO-1 .0 
ITXP— 1 


• STEP  6:  SET  TRACK  INDICATOR  TO  ALLOW  OPERATION  OF  TRACK  LOOP  • 


MTKINT-1 

ROLD— 0 . 

ICLOSE— 0 
ICLOLD— 0 

NOTE:  DEBUGGING  PRINT  STATEMENTS. 


WRITE(6 ,899) 

WR I TE ( 6 , 900 ) AZRATE . ELRAT E . ALRATE . BTRATE . AL . BT 
WRITE(6 .901 ) 

WRITE(6,902)  IRNG, IRDOT , SRNG 
WRITE(6.903) 

WRITE( 6,904)  (VEST ( I ) , 1—1 ,4) , (MDF( J) . J-1 ,5) 
WRITE(6,905) 

WRITE(6 , 906)  I MODE , MRNG , MS  AM , MPRF 

FORMAT (// ’ TRACKER  INITIALIZATION:  V*  ATRACK:  AZRATE*  , 
’ .ELRATE. ALRATE. BTRATE, AL.BT') 

FORMAT (6F 14. 6) 


00016480 
00016490 
00016500 
00016510 
00016520 
00016530 
00016540 
00016550 
00016560 
00016570 
00016580 
00016590 
00016600 
00016610 
00016620 
00016630 
00016640 
00016650 
00016660 
00016670 
00016680 
00016690 
00016700 
00016710 
00016720 
00016730 
00016740 
00016750 
00016760 
00016770 
00016780 
00016785 
00016790 
00016800 
00016810 
00016820 
00016830 
00016840 
00016850 
00016860 
00016870 
00016880 
00016890 
00016900 
00016910 
00016920 
00016930 
00016940 
00016950 
00016960 
00016970 
00016980 
00016990 
00017000 
00017010 
00017020 
00017030 
00017040 
00017050 
00017060 
00017070 
r>00 17080 
00017090 
00017100 
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901  FORMAT C RTRACK : I RNG , I ROOT . SRNG ’ ) 

902  FORMAT (2I8.F14.6) 

903  FORMAT (*  VTRACK : VEST.MDF') 

904  F0RMAT(4F14.6,5I8) 

905  FORMAT (■  CNTL:  1M0DE,MRNG ,MSAM ,MPRF’ ) 

906  FORMAT  (41 8//) 

RETURN 

END 


THIS  SUBROUTINE  SIMULATES  THE  TRACKING  MODES  OF  THE  KU-BAND 
RADAR. 


SUBROUTINE  TRACK 

COMMON  /CNTL/IDUM(3) , I ASM , I SRCHC . I SRCHG , I A2S , I ELS , I SLR , EDRNG , 
EDPA.EDRA 

COMMON  /OUTPUT /MSWF ,MTF,MSF, DUMO (7)  , I DUMO ( 4 ) 

COMMON  /I  CNTL/ 1 IDUM(  13)  , MTK I NT  , MRNG , MSAM , MPRF , MBKTRK , I DUM2  ( 9 ) 
COMMON  /SYSDAT /TSAM , DUM2 (14) 

COMMON  /ATDAT/DUM1 (10) , PREF , RREF , DUMA ( 2 ) 

DIMENSION  SLWRTE(2) 

DATA  SLWRTE/6 . 9814E— 3 , 3 . 4907E— 1/ 


• STEP  1: 


INITIALIZE  TRACK  MODE  INITIALIZE  ALL  TRACK 

AND  UPDATE  STATUS  OF  DATA  VALID  FLAGS. 


LOOPS 


STEP  1-1:  IF  TRACK  LOOPS  INITIALIZED(MTKINT-1 ) SKIP  STEP  1-2  AND  IF 
ALL  DATA  VALID  FLAGS  ARE  UP(MTF*1)  SKIP  STEP  1-2  AND  1-3. 
IF(MTF.EQ.I)  GO  TO  6 
IF(MTKINT.NE.0)  GO  TO  5 

STEP  1-1:  INITIALIZE  RANGE. ANGLE, AND  VELOCITY  TRACK  LOOPS  - 
STEADY  STATE  TRACKING  OF  TARGET  C.G. 

CALL  TKINIT 


STEP  2-1:  UPDATE  DATA  VALID  FLAG  STATUS 
TRACK  FROM  SEARCH. 

5 CALL  TGTACO 


ONLY  WHEN  ENTERING 


* STEP  2:  PERFORM  TRACKING  LOOP  UPDATE  PROCEDURE  * 


STEP  2-1:  UPDATE  TRANSFORMATION  MATRICES  AND  MATRICE  RATES. 
6 CALL  TRNSFM 

STEP  2-2:  TRANSFORM  TARGET  POSITION  AND  VELOCITY  COMPONENTS 
ORB I TER  BODY  FRAME-TO- ANTENNA  LOS  FRAME. 

CALL  PV TRAN 


STEP  2-3:  GENERATE  NOISE-FREE  TARGET  RETURN  SIGNAL  AND  PROCESS 
SIGNAL  TO  PRODUCE  NOISE-FREE  DISCRIMINANT  COMPONENTS. 
CALL  SIGNAL 

STEP  2-4:  ADD  EQUIVALENT  NOISE  TO  DISCRIMINANT  COMPONENTS  AND  FORM 
ALL  REQUIRED  DISCRIMINANTS. 

CALL  DISCRM 

STEP  2-5:  UPDATE  STATUS  OF  BREAK-TRACK  FLAG. 


00017110 
00017120 
00017130 
00017140 
00017150 
00017160 
00017170 
00017180 
00014050 
00014060 
00014070 
00014080 
00014090 
00014100 
00014110 
00014120 
00014130 
00014140 
00014150 
00014160 
00014170 
00014180 
00014190 
00014200 
00014210 
00014220 
00014230 
00014240 
00014250 
00014260 
00014270 
00014280 
00014290 
00014300 
00014310 
00014320 
ASSUMES0001 4330 
00014340 
00014350 
00014360 
00014370 
00014380 
00014390 
00014400 
00014410 
00014420 
00014430 
00014440 
00014450 
00014460 
00014470 
00014480 
00014490 
00014500 
00014510 
00014520 
00014530 
00014540 
00014550 
00014560 
00014570 
00014580 
00014590 
00014600 


FROM 
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CALL  BRKTRK 


STEP  2-6:  CHECK  STATUS  OF  BREAK-TRACK  FLAG  IF  BREAK-TRACK  FLAG 

UP  (MBKTRK-1)  RESET  SYSTEM  AND  RETURN  TP  SEARCH. 
IF(MBKTRK.NE.l)  GO  TO  7 
CALL  SYS I NT 
RETURN 

STEP  2-7:  DETERMINE  RADAR  SIGNAL  STRENGTH  (FOR  DISPLAY  METER) 

AND  UPDATE  AGC  VALUE. 

7 CALL  RSS 

STEP  2-8:  UPDATE  ANTENNA  GIMBAL  POSITIONS  AND  RATES  AND  TARGET 
ANGLES  AND  ANGLE  RATES  FOR  DISPLAY  (GPC-ACO  AND  AUTO 
MOOES  ONLY.) 

IF( IASM. EQ.2.0R.  I ASM.  EQ.4)  GO  TO  10 

STEP  2— 8A:  IF  IN  GPC-ACQ  OR  AUTO  MODE  USE  RADAR  ESTIMATED  TARGET 
ANGLES  AS  GIMBAL  TRACK  SERVO  INPUT. 

CALL  ATRACK 
GO  TO  15 

10  IF( IASM. EQ.4)  GO  TO  12 

STEP  2-8B:  IF  IN  GPC-DES  MODE  USE  GPC-SUPPLIED  ANGLE  DESIGNATES  AS 
GIMBAL  TRACK  SERVO  INPUT. 

PREF-EDPA 
RREF-EDRA 
CALL  POINT 
GO  TO  15 

STEP  2— 8C:  IF  IN  MANUAL  MODE  USE  CREW-SUPPLIED  SLEW  RATES  TO  DETER 
MINE  GIMBAL  TRACK  SERVO  INPUT. 

12  PREF~PREF+FLOAT ( I ELS)  *SLWRTE(  ISLR+1  )*TSAM 
RREF-RREF+FLOAT ( I AZS)  *SLWRTE(  ISLR+1 )*TSAM 
CALL  POINT 

STEP  2-9:  UPDATE  THE  RANGE  AND  RANGE  RATE  ESTIMATES. 

15  CALL  RTRACK 

STEP  2-10:  UPDATE  ACCURATE  VELOCITY  ESTIMATE  USING  VELOCITY 
PROCESSOR . 

CALL  VELPRO 

STEP  2-11:  UPDATE  ALL  RADAR  INTERNAL  CONTROLS. 

CALL  CNTRLS 
20  RETURN 
END 


• THIS  SUBROUTINE  UPDATES  ALL  REQUIRED  TRANSFORMATION  • 

• MATRICES  AND  TRANSFORMATION  MATRIX  RATES/  • 


SUBROUTINE  TRNSFM 

COMMON  / I NPUT/DUM ( 9 ) , TBT ( 3 . 3 ) , TBTD ( 3 . 3 ) 

C0U40N  /S YSDAT/DUM2 ( 4 ) . CP , SP , DUM4 ( 9 ) , TRB ( 3 . 3 ) 

COMMON  /ATDAT/CA ,SA,C8,SB,DUM1  (2) , ALRATE , BTRATE , AL , BT  . DUM3 ( 4 ) 
COMMON  /X FORMS/TLB (3, 3)  , TLBD(3,3)  , TLT(3 ,3)  ,TLTD(3,3) 

DIMENSION  TLR(3.3) 


• STEP  1:  UPDATE  TRANSFORMATION  MATRICES  • 


00014610 
00014620 
00014630 
00014632 
00014640 
00014680 
00014690 
00014700 
00014710 
00014720 
00014730 
00014740 
00014750 
0001 4760 
0001 4770 
00014780 
00014790 
00014800 
00014810 
00014820 
00014830 
00014840 
00014850 
00014860 
00014870 
00014880 
00014890 
00014900 
00014910 
00014920 
00014930 
00014940 
00014950 
00014960 
00014970 
00014980 
00014990 
00015000 
00015010 
00015020 
00015030 
00015040 
00015050 
00015060 
00015070 
00015080 
00015090 
00017740 
00017750 
00017760 
00017770 
00017780 
00017790 
00017800 
00017810 
00017820 
00017830 
00017840 
00017850 
00017860 
00017865 
00017870 
0001 7880 
00017890 
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STEP  1-1:  PRELIMINARY  COMPUTATIONS. 

CB-COS(BT) 

SB-SIN(BT) 

CA-COS(AL) 

SA-SIN(AL) 

STEP  1-2:  COMPUTE  TRANSFORMATION  MATRIX  TLB  (BODY-TO-LOS  FRAME). 
TLR( 1 ,1 )— CB 
TLR(1.2)-SB*SA 
TLR(1  .3)— SB*CA 
TLR(2,1)-0.0 
TLR(2.2)-CA 
TLR(2.3)«SA 
TLR(3,1)«$B 
TLR(3 , 2)— CB*SA 
TLR(3,3)«CB*CA 
CALL  MULT33(TLR,TRB,TLB) 

STEP  1-3:  COMPUTE  TRANSFORMATION  MATRIX  TLT  (TARGET-TO-LO?  FRAME). 
CALL  MULT33(TLB.TBT,TLT) 


• STEP  2:  UPDATE  TRANSFORMATION  MATRIX  RATES  • 


STEP  2-1:  COMPUTE  T LB-DOT . 

TLBD(  1 . 1 )— BTRATE*TLB(3 , 1 )+ALRATE*SB*TLB(2 , 1 ) 

TLBD(  1 .2)—  BTRATE*TLB(3,2)+ALRATE*SB*TLB(2,2) 

TLBD( 1 .3)— BTRATE*TLB(3.3)+ALRATE*SB*TLB(2,3) 
TLBD(2,1)-ALRATE*SP*TLB(2,3) 

TLBD(2 ,2)— ALRATE*CP*TLB(2,3) 

TLBD(2,3)»ALRATE*CA 

TLBD(3 * 1 )«BTRATE*TLB(1 . 1 )-ALRATE*CB*TLB(2 . 1 ) 

TLBD(3 ,2)-BTRATE*TLB(  1 .2)-ALRATE*CB*TLB(2,2) 

TLBD(3 , 3)— BTRATE»TLB( 1 , 3)— ALRATE*CB*TLB(2,3) 

STEP  2-2:  COMPUTE  TLT-DOT. 

DO  20  1-1 ,3 
DO  20  J-1 ,3 
TLTD( I , J )— 0 . 0 
DO  20  K«1 ,3 

20  TLTD(I . J)«TLTD(I , J)+TLBD(I ,K)*TBT(K, J)+TLB(I ,K)*TBTD(K, J ) 
RETURN 
END 


• THIS  SUBROUTINE  COMPUTES  AN  ACCURATE.  SMOOTHED  VELOCITY  USING  * 

• THE  KU-BAND  RADAR  VELOCITY  PROCESSOR  ALGORITHM.  * 


SUBROUTINE  VELPRO 

REAL  IRDOT, IRNG, INTT, IVEL, IVDISC, IFVEL. IRVEL, IR1 . IR2, IR3, 
2 I F3. I DELTA 

COMMON  /CNTL/IPWR. IMODE, IDUMC(7) , DUMC(3) 

COMMON  /OUTPUT/I DUM0( 3)  , SRNG , SRDOT , DUM2 ( 5 ) . IDUM(4) 

COMMON  / 1 CNTL/1 1 DUM  ( 1 4 ) , MRNG . MSAM . MPRF . I DUM1  (10).  MPFOLD 
COMMON  /SYSDAT /TSAM , DUMS (14^ 

COMMON  /RTDAT/ I RDOT . I RNG . RB I AS , VEST ( 4 ) , MDF ( 5 ) 

COMMON  /DSCRM/DUM ( 2 ) . RD I SC . VDSC , RRTE . OD I SC . DUM3 (3) 
DIMENSION  IPROM( 128) , VT1 (3) ,VT2(3) ,MW(4,3) 


00017900 

00017910 

00017920 

00017930 

00017940 

00017950 

00017960 

00017970 

00017980 

00017990 

00018000 

00018010 

00018020 

00018030 

00018040 

00018050 

00018060 

00018070 

00018075 

00018080 

00018090 

00018100 

00018150 

00018160 

00018170 

00018180 

00018190 

00018200 

00018210 

00018220 

00018230 

00018240 

00018250 

00018260 

00018270 

00018280 

00018290 

00018300 

00018310 

00018320 

00018330 

00018340 

00018350 

00018360 

00018370 

00018380 

00027040 

00027050 

00027060 

00027070 

00027080 

00027090 

00027100 

00027110 

00027120 

00027125 

00027126 

00027130 

00027140 

00027150 

00027160 

00027170 

00027180 

00027190 


o o oooo  oooo  ooo  oooo  ooo  ooooooooooooooo 


DATA  IPROM/127, 127, 125, 124, 122, 121 ,120,118. 117, 11 6, 114. 113. 

2 111,110.109.107,186,105,103,102.101.99.98.97,95.94,93,92.90. 

3 89.88.87.85,84,83,82,81 .79,78,77,76,75,73.72,71,70.69,68,67, 

4 66.65.64,63,62,61,60,59,58,57,56,55.54.53,52.51.50,49,49,48, 

5 47,46,45.44,44,43,42,41 ,41 ,40,39,38,38,37,36,36,35.34,34,33, 

6 32,32.31 .31 ,30,30,29,28,28,27,27.26.26.25,25.24.24,23,23,22. 

7 22,22,21 ,21 ,20.20.19.19.19,18,18,17.17.17,16,16.16.15.15/ 
DATA  VT1/1  . 01 2592E-2 , 2 . 362726E-2 , 2. 633237E— 1/ , VT2/1  .204935, 

2 0.5163982.0.04633489/ 

DATA  MW/1,2.3.4.1,1,2.2.1,1,1.1/ 


SUBROUTINE  VELPRO  WAS  MODIFIED  FEB  6 1986  BY  M.  MEYER 
MODIFICATIONS  CONSISTED  OF  CHECKING  THE  VARIABLE  MPRF 
FOR  A VALUE  OF  ONE  (IMPLIES  7 KC  MODE)  AND  IF  TRUE 
ASSUMING  THE  VELOCITY  ESTIMATE  GIVEN  BY  THE  VELOCITY 
DISCRIMINANT  IS  UNAMBIGUOUS. 


* STEP  1 : GENERATE  AMBIGUOUS  VELOCITY  ESTIMATE  • 


STEP  1-1:  INTEGERIZE  VELOCITY  DISCRIMINANT  AND  CHECK  FOR  SATURATION. 
VD I SC*5 . 333333 • VDSC 
IVDISOINTT(VDlSC+0.5) 

IF( IVDISC.LT. -128.)  IVDISC—128. 

IF(IVDISC.GT. 127. ) IVDISC-127. 

STEP  1-2:  COMPUTE  INTEGRAL  FILTER  NUMBER  PORTION  OF  AMBIGUOUS 
VELOCITY  ESTIMATE. 

INTEG-M0F(2) 

IF( IVOISC.LT. 0.)  INTEG-MOD(INTEG+1 ,32) 

STEP  1-3:  COMPUTE  FRACTIONAL  FILTER  PORTION  OF  AMBIGUOUS  VELOCITY 
ESTIMATE. 

ESTIMATE. 

IV1-INT( ABS( IVOISC)  )+1 


CHANGED  JAN  30  1986  BY  H.  MAGNUSSON 


I F( I VI .GT. 128)IV1«128 
IFRAOIPROM(IVI) 

IF(  IVDISC.LT. 0.)  I FRA0 1 27- 1 FRAC 

STEP  1-4:  COMPUTE  AMBIGUOUS  VELOCITY  ESTIMATE  COMBINE  INTEGRAL 

AND  FRACTIONAL  PARTS.  NOTE:  LSB  IS  1/128  OF  FILTER  WIDTH. 
FRACTIONAL  PARTS.  NOTE:  LSB  IS  1/128  OF  A FILTER  WIDTH. 

I FVEL-FLOAT( I FRAC+1 28* I NT EG) 


CHANGED  FEB  6 1986  BY  M.  MEYER 


IF(MPRF.EQ.I)  THEN 

IF( INTEG.GE.0.AND. INTEG. LE.21  )THEN 
IRVEL-0. 

ELSE 

IRVEL-4096. 

END  IF 
GO  TO  8 
END  IF 


• STEP  2:  SCALE  ROUGH  VELOCITY  ESTIMATE  * 


00027200 

00027210 

00027220 

00027230 

00027240 

00027250 

00027260 

00027270 

00027280 

00027282 


00027290 

00027300 

00027310 

00027320 

00027330 

00027340 

00027350 

00027360 

00027370 

00027380 

00027390 

00027400 

00027410 

00027420 

00027430 

00027440 

00027450 

00027460 

00027470 

00027480 


00027490 

00027500 

00027510 

00027520 

00027530 

00027540 

00027550 


00027570 

00027580 
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c 00027590 

C 00027600 

C STEP  2-1:  SCALE  LSB  OF  ROUGH  RANGE  RATE  ESTIMATE  TO  4 TIMES  A DOPPLER00027610 
C WIDTH.  00027620 

C DEFINITION:  VT1(MPRF)-(RANGE  LSB)/((MAX.  UNAMBIGUOUS  VEL0CITY)/8)  00027630 

C OR  VT1(MPRF)-5./(PRF.LAMBDA)  00027640 

R1-IRD0T»VT1 (MPRFJ/TSAM  00027650 

IRI-AINT(RI)  00027660 

C 00027670 

C STEP  2-2:  PERFORM  SOME  REQUIRED  AUXILIARY  CALCULATIONS.  00027680 

R2-IR1/8.  00027690 

IR2-AINT(R2)  00027700 

IRVEL-IR2*4096.  00027710 

C 00027720 

C 00027730 

C * STEP  3:  RESOLVE  AMBIGUITY  . 00027740 

C 00027750 

C 00027760 

C STEP  3-1:  COMPUTE  3 MSB’S  OF  AMBIGUOUS  VELOCITY  ESTIMATE.  00027770 

IF3-AINT( IFVEL/512. ) 00027780 

C 00027790 

C STEP  3-2:  COMPUTE  3 LSB’S  OF  SCALED  ROUGH  RANGE  RATE  ESTIMATE.  00027800 

IR3-ABS(IR1-8.*IR2)  00027810 

IF(R1 . LE.0. )G0  TO  10 

IRVEL-IRVEL+4096.  00027830 

IR3-7.-IR3  00027840 

10  CONTINUE  0002785 0 

C 00027860 

C STEP  3-3:  COMPARE  3 MSB’S  AND  3 LSB’S  AND  INCREMENT  NUMBER  OF  00027870 

C AMBIGUOUS  FILTER  BANK  WIDTHS  APPROPRIATELY.  00027880 

IDELTA-IR3-IF3  00027890 

IF(IDELTA.GE.4. ) IRVEL-1RVEL-4096.  00027900 

IF(IDELTA.LE.-4.)  IRVEL-IRVEL+4096.  00027910 

8 CONTINUE 

C 00027920 

C ..................................................  00027930 

C • STEP  4:  COMPUTE  UNAMBIGUOUS  VELOCITY  ESTIMATE.  • 00027940 

C 00027950 

C 00027960 

C STEP  4-1:  ADD  NUMBER  OF  AMBIGUOUS  FILTER  BANK  WIDTHS  TO  ESTIMATE  00027970 

C OF  FRACTIONAL  FILTER  BANK  WIDTH.  NOTE:  LSB  OF  RESULTANT  00027980 

C ESTIMATE  REPRESENTS  1/4096  OF  A FILTER  BANK  WIDTH.  00027990 

IVEL-INTT ( IRVEL— IFVEL)  00028000 

C 00028010 

C STEP  4-2:  SCALE  LSB  OF  RESULTANT  ESTIMATE  TO  0.05  FEET/SEC.  00028020 

C DEFINITION:  VT2 (MPRF)-( (FI LTER  SEPARATION)/128. )/(VELOCITY  LSB)  00028030 

C OR  VT2(MPRF)-(PRF*LAMBDA)/(0. 05*8196).  00028040 

IVEL-INTT ( IVEL*VT2(MPRF)+0 .5)  00028050 

C 00028060 

C 00028070 

C • STEP  5:  COMPUTE  SMOOTHED  UNAMBIGUOUS  VELOCITY  • 00028080 

C 00028090 

C 00028100 

C STEP  5-1:  UPDATE  REGISTERS  OF  MOVING  WINDOW  AVERAGER.  00028110 

DO  20  1-1 .3  00028120 

20  VEST  (5— I )— VEST  (4— I)  00028130 

VEST(1 )— IVEL  00028140 

C 00028150 

C STEP  5-2:  COMPUTE  MOVING  WINDOW  AVERAGE  AND  SCALE  ANSWER  INTO  00028160 

C FEET/SEC  FROM  UNITS  OF  0.05  FEET/SEC.  00028170 

M-MPRF  00028178 

M1«4dW(  1 ,M) 

M2-MW(2,M) 

M3N4W(3,M) 
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M4— MW  ( 4 f M ) 

SRDOT-0.0125»(VEST(M1  )+VEST(M2  )+VEST(M3  )+  00028180 

2 VEST(M4  ))  00028182 

C 00028190 

C 00028200 

C * STEP  6:  RESET  DOPPLER  FILTER  BANK  * 00028210 

C * 00028220 

C 00028230 

C STEP  6-1:  USE  ON-TARGET  DISCRIMINANT  AND  VELOCITY  DISCRIMINANT  TO  00028240 

C DETERMINE  UPDATE  OF  FILTER  BANK  POSITION.  00028250 

C THE  FOLLOWING  RULES  ARE  USED:  00028260 

C 00028270 

C CASE  1:  OOISC>0.  ANO  -51 .<IVDISC<51 . IMPLIES  NO  CHANGE.  00028280 

C 00028290 

C CASE  2:  OOISO0.  AND  IVDISOS1 . IMPLIES  SHIFT  -1.  00028300 

C 00028310 

C CASE  3:  ODISO0.  AND  IV0ISC<-51 . IMPLIES  SHIFT  +1.  00028320 

C 00028330 

C CASE  4:  OOISC<0.  AND  IVDISO0.  IMPLIES  SHIFT  -2.  00028340 

C 00028350 

C CASE  5:  OOISC<0.  AND  IVDISC<0.  IMPLIES  SHIFT  +2.  00028360 

IF(OOISC.GE.0. ) GO  TO  30  00028370 

IF( IVDISC. LT.0. ) MDF(1)-M0D(MDF(1)+2,32)  00028380 

IF( IVDISC.GE.0. ) MDF(1)-MOD(MDF(1)+30.32)  00028390 

GO  TO  40  00028400 

30  IF( IVDISC.GT.51 . ) MDF(1 )=MOD(MDF(1  )+31  .32)  00028410 

I F( IVDISC.LT. -51 .)  MOF(1  )=M0D(MDF(1 )+1 .32)  00028420 

C 00028430 

C STEP  6-2:  RESET  REMAINING  FILTERS  IN  THE  BANK-OF— 5.  00028440 

40  DO  50  1-1,4  00028450 

50  MDF( 1+1 )-MOD(MDF( 1 )+I ,32)  00028460 

RETURN  00028470 

ENO  00028480 

C 00012320 

C 00012330 

C 00012340 

C • THIS  SUBROUTINE  DETERMINES  WHETHER  ANTENNA  IS  IN  ZONE  1 AND/OR  • 00012350 

C • ZONE  0 (FOR  GPC-ACQ  AND  GPC-OES  POINTING  MOOES  ONLY).  * 00012360 

C ••••••••••*••••»»•••*»••••***»*•*»•»»•*••••**•*•••  00012370 

C 00012380 

C 00012390 

SUBROUTINE  ZONECK  00012400 

COMMON  /CNT  L/ 1 DUMC  ( 9 ) , EDRNG , EDPA , EDRA  00012410 

C0M4ON  /OUTPUT/ 1 DUM1 (3) , DUM1 (2) .SPANG . SRANG,DUM3(3) . IDUM3(4)  00012420 

COMMON  /ICNTL/IDUM2( 10) ,MZ1 ,MZ0, IDUM4( 15)  00012430 

MZ0-0  00012440 

MZ1-1  00012450 

PI  1-3. 141592653/180.  00012460 

RB— P 1 1 * SR  ANG  00012470 

PB— PI  I «SPANG  00012480 

P— EDPA  00012490 

R— EDRA  00012500 

CPB-COS(PB)  00012510 

SPB— SIN(PB)  00012520 

CRB-COS ( RB ) 000 1 2530 

SRB— S I N ( RB  ) 0001 2540 

CP-COS(P)  00012550 

SP— SIN(P)  00012560 

CR-COS(R)  00012570 

SR-SIN(R)  00012580 

ANGD I F -ACOS ( SPB • CRB • SP »CR+SRB * SR+CPB »CR8 *CP *CR ) /P 1 1 0001 2590 

ANGD I F— ABS ( ANGD IF)  00012600 

IF(ANGDIF.GT.3.0)  RETURN  00012610 

MZ0— 1 00012620 
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c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c. 

c 

c 

c 


c 

c 

c 

c 


c 


c 


c 

c 

c 

c 


c 


IF(ANGDIF.GT .0.3)  RETURN  00012630 
MZ1«1  00012640 
RETURN  00012650 
END  00012660 


SES  SUM  MODEL  AS  OF  JANUARY  13.1982 
SUBROUTINE  SMM 

II.  DIMENSION  ARRAYS  * DATA  STATEMENTS 

A)  DIMENSION  STATEMENTS 
REAL  KSEED 

COMMON  /SATD AT/RADAR (3) ,KTAR,R(70 ,3) ,SIG(70) ,ROLD, ICLOSE. ICLOLD 
DIMENSION  SIGMA(49) ,TARG(49 ,3) .PHIMIN(49 ,3) ,PHIMAX(49 , 3) 

DIMENSION  0FFSET(49) . JH0T(49) . JHOT20(49) .PHI (49) . FG(3) 

DIMENSION  VECT(3) .COSPHI (49 ,3) ,C0SPHN(49) ,0RIENT(49 13) 

DIMENSION  ALPH(19.3).V(19.3).DIM(19.3).WRAN(19.3).SDMAX(19.3) 
DIMENSION  WSCALE( 19 ,3) .DPHI (19) ,PHI0LD(19) ,V0LD(19.3) .KSEED(19,3) 
DIMENSION  TTRAN(3) ,ABG( 19,3), TMAX(49) ,PL(49) .SDMIN( 19 .3) 

B)  DATA  STATEMENTS 

1.  KSEED-  SEEDS  FOR  RANDOM  NUMBER  GENERATOR  ,,ZUDU" . 

DATA  KSEED/45 , 678 , 908 . 607 , 5678 . 897 . 345 . 7777 .67,4, 

1 560 , 809 . 444 ,888,999, 555 . 222 ,70,80, 8000 . 

2 5.15,25.35,45,55,65,75,85,95. 

3 7,17,27,37,47,57,67,77,87,97, 

4 9876 , 984 , 6666 , 2398 ,76.412. 7589 . 409 ,899.561, 

5 205,3895. 9457 . 9643 , 937 , 656 . 453/ 

2.  DIM-  THE  GENERAL  SIZE  OF  EACH  DIFFUSE  SCATTERER. 

DATA  DIM  /57*64 . 8/ 

3.  WSCALE—  WEIGHTING  ASSIGNED  TO  EACH  SIDE  OF  A DIFFUSE 

SCATTERER. 

DATA  WSCALE/8* 10.84.5.9386.2*5. 6804 . 5 . 9386 . 5 . 6804 .4*11.1026. 

1 2*6.7958. 

2 2*6.9068.2*2.7111 .2*3.6148.2*2.5174,4.3894.2*5.8095.4.3894. 

3 5.8095.4*17.8803.2*6.7958,19*0./ 

4.  ORIENT-  THE  i.j.k  COMPONENTS  OF  THE  NORMAL  VECTOR  OF  EACH 

TARGET . 

o)  i COMPONENT 

DATA  OR I ENT/ 13*0. , .9976, -.9976. . 9976,-. 9976, 1 . .-1 . . 

1 23*0. , .9976. -.9976. .9976 .-.9976 , 1 . ,2*-1 . . 

b)  j COMPONENT 

2 1 . ,-1 . .2*. 6428. 2*0. ,-. 6494 .-. 6361 .1., .4924. .8704, .6428.-1 . . .0637. 

3 2*-. 0637. .0637.2*0. ,1 . ,-1 . .2*. 6428, .9272. .5150, .2924,2*0. .-.6494. 

4 -.6361 .2*0. ,2*1  . . .4924, .8704, .4924. . 866 ,-.8660,-1 . ,0. ,-.6428, 

5 .0637.2— .0637.  .0637,3*0. . 

c)  k COMPONENT 

6 2*0.  ,-.766. .766,1. ,-1 . .-.7604, .7716,0. .-.8704, .4924, .766,0. . 

7 .0284,2— .0284, .0284,4*0. .-.766. .766, .3746, .8572. .9563,1 . ,-1 . . 

8 -.7604. .7716.2*0. .2*0. .-.8704, .4924, .8704,-. 5. .5,0. ,1 . . .766, 

9 .0284,2  — .0284,  .0284.3*0./ 

5.  ABG-  ARRAY  OF  TRANSFORMATION  ANGLES(RAD) . ALPHA,  BETA. 

GAMMA.  FOR  DIFFUSE  SCATTERERS. 
o)  ALPHA 

DATA  ABG/4.3. 141593.2*1 .570796.2*0. ,4*3.141593,0. .1 .634563. 

1 -1 . 50703 , 1 . 50703 , 4 . 648623 , 1 . 570796 ,4.71 2389 . 

b)  BETA 

2 2*1 .570796,2.443392. .6982,0. .3.141593,2.434725, .689444, 

3 1 . 570796 . 2 . 62681 1.1. 055951 , . 6982 . 1 . 570796 , 1 .542392 . 

4 2*1.5992.1.542392.2*1.570796, 
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C c)  GAMMA 

5 4*3.141593,2*1 .570796,2*0. ,4*3.141593.0. .2*2.723729, .4178642, 

6 2.723729,2*1.570796/ 

6.  SIGMA-  THE  CALCULATED  RCS  FOR  EACH  TARGET  IN  M**2. 

OATA  SIGMA/2*. 1 ,2*. 0154, 2*. 0274, 2*. 0133, .0121 ,2*. 0194, .0121 , 

2 .01 94, 4*. 7026, 2*. 0606, 2*241 9. ,373. ,7.25,21 .84. 1 1 . 14, 18.83, 

3 2*663. .2*321 . .2*3.63, .92, .97,470. ,82.13,470. .2*83. ,470. ,83. . 

4 6.34,4*16995. ,2*146615. ,.3322/ 

7.  TARG-  TARGET  POSITION  (IN  X,Y,Z  COORDINATES)  RELATIVE  TO 
THE  COORDINATE  AXIS  OF  SkM. 

o)  X COORDINATE 

DATA  TARG  /9*1 . 394 . 4*- . 774 , .270,  .231 , .270,. 231 ,2.491 ,-1 .497, 

2 3*1 .394, .542,3*1 .626.4*1 .394,2*0.  ,-.413,-1 . 149, 8*-. 774, .270, 

3 .231 . .270,. 231, 2.491 ,2*-1 .497, 

b)  Y COORDINATE 

4 .862, -.862, 2*. 555, 2*0. .2*. 555, .748, .439.1 .097, -.3614, -.955, 

5 2*2. 233, 2*-2. 233, 2*0. . .826, -.826, 2*. 555, .658, .568, .439,2*0. , 

6 2*. 555, 2*0. .2*. 748, .439,. 865,1 .097, .865, -.207, -.955. -.684, 

7 -. 3614, 2*2. 233, 2*-2. 233, 3*0., 

c)  Z COORDINATE 

8 2*0. ,-.929, .929,1.058,-1 .058,-. 878, .878.0. ,-.774, .852, .645. 

9 0. ,2*. 620, 2*-. 620, 4*0. ,-.929. .929, .826, .930, .994,1.058, 

A -1 .058, -.878, .878,4*0. ,-. 774,-. 258, . 852, .272, .903,0. . .581 , 

B .645, 2*. 620, 2*-. 620, 3*0./ 

8.  PHIMIN-  MINIMA)  ANGLE  OF  DEVIATION  FROM  SMM  COORDINATES 
RELATIVE  TO  TARGET  NORMAL. 

o)  MINIMUM  ANGLE  SUBTENDED  IN  X-DIRECTION 
DATA  PHIMIN  /13*0. .2.5, 174.5,2.5. 174.5,0. ,90. , 1 1*88.5. 

2 2*89.2.10*88.5,2.5.174.5,2.5.174.5,0. ,2*178.5, 

b)  MINIMUM  ANGLE  SUBTENDED  IN  Y— DIRECTION 

3 0. ,90. ,2*48.5.2*0. . 129. ,128. ,0. ,59. .149. .128.5,90. ,22.5, 

4 2*154.5,22.5,2*0. .0. , 178.5.2*48.5.20.5,57.5,71 .5,2*88.5,129. , 

5 128. ,0. .90. .2*0. .59. .2*149. .2*148.5,178.5.88.5.128.5.22.5. 

6 2*154.5,22.5.3*88.5. 

c)  MINIMUM  ANGLE  SUBTENDED  IN  Z-OIRECTION 

7 2*0. .138.5,38.5,0. ,90. .138. .38. ,0. , 149. ,59. .38.5.0. .64.5, 

8 2*112.5.64.5.2*0. ,2*88 .5, 138.5,38.5, 66.5,29.5, 15.5,0. , 178.5 . 

9 138. ,38. .2*0. .2*88.5,149. ,2*58. ,118.5,58.5,88.5,0. . 

A 38.5.64.5,2*112.5,64.5,3*88.5/ 

9.  PHIMAX-  MAXIMUM  ANGLE  OF  DEVIATION  FROM  SMM  COORDINATES 
RELATIVE  TO  TARGET  NORMAL. 

o)  MAXIMUM  ANGLE  SUBTENDED  IN  X-DIRECTION 
DATA  PHIMAX  /13*180 . , 5 .5 , 177.5 , 5 .5 , 177 . 5,90. . 180. , 1 1 *91 .5 , 

2 2*90.8, 10*91 .5,5.5,177.5.5.5,177.5,1 .5,2*180. , 

b)  MAXIMUM  ANGLE  SUBTENDED  IN  Y— DIRECTION 

3 90. .180. .2*51 .5,2*180. .132. .131 . .1 .5,62. ,152. .131 .5,180. ,25.5, 

4 2*157.5,25.5,2*180. , 1 .5, 180. ,2*51 .5,23.5,60.5,74.5.2*91 .5.132. . 

5 131 . ,90. .180. ,2*1 .5,62. .2*152. ,2*151 .5,180. ,91 .5.131 .5,25.5, 

6 2*157.5.25.5.3*91.5, 

c)  MAXIMUM  ANGLE  SUBTENDED  IN  Z-DIRECTION 

7 2*180. ,141 .5.41 .5,90. ,180. ,141  . ,41 . ,180. ,152. ,62. .41 .5.180. ,67.5, 

8 2*115.5.67.5.2*180. ,2*91 .5,141 .5.41 .5,69.5.32.5,18.5,1 .5,180. , 

9 141 . ,41 . .2*180. ,2*91 .5,152. ,2*62. .121 .5.61.5,91.5,1.5.41.5.67.5. 

A 2*115.5,67.5,3*91.5/ 

10.  OFFSET-  POSITION  OF  TARGET  SPECULAR  PT.  RELATIVE  TO  TARGET 
COORDINATES. 

DATA  OFFSET  /17*0. ,2*0 ., 1 1 *0. , .7486, .8. 14*0. ,2*0. .. 6518/ 

11.  MISCELLANIOUS 
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DATA  PL/  30*1 . ,2*0. ,16*1 . .0./ 

DATA  TMAX/1 9*90 .,11*1 .5 ,2*0 . , 16*1 .5 , 0 ./ 

DATA  NT AR/49/ .KWIDE/19/.PI/3. 141 592653/ 

DATA  TTRAN/3*0.0/.INIT1/1/ 

I F( INIT1 . NE. 1 ) GO  TO  2 
C 

C 12.  SDMIN-  MINIMUM  ANGLE  OF  VIEW;  TARGET  SHADOWING. 

C a)  X-COORDINATE 

DATA  SDMIN/2*-0. 6828,-1 . ,-0.7467,2*-1 . ,-0.7467, 12*-1 . , 

C b)  Y-COORDINATE 

1 1 9* — 1 . , 

C c)  2-COORDINATE 

2 19*— 1 ./ 

C 

C 13.  SDMAX—  MAXIMUM  ANGLE  OF  VIEW;  TARGET  SHADOWING. 

C a)  X-COORDINATE 

DATA  SDMAX/8* 1 . ,0.4218,3*1 . .0.4218.0.5037,0.6046,0.5037.0.6046. 

1 2*1., 

C b)  Y-COORDINATE 

2 19*1., 

C c)  Z-COORDINATE 

3 19*1./ 

C 

C 

C III.  RANDOMIZE  DIFFUSE  SCATTERER  RCS  VALUES. 

C 

ISEED1-100 

ISEED2-83 

DO  107  1-1 ,1000 

107  X-RNDU( I SEED 1 , ISEED2) 

DO  108  1-1 ,KWIDE 
X-RNDU( I SEED 1 , ISEED2) 

108  SIGMA( I )— SIGMA ( I )*2 . *X 
C 

C IV.  CONVERT  TARGET  DATA  APPROPRIATELY. 

C 

FTM-0 . 3048 
DO  101  1-1 ,NTAR 

101  SIGMA( I )-SQRT(SIGMA( I ) )/FTM 
DO  102  J-1.NTAR 

DO  102  1-1  .3 

102  TARG( J , I )— TARG( J , I )/FTM 
DO  103  J-1.NTAR 
TMAX(J)-COS(  TMAX( J)*PI/180. ) 

DO  103  1-1 ,3 

PHIMIN( J , I )— COS(PHIMIN( J , I)*P1/180. ) 

103  PHIMAX( J , I )-COS(PHIMAX( J , I)*PI/180. ) 

DO  105  1-1 .NTAR 

105  OFFSET ( I )-OFFSET(.I)/FTM 

C 

C V.  INITIALIZATION  OF  TARGET  POSITION  * COUNTING  PARAMETERS 

C NWIDE  * KTAR. 

C 

DO  1 K— 1 .NTAR 
DO  1 1-1 .3 

1 TARG(K.I)-TARG(K.I)+TTRAN(I) 

INIT1— 0 

2 CONTINUE 
NWIDE— 0 
KTAR— 0 

C 

C VI.  DETERMINE  WHICH  TARGETS  ARE  ILLUMINATED. 

C 

C WRITE(2,500) 
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500  FORMAT (IX, ’TARGET  #’ ,2X, 'COSPHN’ ) 

DO  15  1-1  ,NTAR 

A)  DETERMINE  THE  POSITION  OF  THE  RADAR  RELATIVE  TO 
TARGET  SPECULAR  POINT. 

1 . "VECT"-  POSITION  VECTOR 
DO  5 J-1 .3 

VECT ( J )— RADAR (J )— TARG( I , J ) 

5 CONTINUE 

2.  VNORM-  MAGNITUDE  OF  "VECT’’ . 

VNORl^SQRT(VECT(1 )»*2+VECT(2)*»2+VECT(3)**2) 

B)  DETERMINE  THE  COSINE  OF  THE  ANGLE  BETWEEN  THE 
RADAR  POSITION  RELATIVE  TO  THE  TARGET  SPECULAR  PT.  * 

TARGET  NORMAL. 

1 . CALCULATE  THE  ANGLE  BY  EMPLOYING  THE  DOT  PRODUCT 
OF  THE  TWO  VECTORS:  "COSPHI"  * “ORIENT”. 

DP-0. 

DO  7 J-1 .3 

2.  COSPHI-  UNIT  VECTOR  OF  “VECT";  REPRESENTATIVE  OF  THE 
COSINE  OF  THE  ANGLE  BETWEEN  “VECT”  k SMM  COORDINATE  AXIS. 

COSPH I ( I , J )-VECT ( J ) /VNORM 
7 DP— OP+COSPHI ( I , J)*0R1ENT(I , J) 

3.  COSPHN-  COSINE  OF  THE  ANGLE;  RESULT  OF  THE  DOT  PRODUCT. 
COSPHN ( I )-OP 

C)  TEST  OF  ILLUMINATION-  TWO  METHODS:  COMPARE  COSPHN  W/TMAX 
OR  COMPARE  COMPONENTS  OF  COSPHI  W/PHIMIN  k PH I MAX. 

1.  PL-  A FLAG:  0 INDICATES  METHOD  1 k 1 INDICATES  METHOD  2. 
IF(PL( I) . EQ.0. )GO  TO  9 

2.  METHOO  1 

I F (COSPHN( I ) . LT . TMAX( I ) )GO  TO  15 
GO  TO  11 

3.  METHOO  2 
9 DO  10  J-1 ,3 

IF(COSPHI(I ,J).LT.PHIMAX(I ,J) .OR  .COSPHI ( I . J) .GT ,PHIMIN( I , J ) ) 

2 GO  TO  15 

10  CONTINUE 

D)  TARGET  SHADOWING 

1.  TEST  FIRST  19  TARGETS  ONLY. 

11  IF(I .GT. 19)GO  TO  13 

2.  FIND  SHADOWING  VECTOR  BY  TRANSFORMATION  OF  COSPHI 
FROM  SMJS  TO  TARGET  COORDINATES. 

FI -COSPH I ( 1 . 1 )*COS(ABG( 1,1) )+COSPHI ( 1 , 2)»SIN(ABG( 1.1)) 

F2-COSPHI ( I , 2)*C0S(ABG( 1,1) )-COSPHI ( I , 1 )»SIN(ABG( 1.1)) 
F3MC0SPHI(I,3) 

FB2— F2*COS(ABG( 1.2) )+F3*SIN(ABG( 1,2)) 

FB3— F3*COS(ABG( I . 2) )-F2»SIN(ABG( 1,2)) 

FG( 1 )— FI *COS(ABG( I ,3))+FB2*SIN(ABG( 1.3)) 

FG(2)— FB2*COS(ABG(I ,3) )-F1 *SIN(ABG( 1,3)) 

FG(3)« FB3 

3.  TEST  FOR  TARGET  SHADOWING. 

DO  12  J-1, 3 

IF(FG(J).GT.SDMAX(I,J).OR.FG(J).LT.SDMIN(I.J))GO  TO  15 

12  CONTINUE 

E)  COUNT  NUMBER  OF  ILLUMINATED  TARGETS. 

1.  KTAR-  # OF  TARGETS  ILLUMINATED 
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13  KTAR-KTAR+1 

C 2.  JHOT-  TARGET  IDENTIFICATION  NUMBER 

JHOT(KTAR)-I 
SIG(KTAR)-SIGMA(I) 

C 3.  NWIDE-  # OF  DIFFUSE  SCATTERERS 

IF(l.LE.KWIDE)  NWIDE-NWIDE+1 
C WRITE(2, 100)1, COSPHN(I) 

100  FORMAT ( 1 X , I 3 , 7X , F6 . 3 ) 

15  CONTINUE 

VII.  UPDATE  RANGE  OF  RADAR  RELATIVE  TO  EACH  TARGETS  SPECULAR  PT. 

A)  RANGE  UPDATE 

DO  20  K-1 ,KTAR 
I-JHOT(K) 

DO  20  J-1  .3 

R ( K , J ) -TARG ( I . J )+OFFSET ( I ) .COSPH I ( I . J ) 

20  CONTINUE 
I EE-1 

IF  (IEE.EQ.0)GO  TO  24 

B)  RE-EVALUATE  RCS  FOR  DIFFUSE  SCATTERERS 

DO  22  K-1 .NWIDE 
I— JHOT (K) 

SIG(K)— SQRT(ABS(COSPHN( I ) ) )*SIGMA( I ) 

22  CONTINUE 

24  R ANG  E-SQRT ( R AD AR ( 1 ) • • 2+RADAR ( 2 ) * * 2+R ADAR ( 3 ) • • 2 ) 

C)  TEST  FOR  CLOSE  RANGE 

1F((R0LD. LT. .01 . OR. RANGE-ROLD . LE . 0 . ) . AND. RANGE. LE. 270.)  ICLOSE-1 
I F ( RANGE— ROLD . GT . 0 . . AND . RANGE . GT . 300 . ) I CLOSE-0 
I CLOSE-0 

IF(ICLOSE.EQ.0. OR. NWIDE. EO.0)  GO  TO  55 
IF(ICLOLD.EQ.I)  GO  TO  35 

D)  RANGE  UPDATE  FOR  DIFFUSE  SCATTERERS 

1.  PERFORMS  INITIALIZATION  OF  DIFFERENCE  EQUATIONS 
FOR  ALL  DIFFUSE  SCATTERERS. 

DO  30  1-1 .KWIDE 

IF(COSPHN( I ) .GT . 1 . )COSPHN( I )-1 . 

PHIOLD( I ) — ACOS ( COSPHN ( I ) ) 

a)  ”VM-  WANDERING  VECTOR 
DO  25  J-1 .3 

V( I , J )— WSCALE( I . J ) • (ZUDU(KSEED( I , J ) )-. 5) 

VOLD(I . J)-V(I , J) 

25  CONTINUE 

b)  TRANSFORMATION  OF  “V“  FROM  TARGET  COORDINATES  TO 
SMMS  COORDINATES. 

TGAM1— V( I , 1 )*COS(ABG( I ,3) )-V( I ,2)»SIN(ABG( 1.3)) 

TGAM2— V( I . 1 )*SIN(ABG( 1,3) )+V( I ,2)*COS(ABG( 1.3)) 

TBETA2-COS ( ABG ( I . 2 ) ) «TGAM2-S I N ( ABG ( I . 2 ) ) *V ( I . 3 ) 

TBETA3— SIN(ABG( I ,2))»TGAM2+C0S(ABG(I ,2))*V(I,3) 

V(  1 . 1 )— COS(ABG( 1 . 1 ) )»TGAM1— SIN(ABG( 1 , 1 ))*TBETA2 
V ( 1 . 2 )-S 1 N ( ABG ( 1 . 1 ) ) .TGAM1 4C0S ( ABG ( 1 , 1 ) ) *TBETA2 
V(  1 ,3)— TBETA3 
DO  26  J-1 .3 
R(I,J)-R(I.J)+V(I,J) 

26  CONTINUE 
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30  CONTINUE 
GO  TO  55 

2.  UPDATES  THE  ANGLE  BETWEEN  THE  RADAR  VECTOR  4c  THE 
TARGET  NORMAL. 

35  DO  40  I-1.KWIDE 

PHI ( I ) »ACOS ( COSPHN ( I ) ) 

DPHI ( I )«(PHI ( I )-PHIOLD( I ) ) 

PHIOLD( I )*PHI ( I ) 

40  CONTINUE 

3.  UPDATES  THE  RANGE  COMPONENTS  DUE  TO  RADAR  BEAM 
DEFLECTION  OVER  THE  SURFACE  OF  THE  DIFFUSE  SCATTERER. 

THE  TRANSFORMATION  PERFORMS  THE  SAME  FUNCTION  DESCRIBED 
PREVIOUSLY. 

DO  50  K-1.NWIDE 
I-JHOT(K) 

DO  45  J-1,3 

ALPH(  I , J )-EXP(-DIM( I , J ) * ABS(DPHI  ( I ) *COSPHN(  I)) ) 

WRAN(  I , J )— SORT  ( 1 ALPH(I , J)**2) *WSCALE( 1 , J ) • (ZUDU(KSEED(  I , J))— .5) 
V(  I , J )*ALPH( I , J) *VOLD( I , J )+WRAN( I , J ) 

VOLD( I,J)*V(I,J) 

45  CONTINUE 

TGAM1«V( I , 1 )*COS(ABG(I ,3))— V( I , 2)*SIN(ABG( I ,3)) 

TGAM2-V( I , 1 )*SIN(ABG( I ,3) )+V( I , 2)*COS(ABG( 1.3)) 

TBETA2*COS(ABG(  I .2)  ) *TGAM2-SIN(ABG(  1 , 2) ) *V(  1 . 3) 

TB ET A3»S  I N ( ABG  (1,2))*  TGAM2+COS  ( ABG  ( 1 . 2 ) ) • V ( 1 . 3 ) 

V(  I , 1 )-COS( ABG(  1,1)) *TGAM1-SIN( ABG(  1,1)  )*TB£TA2 

V(  1 ,2)-SIN(ABG(  1 . 1 ) ) *TGAM14C0S(ABG(  1.1)  )*TBETA2 

V(I,3)-TBETA3 

DO  46  J-1  ,3 

R(K,J)«R(K,J)+V(I,J) 

46  CONTINUE 
50  CONTINUE 
55  CONTINUE 

ROLD-RANGE 

ICLOLD-ICLOSE 

RETURN 

END 


FUNCTION  ZUDU(KSEED) 

C THIS  SUBROUTINE  GENERATES  RANDOM  NUMBERS. 

DATA  MU/524287/ . XMU/524287 ./, I ETA/997/ 
IF(KSEED)  20,10,20 
20  CONTINUE 

KSEED— I ETA*KSEED 
I KEEP*KSEED/MU 
KSEED«KSEED-IKEEP*MU 
XRAN-KSEED 
XRAN-XRAN/MU 
ZUDU-XRAN 
10  RETURN 
END 

sub  rout i ne  reodPAT 


c Read  in  the  sum,  phase,  and  difference  patterns 


real  o1linear(  41,41  ),  e1linear(  41,41  ) 


B-79 


real  3a1linear(  41,41  ),  se1linear(  41,41  ) 
real  pa1linear(  41,41  ),  pe1linear(  41,41  ) 
common  / linear  / all  inear,  el  linear 
common  / linearl  / sal  linear,  sell  inear 
common  / I inear2  / pal  I ineor,  pel  I inear 


open(  unit-3,  f i le— * [KUBAND. HOWARD. MARK] azld.dat  * . 

1 access— ’ sequent i a I * , f orm-* unf ormat ted ' , 

1 status-’old’,  readonly  ) 

reod(  3 ) ( ( a1lineor(  i.j  ),  j - 1 ,41  ),  i « 1 ,41  ) 
close(  3 ) 

open(  unit-3,  f i le-' [KUBAND. HOWARD .MARK] e I Id- dot  * , 

1 access— * sequent i a I * , form-* unf ormat ted’ , 

1 status-’ old  * , readonly  ) 

read(  3 ) ( ( e1linear(  i,j  ),  j * 1,41  ),  i - 1,41  ) 
close(  3 ) 

open(  unit-3,  f i I e- ’ [KUBAND. HOWARD .MARK]a2l s . dat ' , 

1 access*' sequent i a I ’ , form-’ unf ormat ted ’ , 

1 status-’old* , readonly  ) 

read(  3 ) ( ( sa1linear(  i.j  ),  j - 1,41  ),  i - 1,41  ) 
close(  3 ) 

open(  unit-3,  f i I e-* [KUBAND. HOWARD .MARK]e M s . dot ' , 

1 access* ’ sequent i a I ' , form-’ unf ormat ted ' , 

1 status-’old*,  readonly  ) 

reod(  3 ) ( ( se1Mnear(  i.j  ),  j - 1,41  ),  i - 1,41  ) 
close(  3 ) 

open(  unit-3,  f i le— * [KUBAND. HOWARD. MARK] or Ip. dot  * , 

1 access*' sequent i a I * , form-’ unf ormat ted* , 

1 status*’ o I d * , readonly  ) 

read(  3 ) ( ( pa1linear(  i,j  ),  j * 1,41  ),  i - 1,41  ) 

close(  3 ) 

open(  unit-3,  f i I e-* [KUBAND. HOWARD. MARKje I Ip. dat ' , 

1 access*’ sequent i a I ' , form-’ unf ormat ted ’ , 

1 status-' ol d ’ , readonly  ) 

read(  3 ) ( ( pe1linear(  i.j  ),  j * 1,41  ),  i - 1,41  ) 

close(  3 ) 

return 

end 

C 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 II 1 1 1 1 1 1 1 1 1 1 
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c 

c 

c Subroutine:  Antenna  pattern  interpolation, 

c Input:  Azimuth  and  elevation  angles  in  degrees, 

c Output:  Interpolated  difference,  sum,  and  phase  values 

c for  al I 18  antenna  patterns, 

c 

« M M IN  M II 1 1 1 1 1 1 1 1 1 1 1 f I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 III  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


subroutine  interp(  az,  el) 


C — ^ ■ ■■■  ■ ■■  — ■ ■ i i i 

c 

c Linearly  interpolate  the  gain,  phase  and  difference  patterns 

c 

c — 


reol  atlinear(  4-1,41  ),  e1linear(  41,41  ) 

real  sal  I i near(41 ,41 ) , sel I i near (41 ,41 ) 

real  pal  I i near (41 ,41 ) , pel  I inear(41 ,41 ) 

common  / linear  / all  inear,  el  I inear 

common  / I inearl  / sal li near , sel  I i near 

c.ommon  / linear2  / pal  I i near , pel  I i near 

common  / SUDIPH  / X . Y.Z . PAZ,PEL 

iax  • j i n t ( ( az  + 4,  ) * 5.  ) 
iex  ■ j i nt ( ( el  +4.  ) *5.  ) 
az0  » flootj(  iax  ) / 5.  — 4. 

e 1 0 m floatj(  iex  ) / 5.  - 4. 

iaz  m jint  ( ( az  + 4.  ) • 5.  ) + 1 

j e I * jint  ( ( el  + 4.  ) *5.  ) + 1 


c 


c 


f i nd  azd  values 


f0  « 10. •* ( a1linear(  iaz.jei 
fl  « 10. * • ( a1linear(  iaz+1,jel 
f2  » 10. *• ( a1linear(  iaz,jel-M 
f3  - 10.**(  a1linear(  iaz+1,jel+1 

fa  m f0  -f  ( f 1— f0)/. 2 • ( az-az0  ) 
fb  - f2  + ( f3— f 2)/.2  * ( az-az0  ) 
fx  ■ fa  + (f b-fa)/.2  • ( el-el0  ) 

Y ■ fx 

find  eld  values  

f 0 * 10. •*(  e1linear(  iaz.jei 
fl  • 10. **(  e1linear(  iaz+1,jel 
f2  *■  10 . ••(  e1linear(  iaz,jel+1 
f3  » 10.**(  e1linear(  iaz-M,jel+1 

to  « f0  + (fi-fe)/.2  * ( az-az0  ) 
fb  » f2  + (f3-f2)/.2  * ( az-az0  ) 
fx  » fa  + (fb-fa)/.2  * ( el*-el0  ) 


) /20.  ) 
) /20.  ) 
) /20.  ) 
) /20.  ) 


/20.  ) 
/20.  ) 
/20.  ) 
/20.  ) 


2 « f x 


c find  ozs  values  

fC  « 10. *•( sal  I i near ( i az  .jel  )/20.) 
fl  « 10. ••(sol  I i near ( i az+1 , j e l )/20.) 
f2  « 10. **(so1 I i near  ( i az  , jel+1  )/20.) 
f3  « 1 0 . •* ( sal  I i near ( i az+1 , j e 1+1  )/20.) 
fa  * f0  +(f 1-f0)/.2*(az-az0) 
fb  * f2  +(f3-f2)/.2*(az-az0) 
fx  - fa  +(fb-fo)/.2*(el-el0) 


X ■ fx 


c find  azp  values  

f 0 » pal  I i near( i az  ,jel  ) 
fl  ■ pal  I i near ( i az+1 , je  I ) 
f2  * pal  I i near( i az  » je 1+1  ) 
f3  - pal  I i near( i az+1 , je 1+1  ) 
fa  • f 0 +( f 1-f 0)/.2* (oz-az0) 
fb  - f 2 +(f3-f2)/.2*(cz-az0) 
fx  - fa  +( f b-f a)/. 2* (e I— e 10) 


PA2=fx  I phase  in  degrees 

c find  elp  values  

f0  * pel  I i neor( i az  , je I ) 
fl  « pel  I i near ( i az+1 , je I ) 
f 2 ■ pel  I i near ( i az  , j e 1+1  ) 
f 3 « pel  I i near ( i az+1 .jel +1  ) 

fa  - f0  +(f 1^f0)/.2*(az-az0) 
fb  « f2  +( f 3-f2)/.2*(az-az0) 
fx  - fc  +( f b-f a)/. 2* (e l-e 1 0) 

PEl«fx  ! phase  in  degrees 

return 

end 
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APPENDIX  C 


LINE  BY  LINE  LISTING  OP  DIFFERENCES  BETWEEN 
BASELINE  PROGRAM  AND  DELIVERABLE  PROGRAM 

This  appendix  lists  the  lines  which  have  been  deleted  from  the 
baseline  program  and  those  which  were  added  to  form  the  deliverable  program. 

The  deleted  and  added  lines  are  grouped  by  program  module,  and 
identified  by  line  number  and  the  labels  "LINES  DELETED  FROM  BASELINE  PROGRAM” 
or  "LINES  ADDED  TO  DELIVERABLE  PROGRAM"  immediately  preceeding  the  lines 
deleted  or  added.  The  line  numbers  for  the  deleted  lines  refer  to  lines  in 
the  original  baseline  program.  The  line  numbers  identifying  the  added  lines 
are  the  line  numbers  in  the  final,  deliverable  program. 
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LINES 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 


ADDED  TO  DELIVERABLE  PROGRAM 

C »***»•*»***»*».***•*»»•••**»»*»»*•*«******» 

c 

C MODIFIED  01/27/86  TO  COMPUTE  AND 

C PLOT  REF.  RANGE  ACCELERATION. 

C 

c ft**********************"**.************* 

c 

CM 

C MDMIN  - KUBAND  DATA  : SSRNG , SSRDOT , SSRANG , SSPANG , SSRRTE.  SSPRTE. 

C SSALP . SSBET 

C 

C WHITE  SANDS  - REF  DATA  : X.  Y,  2.  VX,  VY,  VZ 

C 

C REF  ->  TMR2KU  ->  ACT  : R , ARDOT , SPANG,  SRANG,  SRRTE,  SPRTE , 

C SALF,  SBTA,  SAZRTE , SELRTE 

C 

C REF  ->  TMR2KU  ->  SIM  : HRNG , HRDOT , HRANG,  HPANG , HRRTE,  HPRTE, 

C HALP,  HBET , HELRTE . HALRTE 

C 

C 

COMMON  /T ARGET /IT ARG , SRCS 

COMMON  /ACTDAT/R , ARDOT . SPANG , SRANG , SPRTE , SRRTE , AL , BT , SALF , SBTA 

1 , ER ( 3 ) , EV ( 3 ) , ERTO ( 3 ) , AZRAT  E . E LR AT  E . SAZRT E . S E LRT  E 

2 , AX  t AY , A2 , AAX , AAY , AAZ , RACCEL 

COMMON  /TERM/ I TERM , XMO , XDAY , XYR , TB I AS , X JMO , XJDAY , X J YR 
COMMON  /OUTPUT/MSWF , MTF , MSF . HRNG , HRDOT , HPANG , HRANG , HPRTE 

2 . HRRTE , HRSS , MADVF , MRDVF , MARDVF . MRRDVF 

3 .HALP, HBET 
COMMON  /S YSDAT /TS . DUM2 (14) 

COMMON  /TMR/X.Y.Z.VX.VY.VZ, 

1 DLP(3) ,DEL(3) ,DUE(3) , 

2 DSU(3) , THAZL1 .THEL1 ,THAZU1 ,A23 
COMMON  /INPUT/RO(3),VO(3),EWB(3) 

COMMON  /ICNTL/IDUM( 1 6) ,MPRF 
CHARACTER  ANS, REPLY 
CHARACTER*! 1 FPR0(57) 

CHARACTER *40  I XT , LPR0(57) 

CHARACTER *80  COMMENT 
CHARACTER*! 1 UNIT7 
INTEGER  I REF 
INTEGER*2  IS1 . IS2 
DIMENSION  TP(2001 ) ,D(2001 ,43) 

DIMENSION  ITILT(10) 

DIMENSION  RNEW(3) ,R0LD(3) ,VNEW(3) ,VOLD(3) 

BYTE  IC( 1 20) 

C 

C TEST  DATA  FROM  WS32TDATA1 


c 
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DATA  LPRO( 1 )/’  SIM  DATA  PROFILE  HL146ABS'/ 
DATA  LPR0(2)/’  SIM  DATA  PROFILE  HL246ABSV 
DATA  LPRO(3)/’  SIM  DATA  PROFILE  HJ146ABS '/ 
DATA  LPR0(4)/’  SIM  DATA  PROFILE  HEL30ABS V 
DATA  LPRO(5)/’  SIM  DATA  PROFILE  H30SKAB$’/ 
DATA  LPRO(6)/’  SIM  DATA  PROFILE  H30SKACS * / 
DATA  LPRO(7)/’  SIM  DATA  PROFILE  HEL30AC$'/ 
DATA  LPR0(8)/’  SIM  DATA  PROFILE  HEL30AD$’/ 
DATA  LPRO(9)/’  SIM  DATA  PROFILE  HL246ACS ’/ 
OATA  LPRO(10)/'  SIM  DATA  PROFILE  HL34SAB$V 
DATA  LPRO(II)/’  SIM  DATA  PROFILE  HL446AB$’/ 
DATA  LPRO(12)/‘  SIM  DATA  PROFILE  HL546AB$’/ 
DATA  LPRO(13)/’  SIM  DATA  PROFILE  HL546ACS'/ 
DATA  LPR0(14)/’  SIM  DATA  PROFILE  HL246A0$V 
DATA  LPRO( 15)/‘  SIM  DATA  PROFILE  HL446ACS ’ / 
DATA  LPRO( 16)/’  SIM  DATA  PROFILE  HL146AC$‘/ 
DATA  LPR0(17)/’  SIM  DATA  PROFILE  HL346AD$‘/ 
DATA  LPRO( 18)/ ‘ SIM  DATA  PROFILE  HJ146AC$*/ 
DATA  LPRO(19)/'  SIM  DATA  PROFILE  HEL30AES*/ 
DATA  LPRO(20)/ ’ SIM  DATA  PROFILE  HEL30AF$*/ 
DATA  LPRO(21 )/ ’ SIM  DATA  PROFILE  H30SKAOS ’ / 
DATA  LPRO(22)/‘  SIM  DATA  PROFILE  H30SKAES ’ / 
DATA  LPRO(23)/ ' SIM  DATA  PROFILE  H30SKAF$‘/ 
DATA  LPRO(24)/‘  SIM  DATA  PROFILE  HEL30AGS’/ 
DATA  LPRO(25)/’  SIM  DATA  PROFILE  HEL30AH$*/ 
DATA  LPRO(26)/’  SIM  DATA  PROFILE  H30SKAG$‘/ 
DATA  LPRO(27)/’  SIM  DATA  PROFILE  H30SKAH J ' / 
DATA  LPRO(28)/’  SIM  DATA  PROFILE  H30SKAIS’/ 
DATA  LPRO(29)/’  SIM  DATA  PROFILE  HEL30AI$*/ 
DATA  LPRO( 30)/ ’ SIM  DATA  PROFILE  HEL30AJ$*/ 
DATA  LPRO(31 )/’  SIM  DATA  PROFILE  HL546AES'/ 
DATA  LPRO(32)/'  SIM  DATA  PROFILE  HL246AE$’/ 
DATA  LPRO(33)/’  SIM  DATA  PROFILE  HL446ADS’/ 
DATA  LPRO(34)/ ’ SIM  DATA  PROFILE  HL146AD$'/ 
DATA  LPRO(35)/*  SIM  DATA  PROFILE  HL346AES'/ 
DATA  LPRO(36)/ ' SIM  DATA  PROFILE  HJ146AD$’/ 
DATA  LPRO(37)/’  SIM  DATA  PROFILE  HL546AF$’/ 
DATA  LPRO(38)/’TSS  SIM  DATA  PROFILE  GEM1$’/ 
DATA  LPRO(39)/’TSS  SIM  DATA  PROFILE  GEM2S’/ 
DATA  LPRO(40)/ ’ TSS  SIM  DATA  PROFILE  GEM3$’/ 
DATA  LPR0(41)/*TSS  SIM  DATA  PROFILE  SAT1$'/ 
DATA  LPRO(42)/ ’ TSS  SIM  DATA  PROFILE  SAT2$‘/ 
DATA  LPRO(43)/’TSS  SIM  DATA  PROFILE  SAT3$’/ 
DATA  LPR0(44)/’TSS  SIM  DATA  PROFILE  SAT4$’/ 
DATA  LPRO(45) / ’TSS  SIM  DATA  PROFILE  SAT6$V 
DATA  LPR0(46)/’TSS  SIM  DATA  PROFILE  SAT8$'/ 
DATA  LPRO(47)/’TSS  SIM  DATA  PROFILE  BAL1$’/ 
DATA  LPRO(48)/’TSS  SIM  DATA  PROFILE  BAL2$'/ 
DATA  LPRO(49)/’TSS  SIM  DATA  PROFILE  BAL5$V 
DATA  LPRO(50)/’TSS  SIM  DATA  PROFILE  BAL6$’/ 
DATA  LPRO(51)/’TSS  SIM  DATA  PROFILE  BAL7$7 
DATA  LPRO(52)/’  SIM  DATA  PROFILE  HL546AG$'/ 
DATA  LPRO(53)/’  SIM  DATA  PROFILE  HL246AFS’/ 
DATA  LPR0(54)/’  SIM  DATA  PROFILE  HL446AES’/ 
DATA  LPRO(55)/’  SIM  DATA  PROFILE  HL146AES’/ 
DATA  LPRO(56)/’  SIM  DATA  PROFILE  HL346AFS’/ 
DATA  LPRO(57)/ * SIM  DATA  PROFILE  HJ146AES’/ 
DATA  FPRO(1 )/’HL146AB.XXX’/ 

DATA  FPRO(2)/  ’ HL246AB . XXX  * / 

DATA  FPRO(3)/’HJ146AB.XXX’/ 

DATA  FPRO( 4)/  ’ HEL30AB . XXX * / 

OATA  FPRO {&)/’ H30SKAB . XXX ’ / 

DATA  FPRO ( 6 ) / ’ H30SKAC . XXX ’/ 

DATA  FPRO(7)/’HEL30AC.XXX’/ 
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113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163  C 

164  C 

165  C 

166  C 

167  C 

168 

169 

170 

171 


DATA  FPRO( 8)/ * HEL30AD . XXX ’ / 
DATA  FPR0(9)/ 'HL246AC . XXX'/ 
DATA  FPRO ( 1 0 ) / * H L346 AB . XXX ' / 
DATA  FPRO( 11)/’ HL446AB . XXX  * / 
DATA  FPRO( 12)/*  HL546AB . XXX ' / 
DATA  FPRO (13)/*  HL546AC . XXX ’ / 
DATA  FPRO( 14)/' HL246AD . XXX  * / 
DATA  FPR0(15)/'HL446AC.XXXy 
DATA  FPRO( 16)/*HL146AC.XXX’/ 
DATA  FPRO( 17)/ * HL346AD . XXX  * / 
DATA  FPROOSy’HJIAeAC.XXXV 
DATA  FPRO( 19)/*  HEL30AE . XXX ’ / 
DATA  FPRO( 20)/ * HEL30AF . XXX ’ / 
DATA  FPRO(21 )/*H30SKAD.XXX */ 
DATA  FPRO ( 22 ) / * H30SKAE . XXX  * / 
DATA  FPRO ( 23 ) / ’ H30SK AF . XXX  * / 
DATA  FPRO( 24 )/ * HEL30AG . XXX  * / 
DATA  FPRO(25)/ *HEL30AH .XXX  */ 
DATA  FPRO( 26 ) / * H30SK AG . XXX  * / 
DATA  FPRO ( 27 ) / ' H30SK AH . XXX • / 
DATA  FPRO ( 28 ) / ‘ H30SKA I . XXX ’/ 
DATA  FPRO(29)/’HEL30AI  .XXXV 
DATA  FPRO ( 30 ) / * HE  L30A J . XXX ’ / 
DATA  FPR0(31 )/ ’HL546AE. XXX '/ 
DATA  FPRO(32)/’HL246AE.XXX ’/ 
DATA  FPRO(33)/ ’ HL446AD . XXX  */ 
DATA  FPRO ( 34 ) / * HL1 46AD . XXX  * / 
DATA  FPRO( 35 ) / * HL346AE . XXX * / 
DATA  FPRO^ey’HJIAeAD.XXXV 
DATA  FPRO ( 37 ) / ' H L546AF . XXX  * / 
DATA  FPR0(38)/’GEM1 .XXX •/ 
DATA  FPRO ( 39 ) / * GEM2 . XXX ’ / 
DATA  FPRO(40)/ 'GEM3 . XXX ’/ 
DATA  FPR0(41 ) / ’ SAT1 . XXX */ 
DATA  FPRO(42)/ ’SAT2 . XXX ’/ 
DATA  FPRO(43)/ *SAT3 . XXX ’/ 
DATA  FPR0(44)/'SAT4.XXXV 
DATA  FPR0(45)/ ‘SAT6 . XXX '/ 
DATA  FPR0(46)/ 'SAT8 . XXX */ 
DATA  FPR0(47)/fBAL1  .XXXV 
DATA  FPR0(48)/*BAL2 . XXX ’/ 
DATA  FPR0(49)/*BAL5 . XXX '/ 
DATA  FPRO ( 50 ) / # BAL6 . XXX  * / 
DATA  FPR0(51 )/ ’BAL7 . XXX '/ 
DATA  FPRO ( 52 ) / * H L546AG . XXX ' / 
DATA  FPRO ( 53 ) / * H L246AF . XXX  * / 
DATA  FPR0(54)/ * HL446AE. XXX */ 
DATA  FPRO(55)/’HL146AE.XXXV 
DATA  FPRO ( 56 ) / * H L346AF . XXX ’ / 
DATA  FPRO(57)/ ’HJ146AE.XXX ’/ 


SIMULATION  FILE  MODIFICATION 

A23-24.5 

TS-0.051 

WRITE  (6.*)  1 INPUT  RCS  IN  SOUARE  METERS  • 
READ  (5 » *)RCSM 


LINES  DELETED  FROM  BASELINE  PROGRAM 

1 COMMON  /TARGET/ I TARG , SRCS 

2 COMMON  /ACTDAT/R , ARDOT . SPANG  # SRANG , SPRTE , SRRTE , AL . BT  # SALF , SBTA . 

3 1 ER ( 3 ) , EV ( 3 ) . ERTO ( 3 ) , AZRATE , ELRAT  E . AZRTE , ELRTE 
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45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
67 


C0M40N  /TERM/ 1 TERM 

COMMON  /OUTPUT /MSWF .MTF.MSF, SSRNG , SSRDOT , SSPANG , SSRANG , SSPRTE . 

2 SSRRTE , SSRSS , MADVF , MRDVF , MARDVF , MRROVF 

3 , SSALP , SSBET 

COMMON  /SYSDAT /TS , DUM2 (14) 

TEST  DATA  FROM  WS32TDATA1 
CHARACTER *9  FPRO(18) 

CHARACTER*32  IXT, IYT(22) ,LPR0(18) 

DATA  IXT/' TIME  SECONDS! ’/ 

DATA  IYT(1 )/’ RANGE  FEET$’/ 

DATA  IYT(2)/’RANGE  RATE  FT/SEC$'/ 

DATA  IYT(3)/’R0LL  ANGLE  DEG$’/ 

DATA  IYT(4)/’PITCH  ANGLE  DEG$ ’/ 

DATA  IYT(5)/’R0LL  RATE  DEG/SECSV 
DATA  IYT(6)/*PITCH  RATE  DEG/SEC! ’/ 

DATA  IYT(7)/’ ALPHA  DEG$ ’ / 

DATA  IYT(8)/’BETA  DEG$'/ 

DATA  IYT(9)/ ’ A2  RATE  DEG/SEC$*/ 

DATA  IYT( 10)/* EL  RATE  DEG/SEC!’/ 

DATA  IYT(1 1 )/’  X (NORTH)  FEET$*/ 

DATA  IYT( 12)/’  Y (EAST)  FEET$’/ 

DATA  IYT(13)/’-Z  (ALTITUDE)  FEET$ ’ / 

DATA  IYT ( 14)/ ’ ELEVATION  ANGLE  DEG$’/ 

DATA  IYT( 15)/’DELTA  RANGE  FEET$’/ 

DATA  IYT( 1 6)/’DELTA  RANGE  RATE  FT/SECS*/ 

DATA  IYT ( 1 7)/'DELTA  ROLL  ANGLE  DEG$ ’ / 

DATA  IYT( 18)/’DELTA  PITCH  ANGLE  DEG$’/ 

DATA  IYT(19)/‘DELTA  ROLL  RATE  OEG/SEC$’/ 

DATA  IYT (20)/ ’DELTA  PITCH  RATE  DEG/SEC$’/ 

DATA  IYT(21)/’DELTA  ALPHA  DEG$’/ 

DATA  IYT (22)/ 'DELTA  BETA  DEG$*/ 

DATA  LPR0(1 )/’  SIMULATION  PROFILE  HJ146!*/ 

DATA  LPR0(2)/’  SIMULATION  PROFILE  HL146S’/ 

DATA  LPRO(3)/’  SIMULATION  PROFILE  HL246$*/ 

DATA  LPR0(4)/’  SIMULATION  PROFILE  HL346$’/ 

DATA  LPRO(5)/’  SIMULATION  PROFILE  HL446S’/ 

OATA  LPRO(6)/’  SIMULATION  PROFILE  HL546$’/ 

OATA  LPR0(7)/’  SIMULATION  PROFILE  BJ146$’/ 

DATA  LPR0(8)/’  SIMULATION  PROFILE  BL146!’/ 

DATA  LPRO(9)/’  SIMULATION  PROFILE  BL246$’/ 

DATA  LPRO( 10)/ ’ SIMULATION  PROFILE  BL346$’/ 

DATA  LPRO( 11)/’  SIMULATION  PROFILE  BL446$’/ 

DATA  LPRO( 12)/’  SIMULATION  PROFILE  BL546$’/ 

DATA  LPRO( 13)/ ’ SIMULATION  PROFILE  C6P48S’/ 

DATA  LPRO( 14)/’  SIMULATION  PROFILE  C6M48S’/ 

DATA  LPRO( 15)/’  SIMULATION  PROFILE  C6P30$’/ 

DATA  LPRO(16)/’  SIMULATION  PROFILE  C6M30S’/ 

DATA  LPRO( 17)/ ’ SIMULATION  PROFILE  CLP16$’/ 

DATA  LPRO(18)/ ’ SIMULATION  PROFILE  CLM16$’/ 

DIMENSION  RID( 120) 

DATA  FPRO( 1 )/’HJ 146 . JSC'/ 

DATA  FPRO(2)/’HL146.BIN’/ 

DATA  FPRO(3)/’HL246.BIN’/ 

DATA  FPRO(4)/’HL346.BIN’/ 

DATA  FPRO(5)/’HL446.BIN’/ 

DATA  FPRO(6)/’HL546.BIN’/ 

DATA  FPRO(7)/’BJ146.BIN’/ 

DATA  FPRO(8)/’8L146.BIN’/ 

DATA  FPRO(9)/’BL246.BIN’/ 

DATA  FPRO(10)/’BL346.BIN’/ 

DATA  FPRO(11 )/’BL446.BIN’/ 

DATA  FPRO( 12)/’BL546.BIN’/ 

DATA  FPR0(13)/’C6P48.BIN’/ 

DATA  FPR0(14)/’C6M48.BIN’/ 
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68 

DATA  FPRO( 15)/’C6P30.BIN’/ 

69 

DATA  FPRO (16)/’ C6M30 .BIN’/ 

70 

DATA  FPRO(17)/’CLP16.BIN’/ 

71 

DATA  FPRO( 18)/ ’CLM16 . BIN’/ 

72 

CHARACTER»9  UNIT7 

73 

BYTE  IC( 120) 

74 

COMMON  /TMR/X , Y , Z , VX , VY , VZ , 

75 

1 

DLP(3) ,DEL(3) ,DUE(3) , 

76 

2 

DSU(3) .THAZL1 .THEL1 .THAZU1 

77 

COMMON  /INPUT/RO(3) , VO(3) , EWB(3) 

78 

DIMENSION  TP(2001).D(2O01.22) 

79 

C 

80 

WRITE  (6,*) ’ 1 : TEK' 

81 

WRITE  (6.*)’2  : VT125’ 

82 

WRITE  (6,«) ’3  : VT240- 

83 

WRITE  (6 , •) ’ 4 : PC’ 

84 

READ  (5 , *) I TERM 

85 

WRITE(6.») 'PROFILE  NUMBER  PROFILE- 

86 

DO  L-1 .18 

87 

WRITE(6 , 200) L . LPRO( L) 

88 

200 

FORMAT  (7X . 12 , 9X , A32) 

89 

ENDDO 

90 

WRITE(6.*)’ INPUT  PROFILE  NUMBER- 

91 

READ(5 . •) ITAPE 

92 

C 

WRITE(6 , *)  ’ENTER  NAME  OF  BINARY  INPUT  FILE* 

93 

c 

READ(5, 1001 )UNIT7 

94 

C1001 

FORMAT (A24) 

95 

UNIT7-FPRO(ITAPE) 

96 

OPEN (UN IT-4, FORM- ’UNFORMATTED’ .STATUS- -OLD’ . 

97 

2 

FILE— UNIT7) 

98 

C 

99 

c 

READ(4) IC 

100 

c 

WRITE(6.150)(IC(I), 1-1 ,30) 

101 

150 

FORMAT (60A2) 

102 

IFTRK— 0 

103 

WRITE(6 , •) ’ INPUT  1 IF  YOU  WANT  TO  FILTER  USING 

104 

READ(5, •) IFTRK 

105 

WRITE(6,»)' INPUT  RSC  IN  SQUARE  METERS’ 

106 

READ  (5, »)RCSM 

LINES  ADDED  TO 

174 

175  C 

176 

177 

178 

179 

180 

181  C 

182 

183 

184 

185 

186  C 

187 

188 

189 

190  C 

191 

192 

193  2322 

194 

195 


DELIVERABLE  PROGRAM 
ITARG-0 

WRITE  (6, •) ' 1 : TEK’ 

WRITE  (6 , * ) ’ 2 : VT125* 

WRITE  (6, •) *3  : VT240’ 

WRITE  (6 , *) *4  : PC’ 

READ  (5 . *) ITERM 

WRITE  (6,*)' ENTER  : 1 IF  YOU  ARE  PROCESSING  TMR  DATA’ 

WRITE  (6.*)’  2 IF  YOU  ARE  PROCESSING  CINE  DATA ’ 

WRITE  (6,*)’  3 IF  YOU  ARE  PROCESSING  BEST  DATA*  . 

READ  (5 , *) IREF 

WRITE(6,*) ’ENTER  TIME  INTERVAL  ( 0.0  FOR  THE  WHOLE  INTERVAL 
READ(5 , *)STIME,STTIME 
IF  (STTIME. EO.0)STTIME*999 

WRITE  (6 , • ) * DO  YOU  WANT  TO  FILTER  THE  DATA  ? (Y/N) ’ 

READ  (5 , 2322 )ANS 
FORMAT (A) 

WRITE(6.*) ’PROFILE  NUMBER  PROFILE’ 

DO  L*1.19 


)’ 
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• 

196 

WRITE(6,200)L, LPRO(L) 

197 

200 

FORMAT (7X , 12 ,9X , A32) 

198 

ENDDO 

199 

WRITE  (6.*) ’ENTER  C TO  CONTINUE.  0 TO  QUIT 

200 

READ  (5,101)  REPLY 

201 

101 

FORMAT  (A) 

202 

IF  (REPLY. EQ. ’C’)  THEN 

203 

DO  L-20,38 

204 

WRITE(6,200) L, LPRO(L) 

205 

ENDDO 

206 

WRITE  (6. •) ’ENTER  C TO  CONTINUE.  Q TO  QUIT  :’ 

207 

READ  (5,101)  REPLY 

208 

IF  (REPLY. EQ. ’C’)  THEN 

209 

DO  L-39,57 

210 

WRITE(6,200)L,LPRO(L) 

211 

ENDDO 

212 

END  IF 

213 

END  IF 

214 

WRITE(6.*)’ INPUT  PROFILE  NUMBER’ 

215 

READ(5,*)ITAPE 

216 

UNIT7-FPRO(ITAPE) 

217 

CALL  FIXIT(ITILT,LPRO(ITAPE)) 

218 

IF  ( ITAPE.LT. 38. AND. ITAPE.GT. 51 )GO  TO  39 

219 

IF  ( I TAPE. GE. 38 .AND. I TAPE. LE. 51 )GO  TO  49 

220 

C 

221 

39 

IF  (IREF.EQ. 1 ) THEN 

222 

UNIT7(9 : 1 1 )— ’ JST’ 

223 

ELSE  IF  (IREF.EQ. 2)  THEN 

224 

UNIT7(9: 1 1 )— ’ JSC’ 

225 

ELSE 

226 

UNIT7(9:11)-’BST’ 

227 

ENDIF 

228 

GO  TO  59 

229 

49 

IF  (IREF.EQ.1)  THEN 

A 

230 

UNIT7(6:8)-’JST’ 

w 

231 

ELSE  IF  (IREF.EQ. 2)  THEN 

232 

UNIT7(6:8)-’JSC’ 

233 

ELSE 

234 

UNIT7(6:8)-’BST’ 

235 

ENDIF 

236 

59 

OPEN ( UN I T-4 , FORfcH ’ UNFORMATT ED ’ .STATUS- ’OLD’  , 

237 

2 

FILE-UNIT7) 

238 

C 

239 

TOUT-0. 

LINES 

DELETED 

FROM  BASELINE  PROGRAM 

109 

WRITE(6,*) 'SRCS— ’ ,SRCS 

110 

TOUT-0. 

LINES 

ADDED  TO 

DELIVERABLE  PROGRAM 

254 

DSU(3)— 5.46 

255 

C 

WRITE(6, •) ’ INPUT  1 FOR  SCREEN  OUTPUT’ 

256 

C 

READ(5,*)TOUT 

257 

J-0 

258 

C READ 

START  TIME 

259 

READ ( 4 ) TB I AS . GMT I ME . XMO , XDAY . XYR 

260 

I LOOP-1 

261 

1 

CONTINUE 

262 

READ(4 , END— 99) T , SSRNG , SSRDOT . SSRANG , SSPANG . SSRRTE . SSPRTE 

263 

1 

,X.Y,Z.VX,VY,VZ.AX,AY,A2.IS1 , IS2.RSS.RFPWR, AERR.BERR . ALFX . 

264 

1 

BETY , SCRR , SCPR 

265 

IF  (T.LT.STIME)  GOTO  1 

266 

I J J— 1 3 

• 

C-7 

267 

ITF-IAND(IS2, JJJ) 

268 

IF  (ITF.NE. IJJ.AND.ANS.EQ. *Y')  GO  TO  1 

269 

CALL  RPAB ( SSRANG . SSPANG , SSALP . SSBET ) 

270 

CALL  TMR2KU 

271 

DO  1-1.3 

272 

RNEW(I)-RO(I) 

273 

VNEW(I)-VO(I) 

274 

END  DO 

275 

I F ( I LOOP . NE . 1 ) GO  TO  7 

276 

6 

CALL  EXEC 

277 

IF(MPRF.EQ.I)  THEN 

278 

TS-.051 

279 

ELSE 

280 

TS* .119 

281 

END  IF 

282 

I F( I LOOP . EQ . 1 )THEN 

283 

T1-T 

284 

I LOOP-0 

285 

GO  TO  196 

286 

END  IF 

287 

7 

CONTINUE 

288 

T1-T1+TS 

289 

- 

IF(T1 ,GT.T)THEN 

290 

T1-T1-TS 

291 

GO  TO  196 

292 

END  IF 

293 

DO  1*1 .3 

294 

RO ( I )« ( RNEW ( I )-ROLD ( I ) ) * ( T 1 -T2 )/( T-T2)+ROLD ( I ) 

295 

VO( I )-(VNEW( I )— VOLD( I ) )» (T1-T2)/(T-T2)+VOLD( I ) 

296 

END  DO 

297 

GO  TO  6 

298 

196 

CONTINUE 

299 

T2-T 

300 

DO  1-1.3 

301 

ROLD(I)— RNEW(I) 

302 

VOLD(l)— VNEW(I) 

303 

END  DO 

304 

HRRTE-HRRTE* 1 80 . /(3 . 1 41 59* 1 000 . ) 

305 

HPRTE-HPRTE*180./(3. 14159*100©.) 

306 

J-J+1 

307 

IF( J . EO.2001 )GO  TO  99 

308 

IF(T.GE.STTIME)GO  TO  99 

309 

TP(J)«T 

1NES 

DELETED  1 

FROM  BASELINE  PROGRAM 

125 

DSU(3)—  5.46 

126 

RRITE(6 , •) ’ INPUT  1 FOR  SCREEN  OUTPUT' 

127 

READ (5.*) TOUT 

128 

J — 0 

129 

READ( 4, END— 99)T ,X , Y ,Z , VX , VY , VZ 

130 

READ(4 . END— 99)T1 .X.Y.Z.VX.VY.VZ 

131 

TS-T1-T 

132 

V¥RITE(6,*)'  TS-  ’ ,TS 

133 

1 

CONTINUE 

134 

READ(4,END-99)T, X.Y.Z.VX.VY.VZ 

135 

C DATA 

IN  METERS 

136 

CALL  TMR2KU 

137 

IF(TOUT.EO. 1 )THEN 

138 

WR I TE ( 6 , 1 00 ) T , SSRNG , SSSRRDOT . SSPANG . SRANG . SSPRTE . 

139 

1 

AZRATE , ELRATE , AZRTE , ELRTE 

140 

100 

FORMAT! ’ * .2F9.1 .9F9.3) 

141 

END  IF 

142 

CALL  EXEC 

143 

IF( IFTRK. EQ. 1 .AND.MTF. EQ.0)GO  TO  1 

C-8 


145 

146 


J-J+1 

IF( J . EQ.2001 )G0  TO  99 
TP(J)-T 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

312  D(J.3)-SSRANG 

313  D(J.4)-SSPANG 

314  D(J,5)-SSRRTE 


LINES  DELETED  FROM  BASELINE  PROGRAM 

149  D(J,4)«SSPANG 

150  D( J .3)— SSRANG 

151  D(J,5)-SSRRTE 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

318  D(J,9)-HRNG 

319  D(J,10)«HRDOT 

320  D(J,11)-RO(1) 

321  D(J,12)«RO(2) 

322  0(J,13)— RO(3) 

323  D(J,14)-ATAND(-RO(3)/SQRT(RO(1)*RO(1)+RO(2)*RO(2))) 

324  D(J ,15)»SSRNG-R 


LINES  DELETED  FROM  BASELINE  PROGRAM 

155  D(J,9)-AZRTE 

156  D(J .10)-ELRTE 

157  D(J,11)-X 

158  D(J,12)-Y 

159  D(J,13)— Z 

160  D(J,14)-ATAND(-Z/(X*X+Y*Y)) 

161  D(J,15)-SSRNG-R 


LINES  ADOED  TO  DELIVERABLE  PROGRAM 

328  D(J,19)-SSRRTE-SRRTE 

329  D ( J , 20 )-SSPRTE-SPRTE 


LINES  DELETED  FROM  BASELINE  PROGRAM 

165  D(J , 19)»SSRRTE— SRTE 

166  D(J,20)-SSPRTE-SPRTE 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 


332 

D(  J ,23)— SAZRTE 

333 

D(J.24)«SELRTE 

334 

D(J.25)-RSS 

335 

D(J,26)-RFPWR 

336 

D(J,27)-AERR 

337 

D(J.28)-BERR 

338 

D(J.29)-ALFX 

339 

D(J.30)«BETY 

340 

D(J,31)-SCRR 

341 

D(J.32)-SCPR 

342 

IF  (HRSS.LE.0)  THEN 

343 

D(J,33)-0 

344 

ELSE 

345 

D(J.33)-(32»HRSS)- 

346 

END  IF 

347 

D(J.34)«RACCEL 

348 

D(J,35)»HRNG-R 

349 

D(J.36)-HRDOT-ARDOr 

350 

D(J ,37)-HRANG-SRANG 

351 

352 

353 

354 

355 

356 

357 

358 
35L 

360 

361 

362  99 

363 

364 

365  94 

366 

367 

368 

369  C 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409  _ 

410 

411 

412 

413 

414 


D(J,38)«HPANG-SPANG 

D(J,39)«HRRTE-SRRTE 

D( J , 40)*HPRTE— SPRTE 

D(J,41)«HALP-SALF 

D(J,42)*HBET-SBTA 

D(J,43)«HRSS/32. 

I F ( J . GT . 2000 ) THEN 

WRITE(6, *) ' MORE  THAN  2000  POINTS* 

STOP 

END  IF 

GO  TO  1 

CONTINUE 

J-J-1 

IXD~0 

CONTINUE 

CALL  SORT(TP,D.JtITILT, IXD , I YD.GMTIME, IREF) 

GO  TO  94 

END 


SUBROUTINE  SORT(T , D, J , ITI LT , IXD, I YD.GMTIME, IREF) 

DIMENSION  D(2001 ,43) ,X(2001 ) , Y(2001 ) f T(2001 ) 

CHARACTER *40  I XT . IYT(43) , PRONAME 
CHARACTER *4  REFF 

DIMENSION  ITILT(10),IXL(10) , IYL(10) 

DATA  IXT/'TIME  SECONDS*’/ 

DATA  IYT(  1 )/*KU  MDM  RANGE  FEET*'/ 

DATA  IYT(2)/'KU  MDM  RANGE  RATE  FT/SECS'/ 

DATA  IYT(3)/'KU  MDM  ROLL  ANGLE  DEG$'/ 

DATA  IYT(4)/*KU  MDM  PITCH  ANGLE  DEG$ * / 

DATA  IYT(5)/*KU  MDM  ROLL  RATE  DEG/SEC*'/ 

DATA  I YT(6)/ * KU  MDM  PITCH  RATE  DEG/SEC$’/ 

DATA  I YT ( 7 ) / * KU  MDM  ALPHA  DEG$  * / 

DATA  IYT(8)/’KU  MDM  BETA  DEG$'/ 

DATA  IYT(9)/*SIM  RANGE  FEET*'/ 

DATA  IYT ( 10)/*SIM  RANGE  RATE  FT/SEC$’/ 

DATA  IYT (11 )/  'WSMR  X (NORTH)  FEET$*/ 

DATA  IYT(12)/'WSMR  Y (EAST)  FEET**/ 

DATA  IYT ( 1 3)  /'WSMR  -Z  (ALTITUDE)  FEET$*/ 

DATA  I YT( 1 4)/ ’ WSMR  ELEVATION  ANGLE  DEG$ * / 

DATA  IYT(15)/*DELTA  RANGE  FEET  ( KU  - WSMR  )$’/ 

DATA  IYT( 1 6)/*DELTA  RANGE  RATE  FT/SEC  ( KU  - WSMR  )$*/ 
DATA  IYT( 17) /* DELTA  ROLL  ANGLE  DEG  ( KU  - WSMR  )$*/ 

DATA  IYT( 18)/* DELTA  PITCH  ANGLE  DEG  ( KU  - WSMR  )$'/ 
DATA  IYT ( 19)/*DELTA  ROLL  RATE  DEG/SEC  ( KU  - WSMR)$*/ 
DATA  IYT(20)/*DELTA  PITCH  RATE  DEG/SEC  ( KU  - WSMR  )$*/ 
DATA  IYT(21 )/’ DELTA  ALPHA  DEG  ( KU  - WSMR  )$’/ 

DATA  IYT (22)/’ DELTA  BETA  DEG  ( KU  - WSMR  )$*/ 

DATA  IYT (23)/ 'WSMR  AZ  RATE  DEG/SEC$'/ 

DATA  IYT (24)/ 'WSMR  EL  RATE  DEG/SECS'/ 

DATA  IYT(25)/*KU  SCANNER  RSS  ( VOLTS  )$’/ 

DATA  IYT (26)/'KU  SCANNER  RF  POWER  ( VOLTS  )$*/ 

DATA  IYT(27)/'KU  SCANNER  ALPHA  ERROR  ( VOLTS  )$*/ 

DATA  IYT(28)/'KU  SCANNER  BETA  ERROR  ( VOLTS  )$'/ 

DATA  IYT(29)/'KU  SCANNER  ALPHA  X ( VOLTS  )$'/ 

DATA  IYT(30)/*KU  SCANNER  BETA  Y ( VOLTS  )$*/ 

DATA  IYT (31 )/ ' KU  SCANNER  ROLL  RATE  ( VOLTS  )$'/ 

DATA  IYT(32)/'KU  SCANNER  PITCH  RATE  ( VOLTS  )$'/ 

DATA  IYT(33)/'SIM  RADAR  CROSS  SECTION  ( DBSM  )$*/ 

DATA  IYT (34)/ ’WSMR  RANGE  ACCELERATION  FT/SEC/SEC$'/ 

DATA  IYT (35)/ 'DELTA  RANGE  FEET  (SIM-WSMR)$ */ 

DATA  IYT (36)/' DELTA  RANGE  RATE  FT/SEC  (S1M-WSMR)$*/ 

DATA  IYT (37)/' DELTA  ROLL  ANGLE  DEG  (SIM-WSMR)$ '/ 

DATA  IYT (38)/' DELTA  PITCH  ANGLE  DEG  (S1M-WSMR)$ ' / 

DATA  IYT (39)/ 'DELTA  ROLL  RATE  DEG/SEC  (SIM-WSMR)$ */ 
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417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433  1 

434 

435 

436  68 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446  731 

447 


DATA  IYT (40)/ » DELTA  PITCH  RATE  DEG/SEC  (SIM-WSMR)$ 7 
DATA  IYT(41  )/'DELTA  ALPHA  DEG  (SIM-WSMR)$7 
DATA  IYT(42)/*DELTA  BETA  DEG  (SIM-WSMR)$7 
DATA  IYT(43)/'SIM  RADAR  SIGNAL  STRENGTHS 7 
I FLAG-1 

IF  (IREF.EQ.I)THEN 
REFF— * TUR  * 

ELSE  IF  (IREF.EQ.2)  THEN 
REFF- ’CINE’ 

ELSE 

REFF-’ BEST’ 

ENDIF 
DO  1-1,43 

L-INDEX( IYT(I ) , 'WSMR' ) 

IF  (L  .GT.  0)  THEN 
IYT(I)(L:L+3)  - REFF 
ENDIF 
ENDOO 
CONTINUE 
DO  1-1,43 

WRITE(6.68)I,IYT(I) 

FORMAT ( 1 X , 1 4 , 1 0X , A40) 

ENDDO 

WRITE(6,.) ■ INPUT  IXD.IYD  IXD-0  FOR  TIME* 

IF  ( 1 FLAG.  EQ.0) THEN 
I FLAG-1 
IXD-0 
I YD— 1 
GO  TO  731 
ENDIF 

READ(5,«) IXD.IYD 
IF(IXD.EQ.0)THEN 
DO  1-1, J 


LINES  DELETED  FROM  BASELINE  PROGRAM 

169  GO  TO  1 

170  99  CONTINUE 

171  IXD-0 

172  94  CONTINUE 


173  WRITE(6, ») 'RCS  IN  METERS-' ,RCSM 

174  WRITE(6,») 'PARA  AXES  TITLE* 

175  DO  1-1,22 


176  WRITE(6,68)I.IYT(I) 

177  68  FORMAT ( 1 X , 1 4 , 1 0X , A32  ) 

178  ENDDO 


179  WRITE(6,») ’ INPUT  IXD.IYD  IXD-0  FOR  TIME’ 

180  READ(5,*) IXD.IYD 

181  CALL  SORT(TP,D,J,ITAPE, IXD.IYD) 

182  GO  TO  94 


183  END 


184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 


SUBROUTINE  SORT(T,D, J , I TAPE, IXD, I YD) 
DIMENSION  D(2001 ,22) ,X(2001 ) .Y(2001 ) ,T(2001 ) 
CHARACTER*32  IXT, IYT(22) , LPRO(18) 

DIMENSION  ITILT(8) , IXL(8) , IYL(8) 

DATA  IXT/ 'TIME  SECONDS*'/ 

DATA  IYT(1)/'RANGE  FEETS/ 

DATA  IYT(2)/’RANGE  RATE  FT/SEC*’/ 

DATA  IYT(3)/’ROLL  ANGLE  DEG$'/ 

DATA  IYT(4)/ 'PITCH  ANGLE  DEG$’/ 

DATA  IYT(5)/’ROLL  RATE  OEG/SECS'/ 

DATA  IYT(6)/'PITCH  RATE  DEG/SECS'/ 

DATA  IYT(7)/'ALPHA  DEG$’/ 

DATA  IYT(8)/'BETA  DEG$'/ 

DATA  IYT(9)/'AZ  RATE  DEG/SECS*/ 
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198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 


DATA  IYT(10)/’EL  RATE  DEG/SEC$7 
DATA  IYT( 1 1 )/*  X (NORTH)  FEET$7 
DATA  IYT(12)/*  Y (EAST)  FEET$  7 
DATA  IYT(13)/*-Z  (ALTITUDE)  FEET$ */ 

DATA  I YT ( 1 4 ) / * ELEVATION  ANGLE  DEG$ ’/ 

DATA  IYT( 15)/’DELTA  RANGE  FEET$ ' / 

DATA  IYT(16)/*DELTA  RANGE  RATE  FT/SECS*/ 
DATA  IYT(17)/'DELTA  ROLL  ANGLE  DEG$ ’ / 

DATA  IYT(18)/*DELTA  PITCH  ANGLE  DEG$ * / 

DATA  IYT ( 19)/*DELTA  ROLL  RATE  DEG/SEC$7 
DATA  IYT (20)/* DELTA  PITCH  RATE  DEG/SEC$7 
DATA  IYT (21)/ •DELTA  ALPHA  DEG$7 
DATA  IYT(22)/'DELTA  BETA  DEG$7 
DATA  LPRO( 1 )/  ’ SIMULATION  PROFILE  HJ 146$ 7 
DATA  LPR0(2)/*  SIMULATION  PROFILE  HL146$7 
DATA  LPR0(3)/*  SIMULATION  PROFILE  HL246$7 
DATA  LPR0(4)/*  SIMULATION  PROFILE  HL346$ 7 
DATA  LPRO(5)/*  SIMULATION  PROFILE  HL446$7 
DATA  LPR0(6)/*  SIMULATION  PROFILE  HL546$7 
DATA  LPRO(7)/*  SIMULATION  PROFILE  BJ146$7 
DATA  LPRO(8)/ * SIMULATION  PROFILE  BL146$7 
DATA  LPRO(9)/*  SIMULATION  PROFILE  BL246$7 
DATA  LPRO(  1 0)/’  SIMULATION  PROFILE  BL346$7 
DATA  LPRO(II)/’  SIMULATION  PROFILE  BL446S7 
DATA  LPRO(  12)/’  SIMULATION  PROFILE  BL546S7 
DATA  LPRO( 13)/ ' SIMULATION  PROFILE  C6P48$ 7 
DATA  LPR0(14)/’  SIMULATION  PROFILE  C6M48S7 
DATA  LPR0(15)/’  SIMULATION  PROFILE  C6P30$ 7 
DATA  LPRO(16)/’  SIMULATION  PROFILE  C6M30$  7 
DATA  LPR0(17)/’  SIMULATION  PROFILE  CLP16$7 
DATA  LPRO(  18)/’  SIMULATION  PROFILE  CLM16$7 
JPRO«I TAPE 

CALL  FIXIT(1TILT, LPRO( JPRO) ) 

I F ( I XD . EQ . 0 ) THEN 
DO  I«1  . J 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 


461 

462 

463  2 

464 

465 

CALL  PLOTIT( ITI LT , IXL,IYL,X,Y,J , GMT I ME, IYD# IXD) 

GO  TO  1 

CONTINUE 

RETURN 

END 

4oo  L-  * * * 1 

467 

SUBROUTINE  FIXIT( IOUT , IN) 

468 

DIMENSION  IOUT(IC) 

469 

CHARACTER *4  ITEMP(10) 

470 

CHARACTER*40  IN 

471 

I TEMP ( 1 )«( IN( 1:4)) 

LINES  DELETED  FROM  BASELINE  PROGRAM 

246  CALL  PLOTIT(ITILT,IXL.IYL.X,Y,J) 

247  RETURN 

248  END 

249  SUBROUTINE  FIXIT( IOUT , IN) 

250  DIMENSION  I0UT(8) 

251  CHARACTER *4  ITEMP(8) 

252  CHARACTER *32  IN 

253  I TEMP ( 1 )«( IN( 1 : 4) ) 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

479  ITEMP(9)«( IN(33 : 36) ) 

480  ITEMP(10)-(IN(37:40)) 


C-12 


999 


482 

483 

484 

485  C 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 


ENCODE(40 , 999 , 10UT) ( ITEMP( I ) . 1-1 . 10) 
FORMAT (10A4) 

RETURN 

END 


SUBROUTINE  PlOTIT( JTI LT, IXL, IYL.X.Y, J , GMTIME, I YD, 1X0) 

COMMON  /TERM/I TERM , XMO . XDAY , XYR , TBI AS . XJMO , XJDAY , X J YR 
C0M40N/TMR/A,B,C,D,E,F,G(3)  ,AH(3)  ,AI(3)  ,AJ(3)  .THA2L1  , THEL1  , THAZU1 
DOUBLE  PRECISION  S1G.AVG 
BYTE  CR(2) 

DIMENSION  ITI LT(8)  , IXL(8) , IYL(8) 

DIMENSION  X( 1 ) ,Y(1 ) ,TINL(30) 

WRITE(6,«)  ’ 1 FOR  MEAN  AND  STANDARD  DEVIATION  OF  Y' 

READ(5,*)ISTA 

NSO0 

XMAX-X(I) 


LINES  DELETED  FROM  BASELINE  PROGRAM 

261  ENC0DE(32.999.10UT)(ITEMP(I),I-1 .8) 

262  999  FORMAT (8A4) 

263  RETURN 

264  END 

265  SUBROUTINE  PLOTIT(ITI LT . IXL. IYL.X.Y. J) 

266  COMMON  /TERM/ I TERM 

267  DIMENSION  ITI LT(8) . IXL(8) . IYL(8) 

268  DIMENSION  X(1),Y(1) 

269  BYTE  CR(2) 

270  C0M40N/TMR/A,B,C,D.E.F,G(3),AH(3),AI(3).AJ(3),THAZL1  . THEL1  , THAZU1 

271  CR( 1 )-27 

272  CR(2)-12 

273  XMAX-X(I) 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 


500 

GMHOUR 1 -GMT  I ME/60 . /60 . 

501 

GMHOUR— INT(GMHOURI) 

502 

GMM I N 1 -(  GMHOUR  1 -GMHOUR  )•  60 . 

503 

GM4IN-INT(GM4IN1) 

504 

GMSEC— INT ( (GMMIN1-GMMIN)  *60. ) 

505 

DO  1-1 ,J 

LINES  DELETED  FROM  BASELINE  PROGRAM 
277  DO  1-1  , J 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 


513 

IF(YMAX. EQ.YMIN)YMAX— 0. 1 

514  2 

CONTINUE 

515 

YMAX1-YMAX 

516 

YMIN1-YMIN 

517 

IF  (ITERM.E0.1)  CALL  TEKALL(41 14,480,0, 1 .0) 

LINES  DELETED  FROM  BASELINE  PROGRAM 

285  IF  (ITERM.EQ.1)  CALL  TEKALL( 41 14,480,0, 1 .0) 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

520  IF  (IYD.EQ. 1)CALL  RINTL(X,Y, J .TINL.NTINL) 

521  CALL  BGNPL(-I) 


522 

CALL 

523 

CALL 

524 

CALL 

525 

CALL 

526  C 

CALL 

FLATBD 

PAGE( 14. ,20.) 

AREA2D  (9.0,14.0) 

HEIGHT( .45) 

T1TLE( ITI LT, 100, IXL, 100, IYL, 100,9.0, 13.5) 


C-13 


! 


527 

CALL  MESSAG(ITILT, 100,-0.6, 16.5) 

528 

CALL  RESET  (’HEIGHT’) 

529 

CALL  HEIGHT  (.3) 

530 

1 1 00=100 

531 

C 

0.6  WAS  SUBTRACTED  TO  CENTER  AND  1 INCHE  WERE  ADDE 

532 

CALL  MESSAG( ’ TEST  DATES ’, 1 100 ,0.7, 15.5) 

533 

IF  (XMO.GE. 10)THEN 

534 

CALL  REALNO(XMO, 0,3. 0,15.5) 

535 

ELSE 

536 

CALL  REALNO( XMO ,0,3.3,15.5) 

537 

END  IF 

538 

CALL  REALNO(XDAY,0,3.9 ,15.5) 

539 

IF  (XDAY.GE. 10)  THEN 

540 

CALL  REALNO(XYR,0,4.8, 15.5) 

541 

ELSE 

542 

CALL  REALNO(XYR.0,4.5, 15.5) 

543 

END  IF 

544 

CALL  MESSAGC  REVISION  12$’ , I 100,6.0, 15.5) 

545 

C 

POSITION  CHANGED  FROM  13.7  TO  14.2 

546 

c 

X— POS I T I ON  MOVED  FORWARD  BY  1.2 

547 

CALL  MESSAGC ’T0-  GMT-$’ . 1100, 1 .2. 14.2) 

548 

CALL  REALNO(GMTIME,0,1 .8,14.2) 

549 

CALL  REALNO(GMHOUR ,0,5.1 .14.2) 

550 

CALL  REALNO(GMMIN, 0,6. 0,14.2) 

551 

CALL  REALNO(GMSEC .0,6.9,14.2) 

552 

I F ( I ST  A . EQ . 1 ) THEN 

553 

AVG-0 

554 

SIG-0 

555 

DO  1*1  . J 

556 

AVG— AVG+Y ( I ) 

557 

SIG-SIG+Y(I).*2 

558 

END  DO 

559 

AVG-AVG/J 

560 

SIG-SORT(  SIG/J  -AVG*AVG) 

561 

CALL  MESSAG( ’MEAN-  $’.1100,-0.9,-2.0) 

562 

CALL  REALNO(AVG,3, ’ABUT’ . ’ABUT’) 

563 

CALL  MESSAGC’  STANDARD  DEVIATION-  $’. 1100,3.3,-2. 

564 

CALL  REALNO(SIG,3, ’ABUT* , ’ABUT’) 

565 

ENDI  F 

566 

CALL  XNAME( IXL, 100) 

567 

CALL  YNAME( lYL, 100) 

568 

CALl  INTAXS 

569 

CALL  YAXANG(0.) 

570 

I F ( NSC . EQ . 0 ) THEN 

571 

CALL  GRAF(XMIN, ’SCALE’ .XMAX.YMIN, ’SCALE’ , YMAX) 

572 

END  IF 

573 

I F ( NSC . EQ . 1 )THEN 

574 

CALL  GRAF(XMIN, ’SCALE’ .XMAX.YMIN, ’SCALE’ ,YMAX) 

575 

END  IF 

576 

IF  (NTINL.NE.0.AND. IXD . EQ. 0)THEN 

577 

DO  K— 1 .NTINL 

578 

IVEC— 1302 

579 

CALL  RLVEC  (TINL(K) , YMIN1 ,TINL(K) .YMAX1 , IVEC) 

580 

ENDDO 

581 

END  IF 

582 

CALL  CURVE(X,Y, J ,0) 

583 

CALL  GRID( 1,1) 

LINES 

DELETED 

FROM  BASELINE  PROGRAM 

288 

CALL  BGNPL(-I) 

289 

CALL  FLATBD 

290 

CALL  PAGE(14. ,18.) 

291 

CALL  HEIGHT (.3) 

292 

CALL  TITLE( ITI LT , 100, IXL, 100, IYL, 100,9.0,13.5) 

C-14 


294  C 

295  C 

296  C 

297  C 

298  C 

299  C 

300  C 

301  C 

302  C 

303  C 

304  C 

305  C 

306  C 

307  C 

308 

309 

310 

311  C 

312  C 

313  C 

314  C 

315  C 

316  C 

317 

318 


1100-100 

CALL  MESSAG( ‘LOWER  AZIMUTH-*  \ 1100, 1 .7, 13.  ) 
CALL  REALNO(THAZL1 ,2. ‘ABUT* . ‘ABUT’) 

CALL  MESSAG( ‘UPPER  AZIMUTH— $‘ ,1100,1 .7,12.5) 
CALL  REALNO(THAZU1 .2, ‘ABUT’ , ‘ ABUT ‘ ) 

CALL  MESSAG( * ELEVATION— $ ‘ ,1100,1 .7,12.) 

CALL  REALNO(THEL1 .2, ‘ABUT’. ‘ABUT’) 

CALL  BLNK1 (1 .5,7.5.11.9.13.5,4) 

CALL  HEADIN( ITILT ,-100 ,-8 , 4) 

CALL  HEADIN(‘ LOWER  AZIMUTH-$‘,100,4.4) 

CALL  REALNO(THAZL1 ,2,  ‘ABUT  ’ , ‘ABUT*  ) 

CALL  HEADIN( ‘UPPER  AZIMUTH-$ \100 . 4 , 4) 

CALL  REALNO(THAZU1  .2.  ‘ABUT’  . ‘ABUT’) 

CALL  HEADIN(  ’ ELEVATION-*  ‘ .100,4,4) 

CALL  REALNO(THEL1  ,2,  ‘ABUT*  , ‘ABUT* ) 

CALL  YAXANG(0. ) 

CALL  GRAF(XMIN.  ‘SCALE'  .XMAX.YMIN.  ‘SCAL£‘  , YMAX) 
CALL  CURVE(X , Y. J ,0) 

KK-J/30 
K— 0 

DO  1-1  ,KK 
K— 30+K 

CALL  RLINT(K,X(K),Y(K)) 

ENDDO 

CALL  GRID(I.I) 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 
586  CALL  DONEPL 


587 

588 

589 

590  888 

591 

592 

593 

594 

595 

596 

597 

598 

599 


CR(1)»27 
CR(2)-12 
WRITE(6,888)CR 
FORMAT ( 1 + ‘ ,2A1 ) 

WRITER,*)1  INPUT  1 TO  CHANGE  SCALE  OF  Y AXIS’ 
READ(5, *)NSC 
IF(NSC. EO. 1 )THEN 

WR1TE(6,*)’YMAX-’ ,YMAX, ’ YMIN-’ . YMIN 
WR1TE(6, *) ’ NEW  YMAX' 

READ(5,*)YMAX 
WRITE(6 , *) ’NEW  YMIN’ 

READ(5, »)YMIN 
GO  TO  2 


600  END  IF 


LINES  DELETED  FROM  BASELINE  PROGRAM 

321  888  FORMAT( ’+’ ,2A1 ) 

322  CALL  DONEPL 

323  C MICKEY  MOUSE  FIX 

324  IM4-1 

325  IF(IMM.EO.0)THEN 

326  REWIND  (5) 

327  READ(5, 192) IC 

328  192  FORMAT (A1) 

329  WRITE(6,888)CR 

330  ENOIF 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

603  C 

60*  SUBROUTINE  RPA8(R0LLQ,PITCHQ, ALPHA. BETA) 

605  DEGRAD-57.29576 


PS1-67./DEGKAD 

PIT-PITCHQ/DEGRAD 


015 


608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 
623 

coi 

ROL-ROLLQ/DEGRAD 

XB-SIN(PIT) 

YB— (SIN(R0L))*S0RT(1 .0-XB.XB) 

Z-SQRT(1 . 0— XB*XB-YB»YB) 

I F( ROLLQ . LE . 90 . 0 . AND . ROLLQ . GE . —90 . 0)Z— Z 
XR-XB  «COS ( PS I )+YB*  S I N ( PS I ) 
YR-YB*COS(PSI)-XB»SIN(PSI) 

YRZR-SQRT ( YR  * YR+Z  * Z ) 

ALF-ASIN(YR/YRZR) 

BT  A— AS I N ( — XR/SORT ( XR • XR+YR  * YR+Z • Z ) ) 

ALPHA— ALF* DEGRAD 
BETA-BT A* DEGRAD 

I F( Z . GE . 0 . 0 . AND . YR . LE . 0 . 0 ) ALPHA— ( 1 80 . 0+ALPHA) 
I F(Z.GE. 0.0. AND. YR.GT.0.0)ALPHA-( 180. 0-ALPHA) 
RETURN 
END 

625 

SUBROUTINE  R1NTL(T,R,N.TI , J) 

626 

DIMENSION  RI(5).R(1),DS(5) ,TI(30),T(1) 

627 

DATA  R 1/2550. ,5750. ,11510. ,23030. ,43510./ 

628 

RMAX-R(I) 

629 

• RMIN-R(I) 

630 

DO  1 1-1  .N 

631 

RMAX-AMAX1 (RMAX , R ( I ) ) 

632 

RMIN-AMIN1 (RMIN,R( I ) ) 

633 

1 

CONTINUE 

634 

MRMAX-1 

635 

MRMIN-1 

636 

DO  2 1-1 ,5 

637 

I F(  RMAX . GT . RI ( I ) )MRMAX«I 

638 

IF(RMIN.GT .RI ( I ) )MRMIN— I 

639 

2 

CONTINUE 

640 

J— 0 

641 

IF(MRMAX.EQ.MRMIN)RETURN 

642 

J-0 

643 

DO  3 L-1  r5 

644 

DS(L)-R(1)-RI(L) 

645 

3 

CONTINUE 

646 

DO  4 1-1, N 

647 

DO  5 L-1  ,5 

648 

I F ( (R(I)-RI(L))  * DS( L)  .LT.  0 )THEN 

649 

J-J+1 

650 

TI ( J )— T( I ) 

651 

DS( L)— R( I )— RI ( L) 

652 

END  IF 

653 

5 

CONTINUE 

654 

4 

CONTINUE 

655 

RETURN 

656 

CRT 

END 

057 

658 

* » * 
c ** 

MOD ED  JWG  2/8/85 

659 

c •• 

660 

c •• 

INPUT  VIA  C0M40N  VIA  X.Y.Z.VX.VY.VZ.AX.AY.AZ 

661 

c •* 

OUTPUT  VIA  COMMON  /ACTDAT/ 

LINES  DELETED  FROM  BASELINE  PROGRAM 


333 

SUBROUTINE  TMR2KU 

334 

c *• 

MOD ED  JWG  2/8/85 

335 

C ** 

336 

337 

C • • 

INPUT  VIA  C0M40N  VIA  X,Y,Z,VX,VY,VZ 

338 

**»•*< 

c •• 

OUTPUT  VIA  COMMON  /ACTDAT/ 

C-16 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

741  SUBROUTINE  TMR2KU 

742  COMMON  /TMR/X , Y , Z . VX, VY . VZ . 

743  1 DLP(3) ,DEL(3) ,DUE(3) , 

744  2 DSU(3) .THAZL1  ,THEL1 , THAZU1 .A23 

745  COMMON  /INPUT/R0(3),V0(3),EWB(3) 

746  COMMON  /ACTDAT/R , ARDOT , SPANG . SRANG . SPRTE . SRRTE , AL . BT . SALF , SBTA . 

747  1 ER ( 3 ) , EV(3 ) . ERTO( 3 ) . AZRATE . ELRATE , AZRTE , ELRTE 

748  2 , AX , AY , AZ , AAX , AAY , AAZ , R ACC  EL 

749  C DIMENSION  DLP(3) ,DEL(3) ,DUE(3) ,DSU(3) 

LINES  DELETED  FROM  BASELINE  PROGRAM 

418  COMMON  /TMR/X, Y.Z,VX,VY,  VZ. 

419  1 DLP(3)  ,DEL(3)  ,DUE(3)  ,- 

420  2 DSU(3).THAZL1  ,THEL1 .THAZU1 

421  COMMON  /INPUT/RO(3) ,VO(3) , EWB(3) 

422  COMMON  /ACTDAT/R, ARDOT. SPANG, SRANG. SPRTE, SRRTE. AL.BT. SALF, SBTA. 

423  1ER(3).EV(3),ERT0(3), AZRATE. ELRATE, AZRTE. ELRTE 

424  C DIMENSION  DLP(3) ,DEL(3) ,DUE(3) ,DSU(3) 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

754  DIMENSION  APT(3) , ALAZ(3) , AELV(3) ,AST(3) 

755  DATA  DEGRAD/57 . 275/ .PI/3 . 1 4159/ 


LINES  DELETED  FROM  BASELINE  PROGRAM 

429  DATA  DEGRAD/57 . 275/, PI/3 . 1 4159/ 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 


780 

VPT(3)-VZ 

781 

APT(1)-AX 

782 

APT(2)-AY 

783 

APT(3)-AZ 

784  C 

LINES  DELETED  FROM  BASELINE  PROGRAM 

454  VPT(3)-VZ 

455  C 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

838  C CONVERT  TO  VELOCITIES  REFERENCED  TO  GIMBALS 

839  CALL  MULT31  (AZL, VPT.VLAZ) 

840  CALL  MULT31 ( ELV, VLAZ, VELV) 

841  CALL  MULT31(AZU, VELV, VST) 

842  C CONVERT  TO  ACCELATIONS  REFERENCED  TO  GIMBALS 

843  CALL  MULT31 (AZL, APT.ALAZ) 

844  CALL  MULT31 (ELV, ALAZ.AELV) 

845  CALL  MULT31  (AZU, AELV.AST) 

846  C THESE  ARE  VELOCITIES  IN  GIMBAL  REFERENCE. 

LINES  DELETED  FROM  BASELINE  PROGRAM 

509  C CONVERT  TO  VELOCITIES  REFERENCED  TO  GIMBALS 

510  CALL  MULT31  (AZL, VPT.VLAZ) 

5H  CALL  MULT31( ELV, VLAZ, VELV) 

512  CALL  MULT31 (AZU, VELV, VST) 

513  C THESE  ARE  VELOCITIES  IN  GIMBAL  REFERENCE. 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 


854 

855 

856 


C23-C0SD(A23) 
S23-SIND(A23) 
X1-RO(2)*C23-RO(3).S23 


C-17 


LINES  DELETED  FROM  BASELINE  PROGRAM 

521  C23«COSD(23.) 

522  S23«SIND(23.) 

523  X1«RO(2)»C23-RO(3)*S23 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 


868 

AAX-AST ( 2 ) .C23-AST ( 3 ) * S23 

869 

AAY— AST  (2  ) .S23-AST  ( 3)  *C23 

870 

AAZ— AST(1) 

871 

CALL  ACT 

LINES  DELETED 

FROM  BASELINE  PROGRAM 

535 

CALL  ACT 

LINES  ADDED  TO  DELIVERABLE  PROGRAM 


878 

879 

RETURN 

END 

os  0 
881 

SUBROUTINE  AZGEN(AZ , ANGAZ) 

INES 

DELETED 

FROM  BASELINE  PROGRAM 

542 

C THE 

EXAMPLE  CASE  RESULTS  ARE: 

543 

C 

WRITE(6,»)R, ARDOT 

544 

C 

WR I TE( 6 . . ) SRANG . SPANG 

545 

C 

WR I TE ( 6 , « ) SRRTE . SPRTE 

546 

C 

VKRITE(6,.)SALF,SBTA 

547 

C 

WRITE(6 , *)AZRTE, ELRTE 

548 

RETURN 

549 

END 

550 

SUBROUTINE  AZGEN ( AZ . ANGAZ ) 

LINES  ADDED  TO  DELIVERABLE  PROGRAM 

895  C 

896  SUBROUTINE  ELGEN( EL. ANGEL) 


LINES  DELETED  FROM  BASELINE  PROGRAM 

564  SUBROUTINE  ELGEN( EL, ANGEL) 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

908  C ........................ 

909  C SUBROUTINE  ACT 


LINES  DELETED  FROM  BASELINE  PROGRAM 
576  C SUBROUTINE  ACT 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

919  C ........................ 

920  SUBROUTINE  ACT 


LINES  DELETED  FROM  BASELINE  PROGRAM 
586  SUBROUTINE  ACT 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

923  3,AX,AY,A2.AAX,AAY,AAZ,RACCEL 

924  COtfMON  /INPUT/  ERT(3) , EVT(3) ,EWB(3) ,DUM( 18)  00015210 


LINES  DELETED  FROM  BASELINE  PROGRAM 


018 


589 


COMMON  /INPUT/  ERT(3) , EVT(3) , EWB(3) , DUM( 18) 


00015210 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

973  C COMPUTE  RANGE  ACCELERATION  TO  TARGET. 

974  VSQ«EV(1).*2+EV(2)»»2+EV(2)**2 

975  RACCEL“( VSQ+ER ( 1 ) • AAX+ER ( 2 ) • AAY+ER ( 3 ) • AAZ— ARDOT  * *2 ) /R 

976  C COMPUTE  INITIAL  TARGET  INERTIAL  LOS  AZIMUTH  RATE(AZRATE) . 00015960 


LINES  DELETED  PROM  BASELINE  PROGRAM 

638  C COMPUTE  INITIAL  TARGET  INERTIAL  LOS  AZIMUTH  RATE(AZRATE) . 00015960 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

1059  DR(1)-0.0 

1060  DR(2)«1 1.130 

1061  DR(3)—  5.79 

1062  C RANGE  BIAS  ERROR  IS  COMPUTED  IN  SUBROUTINE  RTRACK  AS 
LINES  DELETED  FROM  BASELINE  PROGRAM 


721 

DR(1)»45.738 

00029850 

722 

DR(2)-11 .130 

00029860 

723 

DR(3)—  5.79 

00029870 

724 

C 

>****! 

RANGE  BIAS  ERROR  IS  COMPUTED  IN  SUBROUTINE  RTRACK  AS 

i* 

LINES 

ADDED  TO  DELIVERABLE  PROGRAM 

1072 

PSBIAS-PII«0.0 

1073 

c 

00029962 

1074 

c 

ROLL  ANGLE  ERROR. 

00029964 

1075 

RLBIAS-PI  1*0.0 

1076 

c 

PITCH  ANGLE  ERROR. 

00029968 

1077 

PTBIAS-PII*0.0 

1078 

c 

LINES 

DELETED  FROM  BASELINE  PROGRAM 

734 

PSBIAS-PI 1*0.1 

00029960 

735 

C 

00029962 

736 

C 

ROLL  ANGLE  ERROR. 

00029964 

737 

RLBIAS-PII*0.25 

00029966 

738 

C 

PITCH  ANGLE  ERROR. 

00029968 

739 

PTB I AS*P 11*0.25 

00029970 

740 

C 

LINES  ADDED  TO  DELIVERABLE  PROGRAM 

1081  NBIAS-0 

1082  I F(NBIAS. NE . 0)GO  TO  700 


LINES  DELETED  FROM  BASELINE  PROGRAM 

743  NBIAS-1 

744  IF(N8IAS.NE.0)GO  TO  700 


LINES  ADOED  TO  DELIVERABLE  PROGRAM 

1230  REAL  INTT,K4,K5,K6  00025335 

1231  INTEGER  AT1A(10,2) ,AT1E(10.2) ,AT2A(10.2) ,AT2E(10.2) 

1232  C0M40N  /CNTL/IPWR, IMODE. IDUMC(7) ,DUMC(3)  00025350 


LINES  DELETED  FROM  BASELINE  PROGRAM 

892  REAL  I NTT , IAZDSC . IELDSC  . 00025335 

893  COMMON  /CNTL/IPWR . IMODE, IDUMC(7) , DUMC(3)  00025350 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

1242  DIMENSION  TX1 (3,3) ,TX2(3,3) , TX3(3,3) ,TBL(3,3) 

1243  DIMENSION  TDC(3) 

1244  C 

1245  C 

1246  C ATRACK  MODIFIED  JAN  28  1986  BY  M.  MEYER 

1247  C MODIFICATIONS  TO  SUBROUTINE  ATRACK  WERE  IMPLEMENTED 

1248  C TO  UPDATE  THE  LOOP  CONSTANTS  AND  MORE  ACCURATELY 

1249  C SIMULATE  THE  ACTUAL  SIGNAL  PROCEESS1NG  PERFORMED 

1250  C BY  THE  RADAR 

1251  C 

1252  C 

1253  C 

1254  C NEW  LOOP  CONSTANTS  JAN  28  1986 

1255  C 

1256  DATA  ATI A/9*5 . 1 , 6* 1 3 , 5 , 3* 1/ 

1257  DATA  ATI E/9*6 , 1 . 6* 1 6 , 6 ,2* 1 ,2/ 

1258  DATA  AT2A/9*407 , 149 , 6*662.407,3*149/ 

1259  DATA  AT2E/9*532. 195, 6*866 ,532,3*195/ 

1 260  DATA  K6/3 . 60E-5/ , K4/ . 0048876/ . K5/ . 236/ , DTOR/ .0174533/ 

1261  C 

1262  DATA  TDC/0. 051 221 18, 0.1 1951 61 ,0.2561557/ 


LINES  DELETED  FROM  BASELINE  PROGRAM 

903  DIMENSION  ATI (10,2) , AT2( 10 ,2) , TX1 (3.3) ,TX2(3 ,3) , TX3(3 , 3) ,TBL(3 

904  DIMENSION  TDC(3) 

905  DATA  AT  1/9*1 . 5529E-3 , 2 . 01 06E-4 , 6*3 . 9750E-3 , 1 .5529E-3, 

906  2 3*2 . 01 06E-4/ , AT2/9*6 . 5907E-3 . 2 . 3725E-3 , 

907  3 6*1. 0546E-2 , 6 . 5907E-3 , 3*2 . 3725E-3/ 

908  DATA  TDC/0. 05122118,0. 1195161 ,0.2561557/ 


LINES 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 


ADDED  TO  DELIVERABLE  PROGRAM 
C 

NEW  CODE  AS  OF  JAN  28  1986- 


C 

C 

c 

c 

c 


c 

c 


UPDATE  ESTIMATED  TARGET  INERTIAL  AZIMUTH  RATE. 

IAZRATE«KSAT( I AZR AT  E+AT 1 A ( MRNG , IMODE)*IAZDSC) 
UPDATE  ESTIMATED  TARGET  INERTIAL  ELEVATION  RATE. 

I ELRATE-KSAT ( I ELRATE+AT 1 E( MRNG , IMODE) * I ELDSC) 

AZR AT  E-K 6 * DTOR  * F LOAT ( I AZR AT  E ) 

E LRAT E«K  6 * DTOR  * F LOAT ( I E LR ATE ) 

I A LR AT E*KS AT ( I AZRAT  E+AT 2A ( MRNG . IMODE)*IAZDSC) 
1 BTRATE-KSAT ( I E LRAT E+AT2E( MRNG , IMODE) * I ELDSC) 

IF( IALRATE.GT .0)  THEN 

ALRAT  E«K4*  K5  * DTOR  * F LOAT ( I A LRAT  E/32 ) 

ELSE 

ALRAT E*K4*K5* DTOR* FLOAT ( ( IALRATE— 31 )/32) 
END  IF 

IF(IBTRATE.GT.0)  THEN 

BTRATE-K4*K5*DT0R*FL0AT( IBTRATE/32) 

ELSE 

BTRATE«K4*K5*DT0R*FL0AT( ( I BTR ATE-31 )/32) 
END  IF 


LINES  DELETED  FROM  BASELINE  PROGRAM 

942  ADSO0 . 0431  * IAZDSC 

943  EDSO0 .0431*1  ELDSC 


00025450 


3)00025450 

00025460 

00025470 

00025480 


00025790 

00025800 

00025810 

00025820 


00025840 


00025730 

00025740 


C-20 


944  C UPDATE  ESTIMATED  TARGET  INERTIAL  AZIMUTH  RATE.  00025790 

945  AZRATE-AZRATE+TSAM*AT1 (MRNG, IMODE)»ADSC  00025800 

946  C UPDATE  ESTIMATED  TARGET  INERTIAL  ELEVATION  RATE.  00025810 

947  ELRATE-ELRATE+TSAM*AT1  (MRNG, IMODE)*EDSC  00025820 

948  C 00025830 

949  C 00025840 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

1332  ALRATE-(ALRATE+WGZ»SB)/CB-WGX 

1333  GO  TO  4 00025950 


LINES  DELETED  FROM  BASELINE  PROGRAM 

959  ALRATE— ( AZRATE+AT2 (MRNG , I MODE)  •ADSC+WGZ*SB)/CB— WGX  00025940 

960  GO  TO  4 00025950 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

1 337  BTRAT  E-STRAT  E-WGY 

1338  C 

1339  C END  OF  JAN  28  1986  MODIFICATIONS- 


1340 

C 

00026000 

LINES 

DELETED 

FROM  BASELINE  PROGRAM 

964 

BTRATE-( ELRATE+AT2(MRNG . IMODE) *EDSC)-WGY 

00025990 

965 

C 

00026000 

LINES 

i *****  * 

ADDED  TO  DELIVERABLE  PROGRAM 

1385 

C 

WR I TE( 6 , 902)  AZD I SC , ELD I SC . I AZDSC . I ELDSC 

00026470 

1386 

900 

FORMAT ( ' ALR , BTR , AZR , ELR , SRR , SPR— ’ .6F14.9) 

00026480 

1387 

901 

FORMAT( ’ TBL  2X2  .4F10.4) 

00026490 

1388 

902 

FORMAT ( 1 AZD, ELD. AD, ED  -* .2F10.4.2I9) 

00026500 

1389 

RETURN 

00026510 

1390 

END 

00026520 

1391 

C 

1392 

C •* 

1393 

c * 

INTEGER  FUNCTION  KSAT  JAN  28  1986 

1394 

c •* 

1395 

c 

1396 

C THIS  FUNCTION  CHECKS  ATRACK  LOOP  FOR  SATURATION 

1397 

C 

1398 

INTEGER  FUNCTION  KSAT(K) 

1399 

C 

1400 

IF(K.GE.0)  THEN 

1401 

KSAT-JMIN0(K,2**15) 

1402 

ELSE 

1403 

KSAT- JMAX0 ( K . -2 • • 1 5 ) 

1404 

END  IF 

1405 

RETURN 

1406 

END 

1407 

C 

00024530 

LINES  DELETED  FROM  BASELINE  PROGRAM 


1010 

C 

WRITE(6,902)  AZD I SC , ELD I SC , ADSC , EDSC 

00026470 

1011 

900 

FORMAT (• 

ALR, BTR, AZR, ELR, SRR, SPR-’ .6F10.2) 

00026480 

1012 

901 

FORMAT ( * 

TBL  2X2  , 4F10 . 4) 

00026490 

1013 

902 

FORMAT (• 

AZD, ELD, AD, ED  .4F10.4) 

00026500 

1014 

RETURN 

00026510 

1015 

END 

00026520 

1016 

C 

00024530 

LINES 

ADDED  TO 

DELIVERABLE  PROGRAM 

C-21 


1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 


LINES 

DELETED  I 

FROM  BASELINE  PROGRAM 

1298 

DATA  RI/120. ,240. ,780. .2560. .5772. ;11544. ,23089 . .43747. . 

00028620 

1299 

2 

57722. .1 .8228E+6/ 

00028630 

1300 

DATA  FW/7 .7215,3. 3090 , 0 . 2969/ . NR 1/1 0/ 

00028640 

1301 

C 

00028650 

LINES 

ADDED  TO 

DELIVERABLE  PROGRAM 

1719 

1720 

74 

MUUIrlLU  r LD  O 1900  dT  M . MLTLn* **************** * 

1F(MSAM. EO. 1 )THEN 

1721 

I F( XRNG. GT. 3200.) THEN 

1722 

MS  AM-2 

1723 

ELSE 

1724 

MSAkMI 

1725 



MODIFIED  FEB  17,1986  BY  M.  MEYER 

1726 

c***  * * 

GUARANTEES  THE  CORRECT  LOOP  BANDWIDTHS 

1 727 

1728 

C 

r UK  Irlfc  HToiLKlOlO  LUUr************************** 

1729 

1F(XRNG.GT.2560)  MRNG-4 

1730 

c 

1731 

c***** 

1732 

END  IF 

1733 

ELSE 

1734 

I F( XRNG . GT . 2560 . ) THEN 

1735 

MS  AM-2 

1736 

ELSE 

* 

1737 

MSAJwM 

1738 

END  IF 

1739 

END  IF 

1740 

c 

00028880 

LINES 

► 

DELETED 

FROM  BASELINE  PROGRAM 

1321 

74 

IF(MRNG .GT . 4)  GO  TO  76 

00028840 

1322 

MSAkMI 

00028850 

1323 

GO  TO  80 

00028860 

1324 

76 

MSAM-2 

00028870 

1325 

C 

00028880 

C 

C 

c 

c 

c 

c 

c 

c 


DATA  RI/120. ,640. ,1520. ,2560. , 5760 . , 1 1 520 . ,23040. ,43520. 
2 49920 . . 1 . 8228E+6/ 

DATA  FW/7 .7215,3. 3090 . 0 . 2969/ , NR I / 1 0/ 


IMPLEMENTATION  OF  HYSTERISIS  FOR  THE  SAMPLING  RATE 
CHANGE  AND  FOR  THE  PRF  CHANGE  ALONG  WITH  CHANGES  IN 
RI (RANGE  INTERVAL)  WAS  COMPLETED  FEB  6,1986  BY  M.  MEYER 


00028620 

00028630 

00028640 


00028650 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 


1754  C ******  MODIFIED  FEB  6 1986  BY  M.  MEYER 

1755  84  IF(MPRF. EO. 1 )THEN 

1756  I F(XRNG.GT. 49920.) THEN 

1757  MPRF-2 

1758  ELSE 

1759  MPRF-1 

1760  END  IF 

1761  ELSE 

1762  I F ( XRNG . GT . 43520 . ) THEN 

1763  MPRF-2 

1764  C*****  MODIFIED  FEB  17.  1986  BY  M.  MEYER1 

1765  C*****  GUARANTEES  THE  CORRECT  CONSTANTS 


C-22 


FOR  THE  LOW  PRF 


1766 

1767 

1768 

1769 

1 77ft 

c 

c 

• FOR  THE  LOW  PRF***»*«****»*****************< 
MRNG-10 

>•* 

1 / fxi 

1771 

* * * * 

ELSE 

1772 

MPRF-1 

1773 

END  IF 

1774 

END  IF 

1775 

90 

CONTINUE 

00029060 

LINES 

DELETED 

FROM  BASELINE  PROGRAM 

1339 

84 

IF(MRNG.GT.9)  GO  TO  86 

00029020 

1340 

MPRF-1 

00029030 

1341 

GO  TO  90 

00029040 

1342 

86 

MPRF-2 

00029050 

1343 

90 

CONTINUE 

00029060 

LINES 

ADDED  TO 

DELIVERABLE  PROGRAM 

1895 

DIMENSION  QNV(2) 

1896 

C 

1897 

C 

PS  AND  ONV  CONSTANT  CHANGES  FEB  17,1986  BY  M.  MEYER 

1898 

C 

1899 

DATA  NFREQ/1 , 5/ . BN/9772 .4,616.6/ 

1900 

DATA  PS/9»4. ,2. .5«4. ,2. .4. .8. .8. .16./ 

1901 

2 

.PDIA.PDIR.PDIV/1 .4142,3. 1623.2.0.4.4721 .2.8284.6.3246/. 

00022940 

1902 

3 

PT/42658, .3125, , 195  3/ 

1903 

DATA  ONV/. 00067, .011/ 

1904 

DATA  TOC/0. 05122118, 0.1195161 .0.2561557/ 

LINES 

DELETED 

FROM  BASELINE  PROGRAM 

1463 

DATA  NFREQ/1  ,5/, BN/9772. 4. 61 6. 6/.PS/9*1 . .2.  .5*1  . ,2.  .4.  .8.  .8.  . 1 6 ./0O022930 

1464 

2 

.POIA.PDIR.PDIV/1 .4142.3. 1623.2.0.4.4721 .2.8284.6.3246/, 

00022940 

1465 

3 

PT/42658 . , 31 25 . . 1 95 . 3/ . ONV/ . 041 66666/ 

00022950 

1466 

DATA  TDC/0. 05122118, 0.1195161 ,0.2561557/ 

LINES 

ADDED  TO 

DELIVERABLE  PROGRAM 

1942 

C 

WRITE(6,221 )YY,SIGBAR 

1943 

221 

FORMAT (’YY, SI GBAR  .2F14.5) 

1944 

SNRDTD"  1 0 . *ALOG1 0( SNRDT) 

00023240 

LINES 

DELETED 

FROM  BASELINE  PROGRAM 

1504 

C 

WRITE(6.221 )YY,SIGBAR 

1505 

C 221 

FORMAT ( ’YY, SI GBAR  -’.F14.5) 

1506 

SNRDTD-10. «ALOG10(SNRDT) 

00023240 

LINES 

ADDED  TO 

DELIVERABLE  PROGRAM 

1954 

XX-XX/ ( XX+QNV ( MSAM ) ) 

1955 

SI-SI *XX 

00023300 

LINES 

DELETED 

FROM  BASELINE  PROGRAM 

1516 

XX-XX/ (XX+QNV) 

00023296 

1517 

SI-SI *XX 

00023300 

LINES  ADDED  TO  DELIVERABLE  PROGRAM 

2603  COMMON  /ICNTL/1DUM2(14) .MRNG.MSAM, IDUM6(1 1 ) 

2604  COMMON  /OUTPUT/IDUM7(3) , DUM3(6) , SRSS. IDUM4(4)  00029330 

2605  COMMON  /AGCDAT/AGCO , AGCODB . SNRDT , SNRDTD  00029340 

2606  DIMENSION  PS( 10,2) ,QNV(2) . A1 (2) 

2607  DATA  PS/9«4. ,2. .5*4. ,2.  ,4. .8. .8. .16./ 


2608  DATA  ONV/. 00067 01 1/,A1/ . 0321 , . 51/ 

2609  C 

2610  C SUBROUITNE  RSS  HAS  BEEN  UPDATED  TO  CORRESPOND  TO  THE 

2611  C DERIVATION  OF  AGCERR  PRESENTED  IN  THE  FINAL  REPORT  ON 

2612  C KUBAND  COMPUTER  SIMULATION.  M.  MEYER  FEB  17,  1986 

2613  C 

2614  C 


LINES  DELETED 

2165 

2166 

2167 

2168 

2169 

2170  C 


FROM  BASELINE  PROGRAM 
COMMON  /ICNTL/1DUM2( 14) ,MRNG, IDUM6(12) 

COMMON  /OUTPUT / 1 DUM7 ( 3 ) ,DUM3(6) , SRSS . IDUM4(4) 

COMMON  / AGCDAT /AGCO # AGCODB . SNRDT , SNRDTD 
DIMENSION  PS(10,2) 

DATA  PS/9*1 . ,2. ,5*1 . ,2. ,4. .8. ,8. . 16 ./.ONV/0 . 041 66666/ 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

2619  C STEP  1-1:  COMPUTE  AGC  ERROR  AND  CHECK  LIMITS. 

2620  C UPDATED  FEB  17,  1986 — 

2621  AGCERR-A1 (MSAM) *4 . *PS(MRNG . IMODE)/( AGCO* (SNRDT+1 . 0)+QNV(MSAM) ) 

2622  I F ( AGCERR . GT . 1 0 . ) AGCERR-10.0 


LINES  DELETED  FROM  BASELINE  PROGRAM 

2175  C STEP  1-1:  COMPUTE  AGC  ERROR  AND  CHECK  LIMITS. 

2176  AGCERR-4 . *PS(MRNG , IMODE)/( AGCO* (SNRDT+1 . 0)+ONV) 

2177  I F ( AGCERR . GT . 1 0 . ) AGCERR-10.0 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

2627  C UPDATED  FEB  17.  1986 

2628  I F( AGCO . GT . 0 . 25)  AGCO0.25 

2629  AGCODB- 10.*ALOG10( AGCO) 


LINES  DELETED  FROM  BASELINE  PROGRAM 

2182  I F ( AGCO . GT . 1 . 0 ) AGCO-1.0 

2 1 83  AGCODB- 1 0 . • ALOG 1 0 ( AGCO ) 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

2635  SRSS- 1./ AGCO 

2636  C UPDATED  FEB  17,  1986 

2637  SRSS-1 0 . *ALOG1 0(SRSS)— 6 . 0 

2638  RETURN 


LINES  DELETED 

2189 

2190 

2191 


FROM  BASELINE  PROGRAM 
SRSS-1 ./AGCO 
SRSS-1 0 . *ALOG1 0(SRSS) 
RETURN 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

2714  DIMENSION  PS(10,2) 

2715  C 

2716  C PS  VALUES  WERE  UPDATED  FEB  17,1986  BY  M.  MEYER- 

2717  C 

2718  DATA  PS/9*4.0,2. ,5*4. ,2. ,4. ,8. ,8. . 16./ 

2719  SNF-1. 

2720  X—AGCO*  (SNRDT/(4 . *PS(MRNG , I MODE)  )+1  .0) 

2721  C 

2722  C X-12.25/X  WAS  REPLACED  BY  X-6.25/X  TO  MORE  ACCURATELY 

2723  C REFLECT  A/D  SATURATION  BY  M.  MEYER  FEB  17,  1986 

2724  C 

2725 


00029370 


00029320 

00029330 

00029340 

00029350 

00029360 

00029370 


00029440 


00029420 

00029430 

00029440 


00029500 


00029490 

00029500 


00029580 


00029560 

00029570 

00029580 


00035690 

00035700 


X-6.25/X 


2726 


IF(X.GT.I)  RETURN 


00035720 


LINES  DELETED  FROM  BASELINE  PROGRAM 


2267 

DIMENSION  PS( 10,2) 

00035670 

2268 

DATA  PS/9* 10. 0,2. ,5*1. .2. .4. ,8. ,8. .16./ 

00035680 

2269 

SNF-1 . 

00035690 

2270 

X-AGC0*(SNRDT/(4.  *PS(MRNG,  IMODE))+1 .0) 

00035700 

2271 

X-12.25/X 

00035710 

2272 

IF(X.GT.I)  RETURN 

00035720 

LINES  ADDED  TO 

3099 

3100 

DELIVERABLE  PROGRAM 

COMMON  /SUOIPH/  X , Y , 2 . PA2 , PEL 

COMPLEX  CSUM,CDIFA2.CD1FEL,CEARLY,CLATE.CDF1 , C0F5 . CDF2 , CDF4 , 

00020230 

LINES  DELETED 
2645 

FROM  BASELINE  PROGRAM 

COMPLEX  CSUM.CDIFA2,CDIFEL.CEARLY.CLATE,CDF1  ,C0F5.CDF2,CDF4, 

00020230 

LINES 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 


ADDED  TO  DELIVERABLE  PROGRAM 
COMPLEX  DAZ.DEL 
DATA  I LOOP/ 1/ 

C 

C 

c 

C MODIFIED  JAN  10  1986  BY  M.  MEYER 
C MODIFICATIONS  TO  SUBROUTINE  SIGNAL  INCLUDE 
C CALCULATION  OF  THE  AZIMUTH  AND  ELEVATION  ANGLES 
C USE  OF  MEASURED  ANTENNA  PATTERNS  INSTEAD 
C OF  FUNC IONS  SPAT  AND  DPAT  AND  A 
C FACTOR  IN  THE  DIFFERENCE  CHANNELS  SIGNAL 
C WHICH  ACCOUNTS  FOR  THE  FINITE  WIDTH  PHASE 
C TRANSITION  IN  THE  REAL  PHASE  PATTERNS. 

C 

C 

c 

C 

C • STEP  0:  READ  IN  ANTENNA  PATTERNTERNS  AND  SET  PHASE  BALANCE 

c 

IF  ( ILOOP.NE.  1 ) GO  TO  11 
CALL  READPAT 
PBAL-0. 

I LOOP-0 

11  CONTINUE 
C 


00020320 


LINES  DELETED  FROM  BASELINE  PROGRAM 
2653  C 


00020320 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

3176  C STEP  2-1:  COMPUTE  AZIMUTH  AND  ELEVATION  ANGLE. 

3177  AZ— ATAN2D(RAU(2,K)  , ABS(RAU(3,K) ) ) 

3178  EL— AT AN2D ( RAU ( 1 ,K) . ABS(RAU(3  ,K)  ) ) 

3179  C STEP  2-2:  COMPUTE  ANTENNA  SUM,  DIFFERENCE  AND  PHASE  FACTORS 

3180  CALL  INTERP(AZ, EL) 

3181  C 


00020770 


00020780 

00020790 

00020800 


LINES  DELETED  FROM  BASELINE  PROGRAM 

2696  C STEP  2-1:  COMPUTE  SUM  PATTERN  ANGLE. 

2697  PSI— ACOS(ABS(RAU(3 ,K)  ) ) 

2698  C 

2699  C STEP  2-2:  COMPUTE  ANTENNA  SUM  PATTERN  MULTIPLICATION  FACTOR. 


00020750 

00020760 

00020770 

00020780 


C-25 


2700 

2701  C 


X-SPAT(PSI) 


00020790 

00020800 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 
3197  C 


LINES  DELETED  FROM  BASELINE  PROGRAM 

2717  C STEP  3-1:  COMPUTE  A2  AND  EL  DIFFERENCE  PATTERN  ANGLES. 

2718  DELAZ— ASIN(RAU(2,K)) 

2719  DELEL«ASIN(RAU(1 ,K)) 

2720  C 

2721  C STEP  3—2 : COMPUTE  A2  AND  EL  DIFFERENCE  PATTERN  MULTIPLICATION 

2722  C FACTORS. 

2723  Y-DPAT(DELAZ) 

2724  Z-DPAT(DELEL) 

2725  C 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

3200  C AND  PHASE  DIFFERENCE  AND  BALANCE  WEIGHTINGS 

320 1 D AZ-XX *Y*CMPLX( COSD  ( PAZ+PBA L ) , S I ND ( P AZ+PB A L ) ) 

3202  D E L“XX  * Z * CMP  LX ( COSD (PE  L+P  B A L ) , SIND(PEL+PBAL) ) 

3203  C 


LINES  DELETED  FROM  BASELINE  PROGRAM 

2728  DAZ«XX*Y 

2729  DEL«XX*Z 

2730  C 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

3221  21  RGE-1.0E-4 

3222  RGL-1.0E-4 

3223  GO  TO  25 


LINES  DELETED  FROM  BASELINE  PROGRAM 

2748  21  RGE-0.0 

2749  RGL-0.0 

2750  GO  TO  25 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

3257  C 

3258  C STEP  5-3:  COMPUTE  DOPPLER  FILTER  WEIGHTING  FOR  EACH  OF  FIVE  DOPPLER 


LINES  DELETED  FROM  BASELINE  PROGRAM 

2784  C 

2785  C STEP  5-3:  COMPUTE  DOPPLER  FILTER  WEIGHTING  FOR  EACH  OF  FIVE  DOPPLER 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

3357  C 

3358  C NOTE:  DEBUGGING  PRINT  STATEMENTS 


LINES  DELETED  FROM  BASELINE  PROGRAM 
288*  C 

2885  C NOTE:  DEBUGGING  PRINT  STATEMENTS 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

3362  C WRITE(6,901)  DFWTS(1 ,K) ,DFWTS(2.K) ,DFWTS(3. 1 ) ,DFWTS(4, 1 ) . 

3363  C 2 DFWTS(5,1) 

3364  902  FORMAT ( ’ NT ,S .DAZ.DEL.RGE.RGL.RGWGT . F3  -\I5 . 6F10 .2, 15) 


00021040 


00020960 

00020970 

00020980 

00020990 

00021000 

00021010 

00021020 

00021030 

00021040 


00021070 

00021080 

00021090 


00021070 

00021080 

00021090 


00021240 

00021250 


00021240 

00021250 

00021260 


00021610 

00021600 

00021610 


00022610 


00022600 

00022610 


00022650 

00022660 

00022670 


C-26 


LINES  DELETED  FROM  BASELINE  PROGRAM 

2889  C WRITE(6, 901 ) DFWTS(  1 ,K)  ,DFWTS(2.K)  . DFWTS(3. 1 ) ,DFWTS(4, 1 ) , 

2890  C 2 DFWTS(5 , 1 ) 

2891  902  FORMAT  ( * NT.S.DAZ ,DEL,RGE,RGL,RGWGT,F3  **,I5,6F10.2,I5) 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

4035  C ****RI  DATA  STATEMENT  UPDATED  FEB  6,1986  BY  M.  MEYER  **•*••*** 

4036  DATA  RI/120. ,640. ,1520. .2560. ,5760. ,11520. ,23040. ,43520. . 

4037  2 49920.  .1 .8228E+6/.NRI/10/, PI/3. 141592653/ 

4038  C 

LINES  DELETED  FROM  BASELINE  PROGRAM 

3562  DATA  RI/1 20 . . 240 . . 780 . . 2552 . , 5772 ..11544., 23089 . , 43747 . . 

3563  2 57722. .1 . 8228E+6/,  NRI/10/. PI/3. 141592653/ 

3564  C 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

4101  C STEP  1-3:  COMPUTAE  INITIAL  INNER  AND  OUTER  GIMBAL  RATES. 

4102  C COMPUTE  INITIAL  OUTER  GIMBAL  RATE(ALRATE) . 

LINES  DELETED  FROM  BASELINE  PROGRAM 

3627  C STEP  1-3:  COMPUTE  INITIAL  INNER  AND  OUTER  GIMBAL  RATES. 

3628  C COMPUTE  INITIAL  OUTER  GIMBAL  RATE(ALRATE) . 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 


4413 

4414 

4415 

4416 

4417 

4418 

4419 

4420 

4421 

4422 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  VELPRO  WAS  MODIFIED  FEB  6 1986  BY  M.  MEYER 
MODIFICATIONS  CONSISTED  OF  CHECKING  THE  VARIABLE  MPRF 
FOR  A VALUE  OF  ONE  (IMPLIES  7 KC  MODE)  AND  IF  TRUE 
ASSUMING  THE  VELOCITY  ESTIMATE  GIVEN  BY  THE  VELOCITY 
DISCRIMINANT  IS  UNAMBIGUOUS. 


LINES  DELETED  FROM  BASELINE  PROGRAM 
3939  C 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

4442  C 

4443  C CHANGED  JAN  30  1986  BY  H.  MAGNUSSON 

4444  C ••*•**•*****•***•***»«•****•«*****• 

4445  IF( IV1 .GT. 128) IV1»128 

4446  IFRAC-IPROM(IVI) 


LINES  DELETED  FROM  BASELINE  PROGRAM 
3959  IFRAC-IPROM(IVI) 


ADDED  TO  DELIVERABLE  PROGRAM 
C 

C CHANGED  FEB  6 1986  BY  M.  MEYER 
C 

c 

IF(MPRF.EO.I)  THEN 

IF( 1NTEG.GE.0. AND.  INTEG. LE.21 )THEN 
1RVEL-0. 

ELSE 


LINES 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

4460 


00022650 

00022660 

00022670 


00015350 

00015360 

00015370 


00015350 

00015360 

00015370 


00016020 

00016030 


00016020 

00016030 


00027290 


00027290 


00027490 


00027490 


C-27 


4461 

IRVEL— 4096 . 

4462 

END  IF 

4463 

GO  TO  8 

4464 

4465  C •• 

END  IF 

00027570 

LINES  DELETED  FROM  BASELINE  PROGRAM 

3966  C 00027560 

3967  C *»*•****•*•»*»***»*»»»•»**•»**•*******•»*  00027570 


LINES  ADDED  TO  DELIVERABLE  PROGRAM 

4500  8 CONTINUE 

4501  C 00027920 


LINES  DELETED  FROM  BASELINE  PROGRAM 

4002  C 00027920 


LINES  ADDED  TO 

4970 

4971 

4972  c 

4973  c 

4974  c 

4975  c 

4976  c 

4977 

4978 

4979 

4980 

4981 

4982 

4983 

4984 

4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992  1 

4993  1 

4994 

4995 

4996 

4997 

4998  1 

4999  1 


DELIVERABLE  PROGRAM 
subroutine  reodPAT 


Read  in  the  sum,  phase,  and  difference  patterns 

real  a1iinear(  41,41  ),  e1linear(  41,41  ) 
real  sa1linear(  41,41  ),  se1linear(  41,41  ) 
real  pa1linear(  41,41  ),  pe1linear(  41,41  ) 
common  / linear  / all  inear,  el  linear 
common  / I inearl  / sal  I inear,  sell  inear 
common  / Iinear2  / pal  I inear,  pel  I inear 


open(  unit-3,  f i I e-’ [ KUB AND. HOWARD. MARK ]o2ld. dat  * , 
access—*  sequent i a I ’ , form—*  unformatted* , 
stat us-’ o I d ’ , readonly  ) 

read(  3 ) ( ( a1linear(  1 , j ),  j » 1,41  ),  i » 1,41  ) 
close(  3 ) 

open(  unit-3,  f i le-* [ KUBAND. HOWARD. MARK] e I 1d.dat ' , 
access*’ sequent ial * , form—* unformatted* , 
status-*o I d’ , readonly  ) 
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5000 

5001 

5002 

5003 

5004 

5005 

5006 

5007 

5008 

5009 

5010 

5011 

5012 

5013 

5014 

5015 

5016 

5017 

5018 

5019 

5020 

5021 

5022 

5023 

5024 

5025 

5026 

5027 
5026 

5029 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5037 

5038 

5039 

5040 

5041 

5042 

5043 

5044 

5045 

5046 

5047 

5048 

5049 

5050 

5051 

5052 

5053 

5054 

5055 

5056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


read(  3 ) ( ( el  linear ( i.j  ),  j - 1,41  ),  i - 1,41  ) 
close(  3 ) 

open(  uni t«3,  f i I e-’  [KUB AND. HOWARD. MARK ]az1 s. dat * , 

1 access— ’ sequent  i a I ' , form** unformat  ted  * , 

1 status*’old’ , readonly  ) 

read(  3 ) ( ( sa1linear(  i , j ).  j ■ 1 ,41  ) . i » 1 ,41  ) 
close(  3 ) 

open(  unit-3,  f i I e*’  [ KUB AND . HOWARD . MARK ] e 1 1 s . dat * , 

1 access*’ sequent  i or  , form*’ unformat  ted  ’ , 

1 status* * o I d ' , readonly  ) 

read(  3 ) ( ( se1lineor(  i.j  ),  j * 1,41  ),  i « 1,41  ) 
close(  3 ) 

open(  unit*3.  f i le»’ [KUBAND.HOWARD.MARKjaz1p.dat * , 

1 access*' sequent i al  ’ , form*’ unformat  ted' , 

1 status-’ o I d’ , readonly  ) 

read(  3 ) ( ( pa1linear(  i,j  ),  j » 1,41  ),  i - 1,41  ) 
c I ose(  3 ) 

open(  unit-3,  f i le*’  [KUBAND . HOWARD . MARK] e 1 1 p.dat ' , 

1 access*' sequent i a I ’ , f orm-’ unf ormat ted  ’ , 

1 status* * o I d ’ , readonly  ) 

read(  3 ) ( ( pe1linear(  i.j  ),  j * 1,41  ),  i - 1,41  ) 
close(  3 ) 

return 

end 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 it  1 1 1 1 1 1 1 1 1 1 

Subroutine:  Antenna  pattern  interpolation. 

Input:  Azimuth  and  elevation  angles  in  degrees. 

Output:  Interpolated  difference,  sum,  and  phase  values 
for  all  18  antenna  patterns. 


iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

subroutine  interp(  az,  el) 


Linearly  interpolate  the  gain,  phase  and  difference  patterns 


real  a1linear(  41,41  ),  e1linear(  41,41  ) 

real  sal  I i near (41 ,41 ) , sel I i near(41 ,41 ) 

real  pal  I i near(41 ,41 ) , pel  I i near (41 , 41 ) 

common  / linear  / all  inear,  el  I inear 

common  / I inearl  / sal  I inear, sel I inear 

common  / Iinear2  / pal  I i near , pel  I i near 

common  / SUDIPH  / X, Y ,Z,PAZ.PEl 

iax  « j int(  ( az  + 4.  ) • 5.  ) 
iex  - j int ( ( e I + 4.  ) • 5.  ) 
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5064 

5065 

5066 

5067 
5066 

5069 

5070 

5071  c 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 

5081 

5082 

5083  c 

5084 

5085 

5086 

5087 

5088 

5089 

5090 

5091 

5092 

5093 

5094 

5095 

5096 

5097  c 

5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

5107 

5108 

5109 

5110  c 

5111 

5112 

5113 

5114 

5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123  c 

5124 

5125 

5126 

5127 


az0  « flootj(  iox  ) / 5.  - 4. 

ct0  - flootj(  iex  ) / 5.  - 4. 

iaz  » jint  ( ( az+4.  ) *5.  ) + 1 

jel  * j i n t ( ( el  +4.  ) *5.  ) + 1 


find  02d  values  

f0  m 10.**(  a1linear(  ioz.jel  ) /20.  ) 

fl  m 10.**(  a1linear(  iaz+1,jel  ) /20.  ) 

f2  « 10 . ••  ( a1linear(  iaz,jel+1  ) /20.  ) 

f 3 - 10 . *•(  a1lineor(  iaz+1,jel+1  ) /20.  ) 

fa  » f0  + (f 1— f 0)/.2  * ( a z-az0  ) 

fb  • f2  + ( f 3— f 2)/.2  • ( az-020  ) 

fx  « fo  + (fb-fa)/.2  • ( el-el0  ) 

Y - fx 

find  eld  values  

f0  * 10 . ** ( e1linear(  io2,jel 

fl  m 10.**(  e1linear(  iaz+l.jel 

f2  - 10.**(  e1lineor(  ia2,jel+1 

f3  * 1 0 . ** ( e1lineor(  ioz+1,jel+1 

fo  « f0  + ( f 1— f0)/. 2 • ( az-az0  ) 

fb  * f2  + ( f 3— f 2)/ .2  • ( az-az0  ) 

fx  * fo  + (fb-fa)/.2  • ( el-el0  ) 


2 - fx 

find  azs  values  

f 0 - 10 . (sal  I i neor(  i az  tjel  V20.) 
fl  - 10. »*(sa1 I i neor( iaz+1 , jel  )/20.) 
f2  » 10 . •*( sal  I i near( i az  ,jel+1  )/20.) 
f3  * 10 . **( sal  I i near( i 02+1 , je 1+1  )/20.) 
fo  - f0  +(f 1-f0)/.2*(az-az0) 
fb  - f 2 +( f 3-f 2)/ . 2* (az-020) 
fx  * fa  +( f b-f o)/ .2* (e l-e 10) 


) /20-  ) 
) /20  ) 
) /20 - ) 
) /20.  ) 


X ■ fx 


find  azp  values  

f 0 * pal  I i near ( i az  ,jel  ) 
fl  * pal  I i near( i az+1 , je I ) 
f2  * pal  I inear( i az  . j e 1+1  ) 
f3  * pal  I i near( i az+1 , je 1+1  ) 
fo  - f0  +(f1-f0)/.2*(az-az0) 
fb  « f2  +(f3-f2)/.2*(a2-az0) 
fx  « fa  +(f b-f a)/.2*(e l-e 10) 


PAZ»fx  I phase  in  degrees 

find  elp  values  

f0  ■ pel l i near ( i az  ,je!  ) 
fl  » pel  I inear(ioz+1 , jel  ) 
f2  * pel l i near ( i az  .jel +1  ) 
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5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5138 


f3  - pel  I inear( iaz+1 . jel+1  ) 

fa  - f0  +(f 1-f0)/.2*(az-az0) 
fb  - f2  +(f3— f2)/.2*(az-az0) 
fx  * fa  +(f b-fa)/.2*(el-e!0) 

PEL»fx  * phase  in  degrees 

return 

end 


LINES  DELETED  FROM  BASELINE  PROGRAM 


Number  of  difference  sections  found:  62 
Number  of  difference  records  found:  1052 

D I FFERENCES  /IGNORE-( )/MERGED»1  /0UTPUT-USER1  : [ KUBAND . HOWARD . MARK ] FI NHAC . D I F ; 1 - 
USER1  : [ KUBAND . HOWARD . MARK  ] F I NS  IM1  . FOR ; 8- 
USER1 : [KUBAND. HOWARD ]H ACS I M. FOR;  1 
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APPENDIX  D 


GEOMETRICAL  DILUTION  OP  PRECISION  (GDOP)  IN  TMR  RADAR  MEASUREMENTS 


D-l  INTRODUCTION 

This  appendix  presents  the  details  of  the  analysis  of  GDOP. 

GDOP  is  the  term  used  to  describe  the  effects  of  range  and  range  rate 
measurement  errors  from  sensors  at  various  geometries  relative  to  the  target 
on  subsequent  calculations  of  target  position  and  velocity.  The  problem  is 
best  understood  by  referring  to  Figure  Dl,  which  shows  the  WSMR  range 
geometry,  with  the  Brass  Cap  location  at  the  origin.  (This  is  done  to  simplify 
the  math  which  follows.) 

Each  of  the  three  TMR  radars  measures  the  range  from  itself  to 
the  target  along  with  line  of  sight  velocity  (Range  Rate)  of  the  target 
relative  to  each  radar.  These  measurements  of  range,  denoted  as  Rl,  R2,  and 
R3.  are  used  to  compute  the  X,  Y,  and  Z coordinates  of  the  target,  relative  to 
Brass  Cap.  These  will  be  denoted  as  X,  Y,  and  Z.  Given  X,  Y,  and  Z,  the  range 
from  Brass  Cap  to  the  target,  R,  can  be  found.  Note  that  the  locations  of  the 
three  radars  are  denoted  by  the  coordinate  sets  (X1,Y1,Z1),  (X2,Y2,Z2),  and 
(X3,Y3,Z3).  Using  the  above  data,  range  rate  (change  in  R with  respect  to 
time)  can  also  be  computed. 

GDOP  occurs  when  Rl,  R2,  and  R3  contain  errors.  The  errors  may  be 
bias  errors  (constant)  or  randomly  varying  (stochastic).  The  overall  effect 
of  errors  in  Rl,  R2,  and  R3  is  that  they  cause  the  computed  values  of  X,  Y, 
and  Z , and  thus  R,  to  be  in  error.  The  detailed  analysis  of  this  phenomenon 
will  be  developed  in  the  rest  of  this  section.  Examples  of  its  effect  on  the 
WSMR  experimental  data  will  also  be  presented. 
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-Z  (ft) 


FIGURE  D1  GEOMETRY  OF  TMR  RADARS  AT  WSMR  RELATIVE 
TO  BRASS  CAP 
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RANGE  ERRORS 


D-2.1  Example 

As  a intuitive  introduction  to  the  range  error  problem,  we  will 
first  consider  a two  dimensional  problem  shown  in  Figure  D2.  In  Figure  D2, 
the  target  is  approximately  midway  between  the  radars,  and  is  nearly  above  the 
"Brass  Cap"  or  reference  point.  The  true  range  from  Brass  Cap  to  target  is  R. 

This  is  the  range  we  are  trying  to  measure  with  the  radars.  The  true  ranges 
from  the  radars  to  the  target  are  R1  and  R2.  If  the  exact  values  of  R1  and  R2 
were  measured  by  the  radars  then  X and  Y could  be  found  by  solving  the  pair  of 
equations  below: 

(1)  Rl2  - (X  - XI)2  + (Y  - Yl)2 
R22  - (X  - X2)2  + (Y  - Y2)2 

And  R could  be  found  by  substituting  X and  Y into  the  equation: 

2 2 2 

(2)  RZ  - X + 1 

This  solution  is  graphically  shown  in  the  figure  as  point  P,  which  is  the 
intersection  of  the  two  circles  of  radii  Rl  and  R2. 

If  each  of  the  radar  range  measurements  was  in  error  by  an  amount 
DR,  then  the  apparent  ranges  measured  would  be  Rl+DR  and  R2+DR.  These  ranges 
are  shown  as  circular  arcs  in  Figure  D2.  Note  that  their  intersection  is  at 
point  Q,  which  has  coordinates  XQ  and  YQ.  As  can  be  seen  in  the  figure,  the 
range  from  Brass  Cap  to  point  Q is  significantly  different  from  the  true 
range.  Note  that  the  values  XQ  and  YQ  would  be  obtained  by  substituting  Rl+DR 
and  R2+DR  in  the  set  of  equations  above. 

The  situation  portrayed  in  Figure  D2  is  "worst  case"  in  the  sense 
that  small  errors  in  Rl  and  R2  produce  large  errors  in  R.  This  is  because  of 
the  geometry  of  the  situation.  Although  it  will  not  be  described  here  in 
detail,  the  reader  should  have  little  trouble  convincing  himself  that  other 
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NOTE  DIFFERENCE  BETWEEN 
LENGTH  OF  R AND  RR 


FIGURE  D2  TWO  DIMENSIONAL  DIAGRAM  SHOWING  EFFECTS  OF  RADAR 
RANGE  ERRORS  ON  ESTIMATE  OF  TARGET  RANGE 
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geometries,  for  example  where  the  target  is  far  removed  from  the  radars, 
produce  smaller  errors. 

D-2.2  Mathematical  Analysis 

We  now  consider  the  general  three  dimensional  case.  The  notation 
which  is  used  below  is  consistent  with  Figure  Dl. 

The  true  range  from  Brass  Cap  to  the  target  is  given  by: 

(3)  R2  - X2  + Y2  + Z2 

The  range  as  computed  using  data  from  the  three  radars  is  given 

by: 

2 2 2 2 

(4)  RR  - XR  + YR  + ZR 

where  XR,  YR,  and  ZR  are  computed  from  the  radar  range  data  using  the  set  of 
equations  below: 

Rl2  - (XR  - XI2)  + (YR  - Yl)2  + (ZR  - Zl)2 

(5)  R22  - (XR  - X22)  + (YR  - Y2)2  + (ZR  - Z2)2 
R23  - (XR  - X32)  + (YR  - Y3)2  + (ZR  - Z3)2 

In  general  XR,  YR,  and  ZR  will  contain  errors,  because  of  errors 
in  Rl,  R2,  and  R3.  To  analyze  the  effects  of  errors  in  Rl,  R2,  and  R3  on  XR, 
YR,  and  ZR  we  first  take  the  total  derivative  of  the  expressions  for  Rl,  R2, 
and  R3  to  get  the  system  of  equations  shown  here.  Note  that  the  derivatives 
have  been  represented  by  DX,  DY,  and  DZ. 

R1DR  - (XR  - X1)DX  + (YR  - Y1)DY  + (ZR  - Z1)DZ 

(6)  R2DR  - (XR  - X2)DX  + (YR  - Y2)DY  + (ZR  - Z2)DZ 
R3DR  - (XR  - X3)DX  + (YR  - Y3)DY  + (ZR  - Z3)DZ 

In  this  system  of  equations,  Rl,  R2,  and  R3  are  measured  by  the  radars.  XR, 
YR,  and  ZR  are  computed  as  above,  XI,  Yl,  Zl,  etc.  are  known  from  the  range 


D-5 


survey  data,  and  DR  is  assumed  to  be  known  from  range  calibration  data.  DR  may 
be  deterministic,  as  in  a fixed  range  bias,  or  may  vary  statistically.  A 
general  model  for  DR  is: 

(7)  DR  - DR  + U 

where  U is  a random  variable  with  zero  mean  and  some  specified  variance  and 
probability  density  function.  For  the  majority  of  data  here,  DR  will  be 
assumed  to  be  a constant.  Existing  data  from  WSMR  indicates  that  DR  is 
approximately  10  feet. 

By  solving  this  system  of  equations,  DX,  DY,  and  DZ  may  be  found 
as  a function  of  the  range  errors  associated  with  the  three  radars.  The  DX, 
DY,  and  DZ  values  may  subsequently  be  used  to  correct  the  values  XR,  YR,  and 
ZR,  and  thus  improve  the  range  estimate  RR. 

D-2.3  Experimental  Data 

Figures  D3  and  D4  are  plots  of  range  error  computed  from  two  sets 
of  WSMR  experimental  data.  Figure  D3  is  the  range  error  observed  from  tracking 
a target  which  was  close  to  the  Brass  Cap  location,  and  at  a relatively  low 
altitude.  Note  that  the  range  errors  are  large,  on  the  order  of  150  feet. 
Figure  D4  is  the  range  error  computed  for  a target  which  was  at  a higher 
altitude  and  considerably  longer  range.  Note  that  in  this  instance,  the  range 
errors  are  approximately  20  feet. 

These  results  are  consistent  with  the  example  presented  at  the 
beginning  of  this  section.  They  were  computed  assuming  the  radar  range  errors 
were  the  same  for  all  radars,  and  were  equal  to  10  feet. 

D-3  RANGE  RATE  (VELOCITY)  ERRORS 

D-3.1  Example 


For  the  example  below,  refer  to  Figure  Dl.  Given  a target  close 
to  the  Brass  Cap  at  a very  low  altitude  the  range  rate  measurement  of  the  3 
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FOR  TARGET  AWAY  FROM  BRASS  CAP 
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TMR  radars  would  not  be  affected  significantly  by  the  Vz  component  of  the 

target.  Inversely  a small  uncertainty  in  range  rate  translates  into  a large 
uncertainty  in  the  TMR  predicted  Vz  component.  With  this  scenario,  the  target 
is  practically  above  the  Ku-Band  Radar  and  the  actual  Vz  component  affects  the 
Ku-Band  range  rate  measurement  significantly.  In  this  case  one  would  expect 
the  6D0P  effect  to  be  large.  A target  whose  location  was  not  close  to 

the  Brass  Cap  and  had  a large  altitude  one  would  expect  the  GDOP  effect  to  be 

small.  Examples  of  real  range  data  which  support  this  example  will  be 

presented  in  Section  D-3.3. 

D-3.2  Mathematical  Analysis 

The  range  rate  of  the  target  relative  to  a radar  can  be  determined  by  taking 
the  time  derivative  of  the  range  equation  which  is  repeated  below  for  reference 

(8)  Rl2  - (XR  - XI)2  + (YR  - Yl)2  + (ZR  - Zl)2 


When  this  is  done,  we  obtain  equations  of  the  form  shown  below.  The  equation 
shown  is  for  radar  Rl. 


(9)  Rl  DR  - (XR  - X1)DX  + (YR  - Yl)dY  + (ZR  - Zl)dZ 

dt  dt  dt  dt 


The  sensitivity  of  X,  Y,  and  Z to  small  errors  in  the  TMR  range  rate 
measurements  can  be  determined  by  taking  the  total  derivative  of  the  range 
rate  equations  and  simultaneously  solving  the  set  of  equations  which  result. 
The  form  of  the  range  rate  equation  is  shown  below.  The  equation  shown  is  for 
radar  Rl.  The  dot  (.)  superscript  denotes  derivative. 


(10)  R1DR+R1DR  - XRDX+YRDY+ZRDZ+(  XR-X1 ) DX+(  YR-Y1 ) DY+(  ZR-Z1 ) DZ 

Reqrouping  the  terms  of  equation  10,  we  obtain  a more  convenient  form: 


• • •••  • • • 

(11)  R1DR+R1DR  - ( XRDX+YRDY+ZRDZ ) - (XR-X1)DX+(YR-Y1)DY+(ZR-Z1)DZ 
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For  compactness,  we  will  adopt  matrix  notation  to  write  the  complete  set  of 
equations  for  the  three  radars.  Rewrite  equation  11  as: 


DX,  DT,  and  DZ  are  determined  from  the  equations  derived  in  the  Range  Error 
Section  above.  DR  and  its  derivative  DR  are  the  range  error  and  range  rate 
error  associated  with  the  radars.  They  are  assumed  to  be  the  same  for  all 
three  radars,  and  known  from  independent  measurements.  The  range  error  (DR)  is 
assumed  to  be  constant,  while  the  range  rate  error  (DR)  is  assumed  to  be 
stochastic  with  zero  mean  and  a standard  deviation  of  0.2  ft/ sec.. 

The  quantities  of  interest  in  the  above  equations  are  the  range 
rate  errors  D*X,  DY,  and  DZ.  Normal  values  of  XR,  YR,  ZR,  XK,  YR,  and  ZR  are 
available  as  data  from  the  TMR  radar  solution. 

To  calculate  the  variance  of  DX,  DY,  and  D*Z  we  form  the 

covariance  matrix  of  DEL  as  shown  in  the  equations  below.  The  diagonal 

• • • 

elements  of  the  matrix  P are  the  variances  of  DX,  DY,  and  DZ  respectively. 


(17a)  P - VAR  [DEL] 


(17b)  P - H_1G  E[KKT]GT(H"1)T  - E[DEL]E[DELT] 


where 


E[K] 


DR 

0.0 


(18) 


-DX 

-DY 

-DZ 


and 


D-U 


(19)  E[KKT]  “ 


Since  DR  Is  0 mean  with 

e(kkt)  - 


The  effect  of  the  TMR 
rate  at  the  Ku-Band  Radar  site  is  approximated  by  taking  the  dot  product  of 
the  Brass  Cap  range  unit  vector  with  the  velocity  error  vector.  This 
approximation  is  valid  because  the  Brass  Cap  and  the  Ku— Band  radar  were 
separated  by  only  a few  feet  and  the  coordinate  transformations  involved  would 
not  affect  the  results  significantly. 

D-3.3  Examples 

Figures  D5  through  D12  show  two  cases  where  velocity  errors  were 
computed  from  WSMR  experimental  data.  Figures  D5  through  D8  demonstrate  that 
for  a target  at  low  altitude  and  close  to  the  Brass  Cap  the  GDOP  effect  is 
significant.  Figures  D5,  D6,  and  D7  show  the  X,  Y,  and  Z range  from  the  Brass 

Cap.  Figure  D8  shows  the  range  rate  errors  which  were  computed  from  the  data, 

using  the  procedures  above.  Figures  D9  through  D12  show  that  at  high  altitudes 

the  GDOP  effect  is  minimal.  Figures  D9  through  Dll  show  the  X,  Y and  Z 

coordinates  which  were  measured,  and  Figure  D12  the  range  rate  error.  Note 
that  the  errors  in  the  longer  range  case,  shown  in  Figure  D12  are  less  than 
those  shown  in  D8. 
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TEST  DATA  PROFILE  HJ146A0 
TO- 624 15.  GMT-t7.  20.  14. 


0 100  200  300  «0  500  800 


TIME  (SECONDS) 


FIGURE  D5  X COORDINATES  OF  TARGET 
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TEST  DATA  PROFILE  HJ146AD 


TIME  (SECONDS) 


FIGURE  D6  Y COORDINATES  OF  TARGET 
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TEST  DATA  PROFILE  HJ146AD 
10*62415.  GMT-17.  20.  14 


FIGURE  D7  Z COORDINATES  OF  TARGET 
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TEST  DATA  PROFILE  H30SKAG 

TO- 60657 . GMT- 16.  50.  57. 


TIME  (SECONDS) 


FIGURE  D9  X COORDINATES  OF  TARGET 
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TEST  DATA  PROFILE  H30SKAG 
TO-  60657 . GMT- 16 . 50 . 57 . 


8 19  12  14  16  18  20  22  24 


TIME  (SECONDS) 


FIGURE  D 10  Y COORDINATES  OF  TARGET 
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1654 


TEST  DATA  PROFILE  H30SKAG 
TO- 60657 . GMT-16.  50.  57. 


TIME  (SECONDS) 


FIGURE  Dll  Z COORDINATES  OF  TARGET 
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GDOP  ANALYSIS  PROGRAM  LISTING 


Figure  D13  is  a listing  of  the  program  which  was  used  to  perform 
the  GDOP  analysis.  Its  inputs  are  the  same  WSMR  data  files  used  by  the  other 
analysis  programs » and  similar  output  plots  are  available. 
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SUBROUTINE  GDOP(RDOTSD) 


COMMON/TMR/X , Y , Z , X D 0 T , YDOT , ZDOT 

REAL  H(3.3),G(3.5),DK(5.1).DKT(1 , 5) . GT ( 5 . 3 ) 

REAL  HINV(3,3)  ,HINVT(3,3)  ,M(3,  1 ) ,MT(1  ,3)  ,R(3  , 1 ) 

RCAL  XYZMAT (3  ,3)  , D E L T ( 3 , 1 ) ,HINVG(3,5)  ,OKOKT(5,5) 

REAL  T EMP ( 3 . 5 ) ,GTH1NVT(5.3)  . MMT ( 3 . 3 ) . MDKT ( 3 . 5 ) 

REAL  DKMT(5,3)  ,COV1  (3,3)  ,COV2(3.3)  . COV3 ( 3 , 3 ) . COV ( 3 , 3 ) 
DATA  I LOOP/ 1 / 

READ  X Y Z POSITIONS  OF  VECTORS 
IF  (I  LOOP . EQ . 1 ) THEN 

0PEN(UNIT-8.FILE«'P0S. DAT1, STATUS-’ OLD’) 

DO  1-1,3 

READ(8,*)  XYZMAT ( I , 1)  ,XYZMAT(I  ,2)  ,XYZMAT(I  .3) 

END  DO 

READ  IN  DELTA  RANGE-DELTA  RANGE  RATE  MEAN  AND 
DELTA  RANGE  RATE  VARIANCE 

READ(8,  *)  DR  , DRDOT  , DRDOTSO 
I L OOP-0 
END  IF 

DO  1-1,3 

H ( I . 1 )-X  — XYZMAT ( I , 1 ) 

H ( 1 , 2)-Y  — XYZMAT ( I ,2) 

H ( 1 . 3)-Z  — XYZMAT ( 1,3) 

G ( I . 3 ) - X D 0 T 
G ( I . 4 ) -YDOT 
G ( I , 5 ) - Z D 0 T 

R ( I . 1 ) -SORT ( H ( I . 1 ) • • 2 + H ( I . 2 ) * • 2 + H ( I , 3 ) • • 2 ) 

G ( I . 1 ) — ( H ( I , 1 ) »XDOT  + H(  I , 2) *YDOT  + H(  I ,3)*ZDOT)/R(  I , 1 ) 
G ( 1 . 2 )-R  ( I , 1 ) 

END  DO 

DO  MATRIX  TRANSPOSES  INVERSES  AND  MULTIPLICATIONS 
CALL  MAT  I NV ( H , H I NV ) 

CALL  MATMU LT ( H I N V , R , D E LT . 3 , 3 , 1 ) 

SOLVE  FOR  DELTA  X DELTA  Y AND  DELTA  Z 


FIGURE  D13  SOURCE  LISTING  OF  GDOP  ANALYSIS  PROGRAM 
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DO  1-1,3 

DELT ( I , 1 )«DELT ( I , 1 ) • DR 
END  DO 

SET  UP  MATRIX  DELTA  K 

DK ( 1 , 1 ) -DR 

DK ( 2 . 1 ) -DRDOT 

DK ( 3 . 1 )--DELT (1,1) 

D K ( 4 , 1 )--DELT (2 , 1 ) 

D K ( 5 , 1 )»-DELT  (3  , 1 ) 

CALL  MATMU LT ( H I NV , 0 , H I NVG , 3 , 3 . 5 ) 

CALL  MATMU LT ( H I NVG , DK , M , 3 , 5 . 1 ) 

CALL  MATTRAN ( M , MT , 3 . 1 ) 

CALL  MATTRAN (G . GT . 3 . 5 ) 

CALL  MATTRAN ( DK  . DKT  . 5 , 1 ) 

CALL  MATTRAN ( H I NV , H I NVT . 3 . 3 ) 

CALL  MATMU LT ( DK . DKT  , DKDKT  . 5 . 1 , 5 ) 

SET  DKDKT(2,2)  TO  VARIANCE  OF  VELOCITY  ERROR 


DKDKT ( 2 , 2 ) -DRDOTSQ 

CALL  MATMULT(GT,HINVT,GTHINVT.5,3.3) 
CALL  MATMULT (M , DKT  . MDKT  , 3 . 1 . 5) 

CALL  MATMU LT ( DK  , MT  , DKMT  . 5 , 1 . 3 ) 

CALL  MATMULT(HINVG,DKDKT,TEMP.3,5.5) 
CALL  MATMULT(TEMP,GTHINVT.COV1  .3,5,3) 
CALL  MATMULT(MDKT,GTHINVT.COV2.3,5,3) 
CALL  MATMULT ( HI NVG , DKMT ,COV3 , 3 . 5 , 3) 
CALL  MATMULT (M . MT , MMT  , 3 . 1 . 3) 

FORM  COVARIANCE  MATRIX 


C 


C 


DO  1-1,3 

DO  J - 1 , 3 

COV(I  , J ) — COV 1 ( I . J )— COV2( I . J ) - C0V3 ( I , J ) +MMT ( I .J) 
END  DO 
END  DO 

XDSD-SQRT ( COV ( 1 ,1)) 

YDSD-SORT ( COV ( 2 , 2) ) 

ZDSD-SORT ( COV ( 3 , 3)  ) 

RANGE  — SORT (X»»2+Y**2+Z*»2) 

RDOTSD— obs((X»XDSD+Y*YDSD+Z*ZDSD)/RANGE) 

RETURN 

END 

SUBROUTINE  M A T MU LT ( A , B . C . M , N , I P ) 

DIMENSION  A ( M , N ) . B ( N , I P ) , C (M , I P ) 

DO  I - 1 , M 

DO  J - 1 , IP 

C ( I , J ) — 8 . 0 
DO  K- 1 , N 

C(I  ,J)-C(I  , J ) + A ( I , K ) • B ( K . J ) 

END  DO 
END  DO 
END  00 
RETURN 
END 

SUBROUTINE  MATTRAN(A,B,  IROV*.  ICOL) 

DIMENSION  A(IROW.ICOL) . B( ICOL, I ROW) 


FIGURE  D13 
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DO  I - 1 , I ROW 

DO  J-1  , 1COL 

B ( J . I ) -A ( 1 . J ) 

END  DO 
END  DO 
RETURN 
END 

SUBROUTINE  MATINV(A.B) 

DIMENSION  A ( 3 , 3 ) , B ( 3 . 3 ) 

D E T - A ( 1 , 1 )»A(2,2)*A(3,3)+A(1  ,2)*A(2,3)»A(3,  1 ) 
+A(1 ,3)»A(2,1)*A(3,2)— A(1 ,3)*A(2,2)*A(3,1) 
— A ( 1 , 2 ) • A ( 2 , 1 )»A(3,3)-A(1  ,1)*A(2.3).A(3,2) 

B(1.1)-A(2.2).A(3,3)-A(2,3).A(3,2) 

B(2.1)-A(3.1)*A(2,3)-A(2.1)«A(3.3) 

B(3,1)-A(2.1)*A(3,2)-A(3,1).A(2.2) 

B ( 1 ,2)-A(1  ,3)*A(3,2)— A(1  , 2) • A( 3 . 3 ) 

B ( 2 , 2 ) -A  ( 1 , 1 )*A(3,3)— A(3,  1 )*A(1  .3) 

B(3,2)— A(3  , 1 )*A(1  , 2 ) — A ( 1 ,1)*A(3.2) 

B ( 1 , 3 ) - A ( 1 ,2)*A(2,3)— A(2,2)»A(1 ,3) 
B(2.3)-A(2,1)*A(1 , 3 ) - A ( 1 . 1 ) • A ( 2 . 3 ) 

B ( 3 . 3 ) -A ( 1 ,1)*A(2,2)-A(1  , 2 ) * A ( 2 . 1 ) 

DO  1-1,3 

DO  J - 1 , 3 

B(  J , I ) - B ( J . I ) / D E T 
END  DO 
END  DO 
RETURN 
END 


FIGURE  D13  SOURCE  LISTING  OF  GDOP  ANALYSIS  PROGRAM 
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APPENDIX  E:  EFFECTS  OF  COORDINATE  MISALIGNMENT  ON 

DELTA  ROLL  ANGLES 

If  we  start  with  two  coordinate  systems  that  have  the  same  origins  but 
are  not  aligned  a point  In  space  will  have  two  sets  of  coordinates;  (X,Y,Z) 
and  (X1 ,Y' ,Z'),  as  shown  in  Figure  E-l.  In  our  particular  case,  we  let  the 
(X,Y,Z)  system  represent  where  the  TMR2KU  subroutine  says  the  radar  is 
pointing  and  the  (X' ,Y' ,Z’)  system  represent  where  the  shuttle,  radar  actually 
is  pointing. 

It  is  possible  to  go  from  the  (X,Y,Z)  system  to  the  (X* ,Y* ,Z')  system 
using  the  rotation  matrices: 


* 

"X  ■ 

m 

H* 

O 

O 

cosB  0 sinB " 

" cosC  sinC  0" 

"X  ' 

f 

Y 

0 cosA  sinA 

0 10 

-sinC  cosC  0 

Y 

t 

_ Z _ 

_0  -sinA  cosA_ 

_-sinB  0 cosB. 

0 0 1. 

_Z  _ 

FIGURE  E-l  TWO  COORDINATE  SYSTEMS  HAVING  SAME  ORIGIN, 
BUT  UNALIGNED  AXES 
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where  A,  B,  and  C are  the  rotation  angles  about  the  coordinate  axes 
Multiplying  through,  we  obtain 


"(cosBcosC)  (cosBsinC)  (sinB) 

(-  sinCcosA  - sinBcosCsinA) (cosAcosC  - sinAsinBsinC)  (sinAcosB) 
.(sinAsinC  - cosAsinBcosC)  (-  sinAcosC  - cosAsinBsinC) (cosAcosB). 


If  we  use  the  small  angle  approximations  of 

sin  u ■ u 
cos  u * 1 


we  get 

t 

"X  " 

t 

Y 

Z 


■ 1 C B' 

"X  “ 

(-  C - AB) (1  - ABC)  A 

Y 

.(AC  - B)  (-  A - BC)  1. 

_Z_ 

or 


X ■ X + YC  + ZB 

Y*  - X(-  C - AB)  + Y(1  - ABC)  + ZA 
Z “ X(AC  - B)  + Y(-  A - BC)  + Z 


if  we  let 

X*  - X + AX 

y'  - Y + AY 

Z - Z + AZ 

we  find 

AX  - YC  + ZB 

AY  - ZA  - XC  - XAB  - YABC 

AZ  - - XB  - YA  +XAC  - YBC 
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where  these  deltas  are  the  errors  caused  by  the  rotation  angles. 

We  can  now  see  how  the  rotation  angles  would  affect  delta  roll. 

By  definition , 

Roll  - ARCTAN(Y/Z) 

Roll*  “ ARCTAN(y'/z’) 

Roll  - Roll  - Roll 

If  we  use  small  roll  angle  data,  we  can  approximate 

ARCTANCY/Z)  - Y/Z 

This  makes 

Roll  “ Y'  - Y 
z’  Z 

- Y+  AY  - Y 
Z+  iZ  Z 


using  the  approximation 
1 

1 + X 
A Roll 


2 

The  last  term  in  the  numerator,  Z Y^  is  neglibible  for  the 
trajectories  used.  This  leaves 

A Roll  - Z AY  - Y AZ  - Y AZ 


■ 1 - X for  small  x 

2 

- Z AY  - Y AZ  - Y AZ  + AZ  Y 


- Z AY  - Y AZ 

4*1 
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If  we  now  substitute  in  delta  Y and  Z from  before 


2 2 

A Roll  - - XZAB  - YZA  + XZA  C - YZABC 

+ X2BC  +YZAC  - Z2AC2  + XYBC2 

9 2 2 2 2 2 

+ X AB  + XYA  B - X*A  BC  + XYABC 


If  we  keep  second  order  and  above  terms 
A Roll  - A(1  + Y2/Z2)  + BCXY/Z2)  + CC-X/Y) 

+ A2(Y/Z)  - ACXY/Z2  + BC( (Y2  - X2/Z2) 

for  the  available  trajectories,  the  last  two  terms  become  negligible  and  we 
have 

A Roll  - A(1  + Y2/Z2)  + B(XY/Z2)  + C(-X/Y)  + A2(Y/Z) 
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APPENDIX  F - TARGET  ACCELERATION  EFFECTS 


F-l  INTRODUCTION  AND  ANALYSIS 

In  order  to  predict  the  current  velocity  of  a target,  the  Ru-Band 
Radar  computes  a velocity  discriminant.  This  computation  is  made  assuming 
that  there  is  no  target  acceleration.  The  presence  of  target  acceleration  has 
an  adverse  effect  on  the  ability  of  the  radar  to  measure  velocity  because  bias 
errors  are  introduced  into  the  velocity  discriminant  calculation. 

In  order  to  form  the  velocity  discriminant,  the  radar  performs 
the  following  steps: 

1)  Transmits  16  pulses  per  time  slot,  4 time  slots  per  frequency,  over  5 
frequencies  with  a null  time  equal  to  l/PRF  between  each  time  slot. 

2)  For  each  time  slot  the  radar  performs  a DFT  from  the  early  range  gate  and 
a DFT  from  the  late  range  gate. 

3)  Sums  up  the  magnitudes  of  the  "low"  filter  bin  for  all  range  gates,  time 
slots,  and  frequencies.  Similar  processing  is  performed  for  the  "high"  filter 
bin. 

4)  A velocity  discriminant  is  formed  by  computing  log  (low/high) . 

5.  Computes  fractional  position  within  a filter  by  an  inverse  mapping  of  the 
velocity  discriminant. 

6.  Computes  velocity  estimate  from  knowledge  of  the  center  filter  number  and 
the  fractional  displacement  from  the  center. 

If  a target  is  accelerating  during  a i:ime  slot,  the  effect  of  the 
acceleration  is  to  “slide"  the  target  across  DFT  frequency  bins.  The 
contents  of  a bln  are  thus  the  average  of  the  outputs  from  the  various 
frequencies  which  the  acceleration  produced  during  a time  slot.  The  practical 
effect  of  this  phenomenon  is  minimal  in  many  cases  because  the  acceleration 
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values  likely  to  be  encountered,  and  the  time  slot  are  both  small  - the  latter 
is  16  times  the  reciprocal  of  the  FRF. 

Averaging  of  the  individual  DFT  responses  prior  to  using  the 
velocity  discriminant  function  produces  a smoothing  effect,  which  damps 
acceleration  effects.  It  has  been  observed  that  the  combination  of  this 
averaging,  and  the  inverse  mapping  which  is  used  to  form  the  velocity  estimate 
are  approximately  linear  for  the  accelerations  which  would  likely  be 
encountered.  The  end  result  is  that  the  velocity  error  is  given  by: 

VEL  ERROR  - (Final  Velocity  - Initial  Velocity)  / 2 

Note  that  the  velocity  error  is  a "bias”  error,  that  is,  it  is  proportional 
only  to  the  velocity  difference  and  not  the  values  of  the  individual 
velocities.  Note  that  if  the  target's  acceleration  was  oscillating  between 
positive  and  negative  values  this  bias  error  could  cause  the  velocity  estimate 
of  the  radar  to  have  an  error  standard  deviation  which  exceeded  the 
specification. 

F-2  SIMULATION  RESULTS 

A computer  simulation  of  the  velocity  estimation  signal 
processing  portion  of  the  radar  was  written  to  validate  the  conclusions  drawn 
in  the  above  section.  The  radar  return  from  a target  accelerating  at  a 
constant  rate  was  modelled  by  using  a linear  ramped  FM  wave.  This  simulated 
signal  was  processed  by  the  DFT  and  velocity  processor  and  resulted  in 
velocity  errors  approximately  one  half  the  velocity  change  over  the  update 
period  as  shown  in  FI. 

The  results  shown  in  Figure  FI  confirm  that  the  effects  of 
acceleration  on  velocity  computation  are  linearly  predictable  as  described  in 
Section  FI  above. 
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(sdd)  hom3  aiiooi3a 

FIGURE  FI  VELOCITY  CHANGE  OVER  UPDATE  INTERVAL 
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APPENDIX  G 

WHITE  SANDS  MISSILE  RANGE  FLIGHT  TEST  DATA  SUMMARY 


This  appendix  provides  a brief  summary  of  all  official  flight 
tests  of  the  space  shuttle  radar  at  the  White  Sands  Missile  Range  (WSMR) . The 
information  in  the  summary  was  obtained  from  two  sources:  (1)  the  24  hour 
reports  written  by  Andy  Lindberg  of  Lockheed  Engineering  and  Management 
Services  Company  (LEMSCO),  and  (2)  the  reduced  flight  data  provided  by  NASA 
JSC  and  LEMSCO  personnel. 

This  Appendix  is  structured  as  follows.  Each  subsection  provides 
the  summaries  of  all  test  flights  flown  on  a particular  test  date.  The 
introduction  of  each  subsection  provides  the  flight  conditions  for  the  day, 
the  targets  used,  and  the  trajectories  flown.  The  format  of  each  individual 
flight  summary  is  as  follows. 

Trajectory:  Name  of  the  profile  flown. 

Range  Equipment:  WSMR  tracking  equipment  employed. 

Flight  Profile:  The  initial  and  final  X,  Y and  Z coordinates  of 
the  target  in  the  Brasscap  coordinate  system.  In  this  system  X is 
North  and  -Z  is  vertical.  The  arrows  (-*■ ) indicate  the  direction 
of  travel. 

Duration:  The  length  of  the  flight  in  seconds. 

Comments : Documentation  of  large  trends,  means  or  standard 
deviations  in  the  difference  data  or  other  anomalies. 

In  addition,  Table  G-l  provides  a list  of  all  flight  tests  by 
trajectory  name  and  the  corresponding  page  numbers  within  this  appendix  where 
a summary  of  the  flight  test  can  be  found.  Table  G-2  contains  the  statistics 
for  the  delta  range,  range  rate,  roll,  roll  rate,  pitch,  pitch  rate  and  alpha 
and  beta  angles  for  each  test. 
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TABLE  G-l  CONTENTS  OF  THE  APPENDIX 


Test  Date 

Flight  Name 

Summary  Location 

10/1/85 

HL546AC 

G-7 

HL246AD 

G-7 

HL446AC 

G-8 

HL146AC 

G-8 

HL346AD 

G-8 

HJ146AC 

G-9 

10/3/85 

HEL30AE 

G-ll 

HEL30AF 

G— 11 

H30SKAE 

G-ll 

H30SKAF 

G-12 

HEL30AG 

G-12 

HEL30AH 

G-12 

H30SKAG 

G-13 

H30SKAH 

G-13 

H30SKAI 

G-13 

HEL30AI 

G-14 

HEL30AJ 

G-14 

10/5/85 

HL546AE 

G-15 

HL346AE 

G-15 

HL446AD 

G-17 

HL146AD 

G-17 

HJ146AD 

G-17 

HL546AF 

G-18 

HL246AE 

G-18 

10/16/85 

GEM1 

G-20 

GEM2 

G-20 

GEM3 

G-20 

G-2 


TABLE  G-l  CONTENTS  OF  THE  APPENDIX 


Test  Date 

Flight  Name 

Summary  Location 

10/19/85 

SAT1 

G-22 

SAT2 

G-22 

SAT3 

G-23 

SAT4 

G-23 

SAT6 

G-23 

SAT8 

G-23 

11/4/85 

BALI 

G-25 

BAL2 

G-25 

BAL5 

G-26 

BAL6 

G-26 

BAL7 

G-27 

HL546AG 

G-27 

HL246AF 

G-27 

HL446AE 

G-28 

HL146AE 

G-28 

HL346AF 

G-28 

HJ146AE 

G-29 

ORIGINAL  PA3E  IS 

QC  POOR  QUALITY 


TABLE  G-2  DIFFERENCE  MEANS  AND  STANDARD  DEVIATIONS 
BY  TEST  RUN  AND  REFERENCE 


P»T1U 

SETT 

RANGE  RATE 

ROLL 

PITCH 

PITCH  RATE 

ROLL  RATE 

ALPHA 

BETA 

BAU 

Tit 

KEAN 
ST  .CEL' 

14.6  296 
10.7812 

0.0138 

1.3883 

0.4471 

0.2778 

-0.5676 

0.1174 

0.0384 

0.1040 

-0.0239 

1.1018 

0.4393 

0.1716 

0.6067 

0.2643 

B PL2 

7» 

MEAN 
ST. DEV 

10.5778 

5.8061 

-o.oieo 

3.1086 

0.736? 

0.5121 

-0.8540 

0.2902 

0.0333 

0.1201 

-8.6231 

8.1264 

0.3110 

0.1945 

1.8106 

9.5457 

SALS 

ut 

MEAN 

ST.OEV 

20.765 B 
7.5033 

0.0002 

1.2009 

0.4218 

0.0794 

-0.6330 

0.0622 

-0.0485 

1.0333 

0.0668 

8.0406 

0.6229 

0.0720 

0.5726 

8.0528 

Hi 

Tit 

MEAN 

ST.OEV 

22.8772 

9.9824 

0.0109 

1.7760 

0.4026 

1.2532 

-0.7181 

0.1367 

0.0389 

0.0650 

-8.0326 

0.0757 

C.3875 

0.1313 

0.6279 

0.2537 

BAL7 

Tit 

MEAN 

ST-CEV 

22.2902 

7.6362 

0.9121 

2.9110 

0.4132 

0.2474 

-0.7480 

0.1779 

0.0340 

0.0442 

-0.0276 

0.0722 

0.3937 

0.1246 

0.6339 

0.2770 

fiOC 

Tit 

MEAN 

ST.OEV 

5.3709 

35.2816 

-0.0667 

2.1707 

-0.0867 

0.3950 

-0.5254 

0.3022 

0.0369 

0.0687 

0.0262 

0.0538 

0.5573 

0.1089 

0.2249 

0.3742 

son 

Tit 

MEAN 

ST.CEV 

27.3340 

43.0562 

-0.3212 

1.8308 

-0.2842 

0.4022 

-6.2532 

0.6565 

0.C576 

0.0708 

0.0066 

0.0733 

0.4579 

0.2943 

-0.0890 

0.6507 

K30SME 

rest 

MEAN 

ST.OEV 

1.3271 

10.6636 

-0.4042 

1.4706 

-0.1086 

0.2615 

-0.637? 

0.1264 

-0.1488 

0.0611 

0.2327 

0.1095 

0.6556 

0.0331 

0.1425 

0.2041 

K38SKAC 

Cl* 

MEAN 

ST.OEV 

-0.1066 

4.2904 

-0.0377 

0.3192 

•0.0700 

0.0705 

-0.6599 

0.0601 

-0.1631 

0.0793 

0.2394 

0.1038 

0.6403 

0.0538 

0.1748 

0.0735 

K39SMT 

BEST 

MEAN 

ST.OEV 

10.4932 

13.0067 

0.4111 

1.7232 

-0.3266 

0.4342 

-0.5609 

0.2001 

-0.1672 

0.1604 

0.0407 

0.1908 

0.6460 

0.0884 

-0.0816 

0.4711 

H30SMT 

CI« 

MEAN 

ST.OEV 

3.5267 

4.5601 

-0.0061 

0.3309 

•0.1210 

0.0915 

-0.6367 

0.0993 

-0.1564 

0.1691 

0.0344 

0.1879 

0.6369 

0.1006 

0.1365 

0.0691 

K30SA6 

BEST 

MEAN 

ST.OEV 

-12.1623 

10.4426 

-1.1873 

2.4076 

0.2374 

0.2659 

-0.6593 

0.1214 

-0.3421 

0.0428 

-0.0009 

0.0788 

0.5261 

0.0610 

0.4657 

1.2068 

K30SXAG 

CINE 

MEAN 

ST.OEV 

-5.1828 

3.6437 

-0.2111 

0.7971 

0.0767 

0.0842 

-0.5961 

0.0692 

-0.3802 

0.0838 

0.0333 

0.1045 

0.5365 

0.0778 

0.2970 

0.0762 

K30SMH 

BEST 

MEAN 

ST.OEV 

-41.3806 

13.4238 

-0.3278 

2.2115 

1.4790 

0.3372 

-1.0966 
• 0.1944 

-0.1536 

0.1385 

0.0641 

0.1437 

0.4371 

0.0651 

1.7070 

1.3755 

KJOSKAH 

cite 

WAN 

ST.OEV 

2.8022 

5.7923 

0.0741 

1.1462 

-0.1119 

0.0861 

-0.5628 

0.0903 

-0.1630 

0.1282 

0.0726 

0.1412 

0.5660 

0.0770 

0.1160 

1.0983 

K30SXA! 

BEST 

MEAN 

ST.OEV 

-0.2942 

3.9021 

-8.2821 

1.0652 

-0.0407 

0.1137 

-0.7270 

0.0746 

0.0104 

0.0554 

0.1020 

0.0216 

0.6820 

0.0500 

0.2522 

1.1266 

K3BSM! 

cue 

wan 

ST.OEV 

3.1442 

5.2834 

0.12B7 

0.4931 

-0.1716 

0.0793 

-0.6294 

0.0740 

-0.1140 

0.1370 

0.0608 

1.0886 

0.6453 

0.0849 

0.0895 

0.0645 

WL30AP 

BEST 

MEAN 

ST.OEV 

19.2545 

19.3648 

0.0074 

8.7492 

-0.1403 

0.8731 

-0.5762 

0.0773 

-8.0673 

0.0826 

8.1844 

0.0913 

0.3954 

0.0721 

0.0791 

1.0710 

WL30AF 

cue 

WAN 

ST.OEV 

10.9952 

18.8711 

0.0430 

8.4893 

-0.1290 

0.0743 

-0.5791 

0.0686 

-0.0677 

0.0847 

0.1037 

0.0914 

0.599? 

0.0537 

0.0969 

1.0807 

WL30A6 

BEST 

WAN 

ST.OEV 

9.5942 

14.9535 

-0.0190 

0.3741 

-0.1686 

0.1715 

-0.51  BO 
0.0362 

-0.0687 

8.8936 

0.0053 

0.0304 

0.5465 

0.0394 

0.0491 

1.1716 

HEL30A6 

ci« 

MEAN 

ST.OEV 

9.3744 

20.3794 

0.0349 

0.4160 

-0.1317 

0.0710 

-0.3196 

0.0469 

-0.0714 

0.0932 

0.0060 

0.0302 

0.5417 

0.0523 

0.0651 

1.0670 

fCL30AI 

BEST 

MEAN 

ST.OEV 

17.6077 

17.6219 

-0.0804 

1.6747 

-0.1584 

0.2233 

-0.537C 

0.0847 

-0.0316 

0.8511 

0.0043 

1.0407 

0.5746 

1.0728 

1.0720 

1.2270 

WL30AI 

cue 

WAN 

ST.OEV 

19.7237 

16.9507 

0.0135 
„ 0.3627 

-0.2076 

0.0660 

-0.5387 

0.0594 

-0.0335 

0.0499 

0.0031 

0.8409 

0.5771 

0.0635 

0.0197 

0.0615 

ffl.3 DAJ 

BEST 

MEAN 

ST.OEV 

13.5543 

24.2236 

-0.1243 

0.7393 

-0.0066 

0.7280 

-0.5301 

0.2008 

-0.0373 

0.0769 

0.0117 

0.8391 

0.4912 

0.1127 

0.2006 

0.7459 

NEL30AJ 

cue 

WAN 

ST.OEV 

19.9391 

14.8156 

0.0268 

8.3790 

-0.1294 

1.0633 

-0.5003 

0.0503 

-8.0420 

1.0645 

0.8131 

8.0366 

0.5124 

0.0447 

1.0764 

1.0676 

HJ14MC 

BEST 

WAN 

ST.OEV 

23.9179 

40.3428 

-0.0118 

0.3206 

-0.5337 

0.1373 

-0.3900 

1.0835 

0.0202 

0.8146 

0.0600 

0.0167 

0.5871 

1.0861 

-0.3271 

1.1406 

HJ144AC 

cue 

MEAN 

ST.OEV 

IS 

IS 

IS 

tflR 

fcoSe 

m 

m 

is 

W146AO 

BEST 

WAN 

* ST.OEV 

28.5474 

69.6391 

0.0022 

0.3608 

-0.0261 

0.1160 

-0.6514 

0.0767 

0.0137 

0.0131 

0.0380 

1.0143 

0.6708 

1.8967 

0.1857 

0.U29 

W146A0 

cue 

WAN 

ST.OEV 

21.6869 

69.7989 

0.0002 

0.6820 

-0.0244 

0.1007 

-0.6337 

1.0714 

0.0135 

0.0125 

0.0589 

0.0141 

0.6847 

8.0961 

1.1839 

1.0779 

IU14MC 

cue 

WAN 

ST.OEV 

22.4481 

56.1602 

-0.0201 

0.3259 

-0.0945 

0.2359 

-0.6177 

0.1829 

-1.0147 

0.0039 

-0.0284 

0.0093 

0.6609 

4.1490 

0.1171 

0.1944 

HJ146AE 

TM 

WAN 

ST.OEV 

21.8884 

56.1907 

-0.0193 

0.3579 

-0.1047 

1.2364 

-0.6225 

0.1031 

-0.0147 

0.0060 

-8.0284 

0.0094 

0.6626 

0.1501 

0.1279 

0.1954 

G-4 


OKtwfi^AL  PAiaE  IS 

OF  POOR  QUALITY 


TABLE  G-2 


DIFFERENCE  MEANS  AND  STANDARD  DEVIATIONS 
BT  TEST  RUN  AND  REFERENCE  (continued) 


ptonu 

RETT 

VWGE 

RANGE  RATE 

ROLL 

PITCH 

PITCH  RATE 

WU  MTC 

ALPHA 

BETA 

H146AE 

Cl* 

MAN 
ST .DEM 

10.5133 

23.0777 

-0.0417 

0.9373 

0.0403 

0.1229 

-8.6260 

0.0732 

-0.0137 

0.0095 

-0.0333 

0.0201 

0.6116 

0.1021 

0.2690 

8.09a 

itl4tt£ 

im 

MAN 

ST  .DEV 

8.5200 

23.3803 

0.0768 

0.4418 

0.0(39 

0.1228 

-8.6398 

0.0726 

-8.0174 

0.0062 

-8.0381 

Q.8093 

0.615! 

0.1014 

0.2975 

0.0967 

H246A0 

BEST 

*AN 

ST. DEV 

12.4333 

39.6139 

0.1168 

0.4773 

-8.3998 

0.1434 

-8.4227 

0.0753 

0.02a 

0.0176 

0.0764 

0.0113 

0.5664 

0.0996 

-0.1897 

0.1331 

*2400 

cue 

MAN 

ST  .DEV 

10.7964 

43.1991 

0.0026 

0.6894 

-8.3363 

0.0667 

-o.4a4 

0.0495 

0.9233 

0.0199 

0.0737 

0.0086 

0.5625 

0.0649 

-0.1482 

o.oas 

*24GAE 

BEST 

MAN 

ST. DEV 

0.0276 

41.2282 

0.0144 

0.3133 

-8.0131 

0.0934 

-8.6280 

0.9749 

0.0232 

8.0148 

0.0630 

0.0133 

0.6282 

0.0671 

9.2236 

o.iaa 

*246A£ 

cue 

MAN 

ST.OEV 

-1.0261 

48.6489 

0.0252 

o.mo 

0.0333 

0.0723 

-8.6328“ 

8.05a 

8.0227 

0.0118 

0.0632 

8.0133 

0.6323 

0.0662 

0.2917 

0.0671 

*346A0 

BEST 

MAN 

ST.OEV 

16.7385 

27.0040 

0.1811 

0.6633 

-8.3848 

0.0965 

-8.4198 

0.0389 

0.0243 

0.0153 

0.0620 

0.0114 

0.5396 

0.0794 

-0.1876 

0.0912 

H344A0 

cue 

MAN 

ST.CEV 

19.3531 

25.1686 

8.2210 

0.5973 

-8.3856 

0.0937 

-8.4231 

1.0337 

0.0224 

1.8142 

0.0634 

0.0097 

0.5782 

0.0761 

-8.1820 

0.0913 

*34GA£ 

BEST 

MAN 

ST.OEV 

13.8674 

32.9383 

0.0163 

8.5123 

0.0367 

0.1870 

-8.6386 

8.0964 

0.02M 

0.0186 

0.0755 

0.0154 

0.6453 

0.1202 

0.2714 

0.1891 

*346A£ 

Cl* 

MAN 

ST.OEV 

13.7301 

33.0880 

0.0456 

0.6095 

9.0815 

0.1622 

-8.6504 

0.0801 

0.0239 

0.0172 

0.0760 

0.0132 

0.6372 

0.1199 

0.2323 

0.1334 

4J4CAF 

Cl* 

MAN 

ST.OEV 

13.0561 

41.8876 

-o.oea 

0.8238 

0.0727 

0.0969 

-8.6135 

0.0665 

-8.0208 

0.0046 

-0.0372 

0.0046 

0.5964 

0.0824 

0.2381 

0.0794 

*34W 

TMt 

MAN 

ST.OEV 

11.3174 

42.1584 

0.0133 

0.5622 

0.0934 

0.0969 

-8.6260 

9.0667 

-0.0208 

0.0046 

-0.0372 

0.0046 

0.3992 

0.0828 

0.3105 

0.0805 

HN«C 

BEST 

MAN 

ST.OEV 

a. 5357 
23.5733 

0.1709 

8.4878 

-8.4367 

0.2439 

-8.4144 

0.0704 

0.0243 

0.0194 

1.0706 

0.0105 

0.6007 

0.0997 

-0.2389 

0.2151 

*446AC 

Cl* 

MAN 

ST.OEV 

23.0432 

23.0711 

0.1560 

0.3491 

-8.3995 

0.0868 

-0.4103 

0.0330 

0.0239  ’ 
9.0113 

9.0690 

0.0087 

0.5626 

0,0727 

-0.a22 

0.0676 

BEST 

MAN 

ST.0EV 

13.3500 

41.4424 

0.0060 

0.5416 

9.0632 

1.1038 

-8.6400 

1.0762 

0.0166 

0.0123 

8.0608 

0.0188 

0.6217 

0.0642 

0.2829 

0.1304 

*44*» 

Cl* 

MAN 

ST.OEV 

12.9660 

41.4224 

0.0164 

8.7103 

0.0674 

0.0682 

-0.6447 

0.0354 

0.0133 

0.0104 

0.0689 

0.0187 

0.6320 

0.0647 

0.2832 

0.0619 

HL44SAE 

Cl* 

MAN 

ST.OEV 

9.5401 

40.9939 

1.0920 

1.2379 

0.0648 

o.i9a 

-8.6191 

0.0938 

-8.0130 

0.0080 

-0.0374 

0.0101 

0.6041 

1.1312 

0.2808 

0.1323 

*44GAE 

THR 

MAN 

ST.OEV 

6.6931 

41.3274 

8.8314 

8.5111 

0.0929 

0.1972 

-0.6335 

1.0932 

-8.0183 

0.0073 

-0.0381 

0.0076 

0.6086 

0.1503 

o.aos 

0.1328- 

H54EAC 

T* 

MAN 

ST.OEV 

13.9807 

43.7245 

-8.1428 

1.3377 

-8.6839 

2.8923 

-8.3873 

0.9770 

0.0431 

0.1223 

0.0732 

0.0448 

0.4H7 

0.2369 

-0.3m 

2.9446 

H54M 

BEST 

MAN 

ST.OEV 

3.9403 

34.3396 

0.0649 

0.6740 

-1.0037 

0.0771 

-8.6358 

0.0633 

0.0313 

0.0142 

0.0906 

1.0130 

1.6338 

0.0652 

0.2348 

0.0962 

*S4«r 

Cl* 

MAN 

ST.OEV 

3.9227 

34.7227 

0.0716 

0.7337 

0.0272 

0.0724 

-0.6472 

0.0361 

9.0314 

0.0123 

0.0907 

0.0126 

0.6395 

0.0634 

0.2637 

0.0596 

jm 

MAN 

ST.OEV 

-8.3150 

31.6373 

0.0093 

0.3354 

1.4794 

0.1294 

-1.1692 

0.0639 

0.9228 

8.0116 

0.0731 

0.0107 

0.6309 

0.1492 

1.7302 

0.1728 

*5406 

Cl* 

MAN 

ST.OEV 

7.4577 

27.3830 

-8.1337 

1.8137 

0.0362 

1.1320 

-8.6482 

1.0740 

-8.0203 

0.00a 

-8.0437 

0.0100 

0.6338 

0.1033 

0.2758 

0.1063 

HMM 

i* 

MAN 

ST.OEV 

4.6124 

23.2184 

0.0637 

9.46U 

0.0398 

0.1103 

-8.6621 

1.0683 

-8.0203 

0.0033 

-8.0454 

0.0038 

0.6310 

0.0931 

I.31N 

1.0874 

SW1 

TW 

MAN 

ST.OEV 

3.0332 

17.6844 

8.0396 

2.3341 

0.1044 

1.2066 

-8.1323 

o.aos 

0.0060 

0.0764 

9.9008 

1.0302 

-8.0172 

0.2681 

0.1683 

0.2437 

9RT2 

kst 

MAN 

ST.OEV 

7.0837 

33.4679 

-8.1241 

3.6169 

1.1843 

8.3383 

-8.3943 

o.asi 

0.0249 

0.1176 

0.0008 

0.0493 

1.3889 

1.2382 

0.3776 

0.5443 

9AT2 

cue 

MAN 

ST.OEV 

2.2107 

2.4174 

-0.0106 

1.4091 

0.1419 

1.1487 

-8.4331 

o.oas 

0.0232 

0.1044 

9.0814 

9.0402 

0.3963 

1.1406 

0.3312 

1.1274 

SAT3 

KST 

MAN 

ST.OEV 

31.268 

31.2223 

0.a32 

6.7048 

-7.0367 

66.4737 

-1.9407 

2.2230 

-8.0074 

9.1391 

0.0831 

0.4833 

2.4407 

2.9931 

-1.9902 

4.3826 

SAT3 

Cl* 

MAN 

ST.OEV 

2.4247 

2.3431 

1.0184 

1.8319 

1.34a 

1.7819 

-8.4691 

0.2732 

-8.0082 

8.0933 

0.1800 

1.1412 

1.837? 

1.3284 

0.2201 

1.244 

SATA 

BEST 

MAN 

ST.OEV 

20.3398 

13.8462 

0.0092 

0.7399 

-0.1663 

0.1736 

-8.7369 

0.0687 

0.0313 

0.8334 

-8.0193 

fc.0382 

0.7403 

0.0999 

0.1387 

0.1387 

SATA 

Cl* 

MAN 

ST.OEV 

11.3731 

14.4241 

0.0128 

1.6488 

0.0013 

8.1171 

-8.7(13 

i.oai 

0.0296 

9.0313 

-0.0198 

0.0371 

0.7838 

0.0933 

0.313? 

1.0924 

«ME  WOMB  IN  ftCT 
WMC  un  HCASMtt  IN  mr/SCCM 
MU  ANGLE  MEASURED  IN  OCGREES 
P1TOI  ANGLE  MEASURED  IN  DEGREES 
RQU.  RATE  MEASURED  IN  OCGREES/ SECENO 
PITCH  RATt  MASUREO  IN  OEGRCES/SCCONO 
RtPHR  MEASURED  IN  DEGREES 
8ETA  MEASURED  IN  DEGREES 


G-5 


G.l 


10/1/85  TEST  SUMMARIES 


Table 
flown  on 


G-2  summarizes  the  flight  conditions,  targets  used,  and  trajectories 
10/1/85. 


TABLE  G-2:  10/1/85  FLIGHT  CONDITION  SUMMARY 


Flight  Conditions:  Heavy  clouds  in  spots,  hindering 
cinetheodolites . Ceiling  was  2500  ft. 
and  cover  2500  ft.  thick. 

Target:  Helicopter 

Trajectories  flown: 

HL546AC 

HL246AD 

HL446AC 

HL346AD 

HJ146AC 
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6.1.1 


Individual  Flight  Test  Summaries 


Trajectory:  HL546AC 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394),  no  clnes 

Flight  Profile  (Brasscap)  X:  47000  -►  27000  ft 

Y:  1500  -►  30000  ft 

-Z: oscillates, 3500  -*•  11000  ft 

Duration:  450  s 

Comments:  Delta  roll  mimics  the  Z profile,  delta  pitch  is  the 
inverse  of  the  Z profile,  large  -Z  changes,  downtrend  in  delta 
range,  delta  roll  rate  oscillates. 


Trajectory:  HL246AD 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394), 
5 minutes  of  cine  data. 


Flight  Profile  (Brasscap)  X:  42000  -►  30000  ft 

Y:  8000  -►  36000  ft 

-Z: oscillates,  5890  -►6030  ft 

Duration:  500  s 

Comments:  V-shaped  trend  in  delta  roll,  down  to  -.65  deg, 

oscillating  delta  pitch,  bias  of  -.4  deg. 
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Trajectory:  HL446AC 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394), 
7 minutes  of  cine  data. 


Flight  Profile  (Brasscap) 


Duration:  425  s 


X:  48000  -►  35000  ft 
Y:  1250  -►  31000  ft 
-Z:  stable  around  6100  ft, 
drops  to  5550  at  t“300  s 


Comments:  Delta  roll  seems  to  follow  the  Z profile,  as  in  HL546AC 
delta  range  mean“22.46,  std.  dev. “25. 36 
delta  pitch  skews  up. 


Trajectory:  HL146AC 


not  available 


Trajectory:  HL346AD 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394), 
small  amounts  of  cine  data. 

Flight  Profile  (Brasscap)  X:  45500  -*>  32500  ft 

Y:  14000  -►  36000  ft 

-Z: oscillates,  5820  -*5900  ft 

Duration:  400  s 

Comments:  Delta  roll  mean*  -.38  deg,  oscillates,  delta  pitch 

mean*  -.43  deg,  oscillates. 
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Trajectory:  HJ146AC 

Range  Equipment:  3 radars  (R.-350,  R.-393,  R.^394) , 
small  amounts  of  cine  data. 

Flight  Profile  (Brasscap)  X:  64000  -►  30000  ft 

Y:  0 -*•  32500  ft 

-Z : oscillates , 5500  -*6200  ft 

Duration:  600  s 

Comments:  Delta  roll  appears  to  mimic  the  Z profile,  delta  pitch 
has  a similar  pattern,  delta  range  mean-  23.8,  std. dev. *40.39 


S.2  10/3/85  TEST  SUMMARIES 

Table  G-3  summarizes  the  flight  conditions,  targets  used,  and 
trajectories  flown  on  10/3/85 

TABLE  G-3:  10/3/85  FLIGHT  CONDITION  SUMMARY 

Flight  Conditions:  Good  weather,  winds  tended  to  increase  the 

target's  velocity  and  slightly  altered  the  flight  path. 

Target:  Helicopter 

Trajectories  Flown: 

HEL30AE 

HEL30AF 

H30SKAE 

H30SKAF 

HEL30AG 

HEL30AH 

H30SKAG 

H30SKAH 

H30SKAI 

HEL30AI 

HEL30AJ 


G.  2.1 


Individual  Flight  Test  Summaries 


Trajectory;  HEL30AE  not  available 


Trajectory:  HEL30AF 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394),  5 cines 

Flight  Profile  (Brasscap)  X:  9500  -►  3250  ft 

Y:  5200  -*►  5400  -►  3400  ft 
-Z:  6000  -►  5100  ft 

Duration:  160  s 

Comments:  Large  trends  in  delta  roll  and  delta  pitch,  on  the 

order  of  .2  deg,  discontinuity  of  30  ft  in  delta  range  at  t*50  s. 

# 


Trajectory:  H30SKAE 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394),  5 cines 

Flight  Profile  (Brasscap)  X:  2800  -►  1000  ft 

Y:  oscillates,  1580  -►  1340  ft 
-Z:  1600  -►  2000 

Duration:  100  s 

Comments:  Delta  roll  and  delta  pitch  mimic  the  Y profile, 
sinusoidal  delta  range  has  30  ft  deflections,  delta  range  rate 
deflections  of  5 ft,  trends  in  delta  pitch  and  roll  rates. 
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Trajectory:  H30SKAF 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394),  5 cines 

Flight  Profile  (Brasscap)  X:  3200  -►  1400 

Y:  2100  -►  800 
-Z:  1550  -*•  1450 

Duration:  130  s 

Comments:  Large  trends  in  delta  range  (40-50  ft),  delta  range 
rate  std.  dev.“  1.72  large  deflections  in  delta  roll  and  pitch, 
up  to  1.6  deg. 


Trajectory:  HEL30AG 

Range  Equipment:  3 radars  (R— 350,  R-393,  R-394),  5 cines 


Flight  Profile  (Brasscap)  X:  10250  -*■  4600  ft 

Y:  5000  -►  6200  -►  1500  ft 
-Z:  6400  -►  5200 

Duration:  260  s 

Comments:  Large  trend  in  delta  roll  (.5  deg),  delta  pitch 

discontinuity  at  t“150  s 


Trajectory:  HEL30AH 


not  available 


Trajectory:  H30SKAG 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394) , 5 cines 


Plight  Profile  (Brasscap)  X:  1590  -►  1360  ft 

Y:  860  -*•  620  ft 

-Z:  1636  -*►  1652  -►  1644  ft 

Duration:  25  s 

Comments:  Large  trend  in  delta  roll  and  pitch  (.7  deg),  trends  in 
delta  range,  35  ft  deflections. 


Trajectory:  H30SKAH 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394),  5 cines 

Flight  Profile  (Brasscap)  X:  3100  -*>  1400  ft 

Y:  1900  -►  90Q  ft 

-Z:  1700  -►  1800  -►  1580  ft 

Duration:  110  s 

Comments:  Large  downtrend  in  delta  range  ( 50  ft  ),  delta  roll 
has  1.4  deg  deflections,  delta  pitch  has  .7  deg  deflections, 
large  delta  roll  and  pitch  rates  ( .6  deg/s). 


Trajectory:  H30SKAI 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394),  5 cines 

Flight  Profile  (Brasscap)  X:  2700  -►  2300  ft 

Y:  1900  -*>  1890  -*•  193u  ft 
-Z:  1620  -►  1660  -►  1550  ft 

Duration:  40  s 


Comments:  Trends  in  delta  roll,  pitch  and  range. 
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Trajectory:  HEL30AI 

Range  Equipment:  3 radars  (R-350,  R— 393,  R-394),  5 cines 


Flight  Profile  (Brasscap)  X:  10000  -►  4000  ft 

Y:  6000  -►  2100  ft 
-Z:  6500  -►  3300  ft 

Duration:  375  s 

Comments:  Large  delta  roll  skew  (.8  deg),  delta  pitch  skew  of  .3 
deg,  discontinuity  of  40  ft  at  t“100  s. 


Trajectory:  HEL30AJ 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394),  5 cines 

Flight  Profile  (Brasscap)  X:  10500  -►  4000  ft 

Y:  6000  -►  2000  ft 
-Z:  6200  -►  4000  ft 

Duration:  400  s 

Comments:  Large  trend  in  delta  range  ( 90  ft  deflections  ), 
trends  in  delta  roll  (2.5  deg),  trends  in  delta  pitch  (.8  deg), 
oscillating  delta  roll  rate. 
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10/5/85  TEST  SUMMARIES 


Table  G~4  summarizes  the  flight  conditions,  targets  used,  and  trajectories 
flown  on  10/5/85. 


TABLE  G-4J  10/5/85  PLIGHT  CONDITION  SUMMARY 


Flight  Conditions:  Good  weather,  slight  winds. 

Target:  Helicopter 

Trajectories  Flown: 

HL546AE 

HL346AE 

HL446AD 

HL146AD 

HJ146AD 

HL546AF 

HL246AE 
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6.3.1 


Individual  Flight  Test  Summaries 


Trajectory:  HL546AE 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394),  5 cines 

Flight  Profile  (Brasscap)  X:  47000  -►  24000  ft 

Y:  1000  -►  32500  ft 

-Z:  oscillates,  5900  -*>6300  ft 

Duration:  475  s 

Comments:  Small  trends  in  delta  roll  and  pitch  (.1  deg). 


Trajectory:  HL346AE 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394),  5 cines 


Flight  Profile  (Brasscap)  X:  47000  -►  32000  ft 

Y:  0 -►  37000  ft 

-Z:  oscillates,  5940  -►6170  ft 

Duration:  550  s 


Comments:  Small  spikes  (.06  deg)  in  delta  roll  and  pitch. 


Trajectory:  HL446AD 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394),  5 cines 

Flight  Profile  (Brasscap)  X:  49000  -►  31000  ft 

Y:  0 -►  35000  ft 

-Z:  oscillates,  5850  -^6250  ft 

Duration:  650  s 

Comments:  Oscillations  in  delta  roll  (.25  deg),  and  delta  pitch 
(.2  deg). 


Trajectory:  HL146AD  not  available 


Trajectory:  HJ146AD 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394),  5 cines 


Flight  Profile  (Brasscap)  X:  64000  -►  36000  ft 

Y:  0 -►  29000  ft 

-Z:  oscillates,  5775  -*6050  ft 

Duration:  575  s 


Comments:  Large  delta  range  std.  dev. -69  ft,  oscillations  in 

delta  roll  and  pitch  (.4  deg). 
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Trajectory:  HL546AF 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394),  no  cines 


Flight  Profile  (Brasscap)  X:  46000  -►  24000  ft 

Y:  0 -►  32500  ft 

-Z:  6850  -►  7200  -►  6900  ft 

Duration:  600  s 


Comments:  Delta  range  std.  dev."  51  ft,  large  bias  in  delta  roll 
(1.48  deg),  and  delta  pitch  (-1.17  deg),  V-shaped  trends  in  data. 


Trajectory:  HL246AE 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394) 


Flight  Profile  (Brasscap)  X:  42000  -►  29000  ft 

Y:  0 -►  36000  ft 

-Z:  oscillates,  5900  -►6175  ft 

Duration:  700  s 


Comments:  Slight  trend  in  delta  roll  , mean". 02,  std.  dev.". 09 
delta  pitch  mean"-. 65,  std.  dev. ".06 
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6.4 


10/16/85  TEST  SUMMARIES 


Table  G-5  summarizes  the  flight  conditions,  targets  used,  and  trajectories 
flown  on  10/16/85. 

TABLE  G-5:  10/16/85  FLIGHT  CONDITION  SUMMARY 

Flight  Conditions:  Drizzling  rain,  low  ceiling  (3000  ft). 

Target:  Gemspheres  (free  floating). 

Trajectories  Flown: 

GEM1 

GEM2 

GEM3 
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G.4.1 


Individual  Flight  Test  Summaries 


Trajectory:  GEM1 


not  available 


Trajectory:  GEM2 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394) 

Flight  Profile  (Brasscap)  X:  2000  -►  28000  ft 

Y:  -1500  -►  2000  ft 
-Z:  2000  -►  11000  ft 

Duration:  500  s 

Comments:  Track  lost  at  first,  but  picked  up  at  range  of  4000  ft. 
downtrend  in  delta  range,  flat  delta  range  rate, 
but  large  std.  dev. *2. 17, 

large  trends  in  delta  roll  and  pitch  (1.6  deg) 
trends  in  delta  roll  and  pitch  rate. 


Trajectory:  GEM3 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394) 

Flight  Profile  (Brasscap)  X:  1000  -►  24000  ft 

Y:  -500  -►  -3500  -►  500  ft 
-Z:  1500  -*•  10000  ft 

Duration:  500  s 

Comments:  Initially  lost  track  but  required, 
large  downtrend  in  delta  range  (175  ft), 
delta  range  rate  std.  dev. "1.83, 
large  trends  in  delta  roll  and  pitch  ( 2 deg), 
also  in  delta  roll  and  pitch  rates. 
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10/19/85  TEST  SUMMARIES 


Table  G-6  summarizes  the  flight  conditions,  targets  used,  and  trajectories 
flown  on  10/19/85. 


TABLE  G-6:  10/19/85  FLIGHT  CONDITION  SUMMARY 

Flight  Conditions:  Good  conditions 

Target:  2m  Gemsphere  suspended  below  2,  10  ft  balloons, 
tethered  flight. 

Trajectories  Flown: 

SAT1 

SAT2 

SAT3 

SAT4 

SAT6 

SAT8 


G-21 


Individual  Flight  Test  Summaries 


Trajectory:  SAT1 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394),  10  cines 

Flight  Profile  (Brasscap)  X:  450  -►  300  -►  700  ft 

Y:-1340  -►  -1440  -►  -1220  ft 
-Z:  2180  -►  2050  -►  2120  ft 

Duration: 600  s 

Comments:  Large  trend  in  delta  roll  (.6  deg),  and  delta  pitch  (.8 
deg)  trend  in  delta  range  (80  ft)  delta  range  rate  std.  dev. “2. 33 
trajectory  had  large  roll  angles  up  to  -74  deg. 


Trajectory:  SAT 2 

Range  Equipment:  3 radar  (R-350,  R-393,  R-394),  10  cines 


Flight  Profile  (Brasscap)  X:  725  -►  450  -►  1075  ft 

Y:  -750  -►  -100  ft 

-Z:  oscillates  2290  -♦  2390  ft 

Duration:  600  s 


Comments:  Large  trends  in  delta  roll  (1.8  deg),  and  delta  pitch 
(.6  deg),  roll  angles  up  to  -62  deg,  large  trends  in  delta  range 
(80  ft). 


Trajectory:  SAT3 

Range  Equipment:  3 radar  (R-350,  R-393,  R-394),  10  cines 

Flight  Profile  (Brasscap)  X:  1000  -►  -800  ft 

Y:  0 -►  700  ft 
-Z:  2200  -►  200  ft 

Duration:  600  s 

Comments:  The  balloon  tether  broke  on  this  flight, 
trends  in  delta  range  (160  ft), 
delta  range  rate  std.  dev. “6. 78, 
anomalies  in  delta  roll  and  pitch. 


Trajectory:  SAT4 

Range  Equipment:  3 radars  (R-350,  R-393,  R-394),  10  cines 

Flight  Profile  (Brasscap)  X:  6400  -*•  8600  ft 

Y:  5600  -►  7800  -►  6300  ft 
-Z:  6750  -*>  5100  ft 

Duration:  600  s 

Comments:  Sporadic  delta  range  (60  ft  deflections),  trends  in 

delta  roll  and  pitch  (.4  deg),  deltaroll  and  pitch  rates  have 
damped  oscillations. 


Trajectory:  SAT6 


not  available 


Trajectory:  SAT8 


not  available 
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11/4/85  TEST  SUMMARIES 


m 

Table  G-7  summarizes  the  flight  conditions,  targets  used,  and  trajectories 
flown  on  11/4/85. 


TABLE  G-7:  11/4/85  FLIGHT  CONDITION  SUMMARY 


Flight  Conditions:  Higher  altitude  winds  caused  the  target 

balloons  to  drift  back  over  the  Pearl  site. 

Target:  Gemspheres  (free  floating)  and  helicopters. 

Note:  The  antenna  servo  gain  had  been  increased  on  11/2. 


Trajectories  Flown: 
BALI 
BAL2 
BAL5 
BAL6 
BAL7 
HL546AG 
HL246AF 
HL446AE 
HL146AE 
HL346AF 
HJ146AE 
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G.6.1  Individual  Plight  Test  Summaries 


Trajectory:  BALI 

Range  Equipment:  1 radar  (R-394),  no  cines 

Flight  Profile  (Brasscap)  X:  500  -►  3300  -+■  900  ft 

Y:  300  -►  1900  ft 
-Z:  500  -►  10000  ft 

Duration:  600  s 

Comments:  Large  bias  and  initial  skew  on  delta  roll  and  pitch  (2 
deg),  discontinuity  in  delta  range  at  t“250  s,  delta  range  rate 
std.  dev. "1.39. 


Trajectory:  BAL2 

Range  Equipment:  1 radar  (R-394),  no  cines 

Flight  Profile  (Brasscap)  X:  750  -►  3500  ft 

Y:  200  -►  1000  ft 
-Z:  300  -*>  4100  ft 

Duration:  300  s 

Comments:  Large  trends  in  delta  roll  and  pitch  (1  deg), 

oscillations  in  delta  range  (7  ft),  delta  range  rate  std. 
dev. "3. 08,  large  delta  roll  and  pitch  rate  deflections  at  t"75  s 
(.6  deg). 
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Trajectory:  BAL5 

Range  Equipment:  1 radar  (R-394),  no  cines 


Flight  Profile  (Brasscap)  X:  3500  -*■  1600  ft 

Y:  1000  -►  2000  ft 
-Z:  7100  -►  10000  ft 

Duration:  170  s 

Comments:  Large  bias  in  delta  roll  (.42  deg)  and  delta  pitch 

(-.64  deg),  trends  in  these  of  .15  deg. 
delta  range  rate  std.  dev. “1.2  deg/s. 


Trajectory:  BAL6 

Range  Equipment:  1 radar  (R-394),  no  cines 

Flight  Profile  (Brasscap)  X:  750  **>  3750  -►  1750  ft 

Y:  300  -►  2400  ft 
-Z:  500  -►  10000  ft 

Duration:  600  s 

Comments:  Large  initial  skew  in  delta  pitch  and  roll 
(1.6  deg),  and  delta  pitch  and  roll  rate 
(.55  deg/s) 

delta  range  rate  std.  dev. “1.78. 
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Trajectory  :BAL7 

Range  Equipments  1 radar  (R-394),  no  cines 

Flight  Profile  (Brasscap)  Xs  900  -►  3800  -►  2250  ft 

Ys  300  -*•  2400  ft 
-Zs  500  -►  10000  ft 

Duration:  600  s 

Comments:  Large  initial  skew  in  delta  roll  and  pitch  (1.6  deg), 
delta  range  rate  std.  dev. “2. 91,  also  an  initial  skew  in  delta 
roll  and  pitch  rates 


Trajectory:  HL546AG 

Range  Equipment:  1 radar  (R-394),  5 cines 


Flight  Profile  (Brasscap)  X: 45000  -►  25000  ft 

Y:  8000  -*>  31000  ft 

-Z:  oscillates  6040  -►  6300  ft 

Duration:  500  s 


Comments:  Delta  roll  within  .1  deg  std.  dev.,  delta  pitch  still 
has  mean  of  -.64  deg. 


Trajectory:  HL246AF 


not  available 


Trajectory:  HL446AE 

Range  Equipment:  1 radar  (R-394),  5 cines 


Flight  Profile  (Brasscap)  X:  48000  -►  30000  ft 

Y:  0 -►  35000  ft 

-Z:  oscillates  6000  -►  6400  ft 

Duration:  550  s 

Comments:  Large  down  spike  (2  deg)  in  delta  roll  and  pitch  at 
t*  225-275  s.  Due  to  glitch  in  KU  angles. 


Trajectory:  HL146AE 

Range  Equipment:  1 radar  (R-394),  5 cines 


Flight  Profile  (Brasscap)  X:  46000  -►  25000  ft 

Y:  0 -►  35000  ft 

-Z:  oscillates  6120  -►  6340  ft 

Duration:  600  s 


Comments:  Delta  roll  is  fairly  flat,  mean*. 07,  std.  dev. *.12, 

delta  pitch  is  still  biased  mean*-. 64  deg,  std.  dev. *.07. 


Trajectory:  HL346AF 

Range  Equipment:  1 radar  (R-394),  5 cines 


Flight  Profile  (Brasscap)  X:  47000  -►  31000  ft 

Y:  0 -►  37000  ft 

-Z:  oscillates  6125  -►6255  ft 

Duration:  550  s 


Comments:  Delta  range  rate  std.  dev.*. 55,  delta  roll  is  fair 

(mean*. 09,  std.  dev.*.l)  delta  pitch  mean*-. 63  std.  dev.*. 07 


Trajectory:  HJ146AE 

Range  Equipment:  1 radar  (R-394),  5 cines 


Flight  Profile  (Brasscap)  X:  65000  -►  35000  ft 

Y:  0 -►  30000  ft 

-Z:  oscillates  6080  -►  6300  ft 

Duration:  600  s 


Comments:  Delta  roll  mean--. 08,  std.  dev. -.24,  delta 

mean--. 62,  std.  dev.-.l 


pitch 
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APPENDIX  H 

ADDENDUM  TO  SORTE  ANGLE  RATE  DATA  ANALYSIS 

The  purpose  of  this  appendix  is  to  augment  the  angle  rate  data 

analysis  presented  in  Section  3.6.  In  particular,  in  the  one  case  (H30SKAF) 
that  was  analyzed  in  detail,  it  was  found  that  the  principal  error  source  was 
angle  acceleration.  Furthermore,  the  bias-effect  on  the  angle  rate  was 

exactly  predictable  from  a knowledge  of  the  acceleration  and  the  natural 

frequency  of  the  loop,  fQ.  As  noted  there,  this  was  the  first  corroboration 
that  the  angle  rate  loop  is  properly  represented  by  the  model  in  Figure  3.6-4, 
and  that  the  fQ  value  for  the  widest  bandwidth  case  has  been  properly 
implemented  in  the  hardware.  Since  there  are  two  other  bandwidth  values  for 
the  angle  rate  tracker,  the  purpose  of  this  appendix  is  to  verify  that  the 
other  two  f values  are  implemented  properly  through  the  use  of  the  angle 
acceleration  data. 

Table  H-l  summarizes  the  values  of  f for  the  different  range 

II 

intervals  in  the  passive  tracking  mode.  As  noted  earlier,  the  H30SKAF  data 
was  used  to  analyze  the  wide  bandwidth  case.  Here,  the  first  150  seconds  of 
the  HEL30AG  profile  is  used  to  analyze  the  medium  bandwidth  case,  and  HL446AC 
profile  is  used  to  analyze  the  narrow  bandwidth  case. 

' TABLE  H-l  VALUES  OF  THE  NATURAL  FREQUENCY  OF  THE  ANGLE 
RATE  TRACKER  FOR  DIFFERENT  RANGE  INTERVALS 


RANGE  INTERVAL 

f 

fn,  Hz 

< 11,510 

t 

t 

V 

0.120 

11,520  to  23,020 

V 

1 

0.070 

>23,030 

t 

0.027 

Medium  Bandwidth  Case.  Figures  H-l  and  H-2  compare  the  angle  rate 
difference  data  and  the  corresponding  angle  acceleration  for  pitch  and  roll 
rate,  respectively.  As  was  done  in  Sectioon  3.6,  a time  interval  was  selected 
in  each  data  set  and  the  angle  rate  bias  formula  of  equation  3-12  was  applied 
to  determine  if  the  relation  was  satisfied.  Table  H-2  summarizes  the  results 
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FIGURE  H-l  A COMPARISON  OF  THE  CINE  PITCH  ANGLE  ACCELERATION  PROFILE 
AND  THE  CINE  PITCH  RATE  DIFFERENCE  PROFILE  FOR  THE  HEL30AG 
FLIGHT 
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FIGURE  H-2  A COMPARISON  OF  THE  CINE  ROLL  ANGLE  ACCELERATION  PROFILE 

AND  THE  CINE  ROLL  RATE  DIFFERENCE  PROFILE  FOR  THE  HEL30A& . 
FLIGHT 
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of  these  selections  and  computations.  It  should  be  pointed  out  that  the 

average  angle  acceleration  and  the  measured  angle  rate  bias  are  "eyeball" 

estimates  taken  from  Figure  H-l  and  H-2.  The  data  of  Table  H-2  shows  a very 

close  match  between  computed  and  measured  angle  rate  bias.  It  can  be 

concluded  that  the  value  of  f (0.07)  for  this  range  interval  has  been 

n 

correctly  implemented  in  the  hardware. 

TABLE  H-2  EVALUATION  OF  ANGLE  ACCELERATION  BIAS  EFFECTS 


IN  THE  MEDIUM  BANDWIDTH  CASE 

t 

TIME 

' AVERAGE  ANGLE  ’ 

COMPUTED  ANGLE 

MEASURED  ANGLE 

t 

f 

INTERVAL, SEC 

’ ACCELERATION  ’ 

RATE  BIAS 

t 

' RATE  BIAS 

1 

T" 

t 

Roll  Rate 

"T" 

t 

40  to  50 

1 t 

'0.0060  deg/sec^' 

-0.027  deg/ sec 

t 

f 

-0.023  deg/sec 

t 

» 

t 

t 

f 

t 

85  to  95 

’ -0.0125  ’ 

t f 

0.056 

t 

f 

0.050 

t 

t 

» 

Pitch  Rate 

* 

20  to  30 

’ 0.0030 

-0.0136 

f 

-0.015 

» 

t 

t 

82  to  92 

’ -0.0070 

0.0318 

t 

0.028 

t 

Narrow  Bandwidth  Case.  Figures  H-3  and  H-4  give  the  angle  rate 
difference  and  the  corresponding  angle  acceleration  for  pitch  and  roll  rate, 
respectively.  Table  H-3  provides  the  results  of  how  the  angle  acceleration 
bias  affects  computations.  In  this  case,  it  is  very  hard  to  identify  the 
angle  rate  bias  because  it  appears  to  be  buried  in  the  thermal  noise  and  other 
effects.  There  were  some  time  intervals  where  the  acceleration  effects  were 
prominent.  In  those  cases,  there  was  good  agreement  between  the  predicted 
bias  and  the  measured  bias. 

TABLE  H-3  EVALUATION  OF  ANGLE  ACCELERATION  BIAS  EFFECTS 
IN  THE  NARROW  BANDWIDTH  CASE 


TIME 

INTERVAL, SEC 


' AVERAGE  ANGLE 
’ ACCELERATION 


COMPUTED  ANGLE 
RATE  BIAS 


MEASURED  ANGLE 
RATE  BIAS 


Roll  Rate 


Pitch  Rate 


f « 

150  to  170  ’0.001  deg/sec^  * -0.0118  deg/sec 

25  to  50  ’ -0.0005  ’ 0.0059 


25  to  35 


-0.0008 


0.0094 


-0.009  deg/sec 
0.005 

0.008 
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FIGURE  H-3  A COMPARISON  OF  THE  CINE  PITCH  ANGLE  ACCELERATION  PROFILE 
AND  THE  CINE  PITCH  RATE  DIFFERENCE  PROFILE  FOR  THE  HL446AC 
FLIGHT 
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FIGURE  H-4  A C0MPARSI0N  OF  THE  CINE  ROLL  RATE  ACCELERATION  PROFILE 
AND  THE  CINE  ROLL  RATE  DIFFERENCE  PROFILE  FOR  THE  HL446AC 
FLIGHT 
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